Winsock i en array

For at se om et array er initialiseret gør du følgende...

Dim myArray()

If LBound(myArray) > UBound(myArray) Then
  Msgbox(\"Array is NOT initialized\")
Else
  Msgbox(\"Array is initialized\")
End If

Redim myArray(10)

If LBound(myArray) > UBound(myArray) Then
  Msgbox(\"Array is NOT initialized\")
Else
  Msgbox(\"Array is initialized\")
End If

Hvis du mener hvordan man checker om der er et winsock objekt i et bestemt array er der vidst flere måder at gøre dette på. Eks. med et array af typen Variable.

Dim myWinsock(10) As Variable

If IsObject(myWinsock(10)) Then
  Msgbox(\"myWinsock #10 is a WinSock\")
Else
  Msgbox(\"myWinsock #10 is NOT a WinSock\")
End If

Set myWinsock(10) = New Winsock

If IsObject(myWinsock(10)) Then
  Msgbox(\"myWinsock #10 is a WinSock\")
Else
  Msgbox(\"myWinsock #10 is NOT a WinSock\")
End If

Takker og bukker....

Bukker og slukker...