Klassenmodule
15.10.2005 21:49:38
chris b
hoffe ihr geniest alle das WE.
Ich habe aber trotzdem eine frage die mich beschäftigt und hoffe ihr könnt mir weiterhelfen.
Es geht um ein Klassenmodul.Ich habe folgenden "Bausatz"
Code im Klassenmodul und in Standartmodul und in der Arbeitsmappe.
Meine frage ist und zwar im Klassenmodul steht u.a
Private Sub appevent_WindowResize
ich habe es einfach mal um den sinn und alles zu verstehen getestet zu schreiben statt
Private Sub appevent_WindowResize
habe ich
Private Sub appevent____WindowResize
geschrieben weil ich mir dachte das ja normalerweiße ein . Punkt zwischen zwei befehlen steht.
Wie z.b application.Username
und kein unterstrich.
Aber natürlich hat es dann nicht mehr geklappt.
Was sagt der unterstrich aus.
Danke vielmals !!!UNd schönes Wochenende !! grüße Chris
Code im Modul
Dim MyObject As New Klasse1
Code im Klassenmodul
Public WithEvents appevent As Application
Private Sub appevent_WindowResize(ByVal Wb As Excel.Workbook, ByVal Wn As Excel.Window)
MsgBox "Die Fenstergröße wurde verändert"
End Sub
Private Sub appevent_WorkbookBeforeClose(ByVal Wb As Excel.Workbook, Cancel As Boolean)
MsgBox "Feierabend!"
End Sub
Private Sub appevent_WorkbookOpen(ByVal Wb As Excel.Workbook)
MsgBox "Guten Morgen!"
End Sub
Code zum Starten
Dim MyObject As New Klasse1
Private Sub Workbook_Open()
'Set MyObject.appevent = Nothing
Set MyObject.appevent = Application
End Sub