Passage d'arguments vers une classe

je veux passer un ctrl winsock ... mais ca ne fonctionne pas

Dim Adresse_IP As String Dim Num_Port As String Dim Objet_Win As New Winsock Public Property Let Socket(Winsock_Obj As Winsock) Objet_Winsock = Winsock_Obj End Property

essaye en mettant Set devant :

Dim Adresse_IP As String
Dim Num_Port As String
Dim Objet_Win As Winsock

Public Property Let Socket(Winsock_Obj As Winsock)
Set Objet_Winsock = Winsock_Obj
End Property

slr

Attention, pour le passage d'objet, ce n'est pas une propriété Let qu'il faut, mais une proriété Set :

Public Property Set Socket(Winsock_Obj As Winsock)
Set Objet_Win = Winsock_Obj
End Property

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer