 |
||
| ||
| |||||
| Dernière réponse | |
|---|---|
| Sujet : winsock.ocx : ou le trouver ?????? | |
| lordankou | Private Sub Form_Load()
' Le nom du contrôle est udpPeerA With udpPeerA ' IMPORTANT: assurez-vous de changer la valeur de RemoteHost ' pour lui donner le nom de votre ordinateur .RemoteHost = "PeerB" .RemotePort = 1001 ' Port auquel on se connecte. .Bind 1002 ' Établit le lien avec le port local. End With frmPeerB.Show ' Affiche la seconde feuille. End Sub Private Sub txtSend_Change() ' Envoie le texte dès qu'il est tapé. udpPeerA.SendData txtSend.Text End Sub Private Sub udpPeerA_DataArrival _ (ByVal bytesTotal As Long) Dim strData As String udpPeerA.GetData strData txtOutput.Text = strData End Sub Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) End Sub ---------------------------------------------------------------- argument non valide : [#f00e00]udpPeerA.SendData txtSend.Text [#00000e]comment faire ????????? |
| Vue Rapide de la discussion |
|---|
