Bonjour à tous !
Je désire créer une classe utilisant les sockets.
J'ai donc déclaré dans ma classe un objet Winsock:
Dim maSocket as Winsock
Puis avec Get() et Let() je veux pouvoir afficher / changer le port local de la socket :
Public Property Get SocketLocalPort() As Long
On Error GoTo Err_hnd
SocketLocalPort = maSocket.LocalPort
Exit Property
' Error handler
Err_hnd:
trtErr.gs_err Err.Number, Err.Source, Err.Description
End Property
Public Property Let SocketLocalPort(rlngLocPrt As Long)
On Error GoTo Err_hnd
maSocket.LocalPort = SocketLocalPort
Exit Property
' Error handler
Err_hnd:
trtErr.gs_err Err.Number, Err.Source, Err.Description
End Property
J'ai donc déclaré une variable de la classe :
Dim lmaClasse as ClsMaClasse
Puis je l'initialise :
Set lmaClasse = New ClsMaClasse
Puis je fais :
MsgBox lmaClasse.SocketLocalPort
et la le curseur s'arrête sur cette ligne ... et ne fais rien ...
( F8 ou F5 ne font rien non plus )...
J'ai l'impression que je suis obliger de faire une représentation de l'objet pour l'utiliser ??
Merci de vos réponses par avance !!
ZedMaTriX