Hi!
Ich habe mir eine kleine Klasse erstellt, die nun auch auf ein Event reagieren muss. Wie kann ich das implementieren, bzw. ist das überhaupt möglich?
Über ein kleines Beispiel oder einen Link wäre ich sehr dankbar!
MfG Carlos
Hi
Meinst Du wirklich a) reagieren oder meinst Du b) ein Event feuern.
a)
deklariere eine Objekwariable in deiner klasse mit WithEvents
z.b.
Dim WithEvents g_objCNN As ADODB.Connection
dann kannst du z.b das Event BeginTransComplete abfangen
Private Sub g_objCNN_BeginTransComplete(ByVal TransactionLevel As Long, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
’ Code goes here
End Sub
b)
Deklariere ein Event im Header der Klasse
Public Event MyEvent(byval someparam1 as Inteter,byval
someparam2 as String)
irgendwo in der klasse sagest du dann
raiseevent MyEvent(23,„hallo“)
alles unklar?
gruss