Bonjour
j'ai un problem sur le code si dessous enfete je veux que quand je clique sur le bouton du client command2 il me r'envoye la variable a de chaque case du serveur dans le text1.text du client
je pense que le probleme vien de la

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub Command2_Click()
Text1.Text = ""
winsock1 .senddata (0)
winsock1.senddata (1)
End Sub
j'ai aussi essayer sa

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub Command2_Click()
Text1.Text = ""
winsock1 .senddata (0 & 1)
end Sub
mais rien ne marche est ce que quel qu'un peu me dire ce ki ne va pas dans mon code. merci d'avance


serveur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Wck_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim a As String
Wck.GetData a
Select Case a
Case 0
a = "salut"
Wck.SendData (1 & a)
Case 1
doc = "bonjour"
Wck.SendData (2 & a)
end select
end sub

client


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command2_Click()
Text1.Text = ""
winsock1 .senddata (0)
winsock1.senddata (1)
End Sub
 
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim p As String
Winsock1.GetData p
Select Case Left(p, 1)
Case 1
Text1.Text = Text1.Text & Mid(p, 2) & vbCrLf
Case 2
Text1.Text = Text1.Text & Mid(p, 2) & vbCrLf
End Select
End Sub
[Balises "Code" ajoutées par AlainTech]
[Pensez-y vous-même à l'avenir. Merci.]