VB6: Ereignis eines Steuerelements abfangen

Computer: Software & Programmierung Visual Basic
#1

Hallo,
im konkreten geht es um ein Modul, welches das Winsock-Steuerelement nutzen soll. Wenn ich das ganze in eine Form packe und in diese ein Winsock-Steuerelement stecke, kann ich natürlich das Ereignis abfangen, wie im Beispiel in der VB-Hilfe erläutert:

Private Sub Winsock1\_DataArrival(ByVal bytesTotal As Long)
 Winsock1.GetData Result
End Sub

Ich will jetzt das ganze aber in ein modul packen und das WinSock-Steuerelement wird an die nutzende Routine übergeben:

sub myRoutine(byref myWinSock as Winsock)

Wie kann ich jetzt das DataArrival-Ereignis abfangen, so dass es genauso funktioniert wie oben?

Ralph

#2

hallo

in einem modul gehts nicht, aber in einer klasse… und zwar so:

Option Explicit

Private WithEvents objWinSock As Winsock

Private Sub objWinSock\_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData ResultEnd
End Sub

Public Sub myRoutine(ByRef myWinSock As Winsock)
Set objWinSock = myWinSock
End Sub

gruss
giuseppe

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Genau das suchte ich…
Im Endeffekt wurde nämlich auch eine Klasse daraus… :smile:

Ralph