Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Klassen aufrufen

Klassen aufrufen
24.08.2004 13:58:03
Patrick
Hallo zusammen ,
Wie bekome ich es hin eine klassen zu definieren die mit 2 button gesteuert wird .
Der erste butten soll eine klassen funktion aufrufen die aus textfeld 1 und textfeld 2 jeweils die werte in eine objektvariable schreibt ! Button 2 soll dann eine klassen funktion zb mit dem namen "zusammenrechnenn" aufrufen ! Die funktion rechnet dann die beiden werte die zuvor in die varibalen gschriben worden sind zusammen und gbit sie aus zb in ein textfeld .
Kann mir das jemand machen ? muss aber über eine Klassen laufen !!!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Klassen aufrufen
24.08.2004 17:16:16
GraFri
Hallo
Wenn ich alles richtig verstanden habe dann:


'Userform mit dem Namen 'Form'
Option Explicit
Dim varButton(1)    As New clsCommandButton
Dim Wert(1)      As Single
Private Sub UserForm_Initialize()
    
'COMMANDBUTTON
    Set varButton(0).butGruppe = CommandButton1
    Set varButton(1).butGruppe = CommandButton2
End Sub
'----------------------------------------------------
'Klassenmodul mit dem Namen 'clsCommanButton'
Option Explicit
Public WithEvents butGruppe As MSForms.CommandButton
Private Sub butGruppe_Click()
    If butGruppe.Name = "CommandButton1" Then
        Call Modul1.Werte_in_Ojektvariable
    Else
        Call Modul1.Zusammenzählen
    End If
End Sub
'----------------------------------------------------
'Modul mit Namen 'Modul1'
Option Explicit
Public Wert(1)      As Single
Sub Werte_in_Ojektvariable()
    Wert(0) = Form.TextBox1.Value
    Wert(1) = Form.TextBox2.Value
End Sub
Sub Zusammenzählen()
    Form.TextBox.Value = Wert(0) + Wert(1)
End Sub
Mit freundlichen Grüßen, GraFri
Anzeige
AW: Klassen aufrufen
25.08.2004 15:23:34
Patrick
Jo funktioniert alles bestens ! Vielen dank echt stark

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige