Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Klassen aufrufen

Forumthread: 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 !!!
Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige