afridbeertje
Gebruiker
- Lid geworden
- 24 okt 2008
- Berichten
- 60
ik heb de volgende code
Private Sub sockMain_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If sockMain(intSockCnt).RemoteHostIP = Form5.Text2(0).Text Then
Else
intSockCnt = intSockCnt + 1
Load sockMain(intSockCnt)
sockMain(intSockCnt).Accept requestID
List1.AddItem _
"Nieuwe verbinding met: " & _
sockMain(intSockCnt).RemoteHostIP & vbCrLf
Form5.List2.AddItem _
"" & _
sockMain(intSockCnt).RemoteHostIP & vbCrLf & " - " & Form5.Text4.Text
End If
End Sub
alleen ik heb nu 10 control array''s gemaakt Text2(0) t/m Text2(9)
nu wil ik eigenlijk dat alle control array''s in de if zitten dus zoiets als
If sockMain(intSockCnt).RemoteHostIP = Form5.Text2(0).Text , Form5.Text2(1).Text enz..
weet iemand daar wat voor ?
(ik gebruik vb6)
Private Sub sockMain_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If sockMain(intSockCnt).RemoteHostIP = Form5.Text2(0).Text Then
Else
intSockCnt = intSockCnt + 1
Load sockMain(intSockCnt)
sockMain(intSockCnt).Accept requestID
List1.AddItem _
"Nieuwe verbinding met: " & _
sockMain(intSockCnt).RemoteHostIP & vbCrLf
Form5.List2.AddItem _
"" & _
sockMain(intSockCnt).RemoteHostIP & vbCrLf & " - " & Form5.Text4.Text
End If
End Sub
alleen ik heb nu 10 control array''s gemaakt Text2(0) t/m Text2(9)
nu wil ik eigenlijk dat alle control array''s in de if zitten dus zoiets als
If sockMain(intSockCnt).RemoteHostIP = Form5.Text2(0).Text , Form5.Text2(1).Text enz..
weet iemand daar wat voor ?
(ik gebruik vb6)
Laatst bewerkt: