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
j'ai aussi essayer sa
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
mais rien ne marche est ce que quel qu'un peu me dire ce ki ne va pas dans mon code. merci d'avance
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
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
[Balises "Code" ajoutées par AlainTech]
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
[Pensez-y vous-même à l'avenir. Merci.]
Partager