为什么接收到的点的横坐标没变？

Question

用winsock控件发送坐标点到接收端
发送端部分代码：
Private Sub Timer1_Timer(Index As Integer)
····
For i = 0 To n
    Picture1.PSet (px(i), py(i)), vbRed '两点画线
    Winsock1.SendData "a" & px(i) & "b" & py(i) & "c"
Next i
End sub
接收端代码：
Private Sub Timer1_Timer(Index As Integer)
····
Winsock1.GetData s
s1 = Mid(s, InStr(s, "a") + 1, InStr(s, "b") - InStr(s, "a") - 1)
s2 = Mid(s, InStr(s, "b") + 1, InStr(s, "c") - InStr(s, "b") - 1)
Picture1(0).PSet (s1, s2), vbRed
····
End sub
图1是发送端的，图二是接收端的，为什么接收端的点都在同一横坐标上？？？

Answer 1

因为客户端的picturebox中设置了只能画50个点的，超出50后就平移。刚试了一下把两边的数值打印出来，前50个点时，接收端接收到的数值都是第一个点的值，大于50后y值接收正常，但x还是一样

Answer 2

你还是百度查一下Winsock控件的相关内容吧，好像Winsock有自己的事件，注意发送和接收的时候分别打印看看接收的全不全。

Answer 3

For i = 0 To n
Picture1.PSet (px(i), py(i)), vbRed '两点画线
Winsock1.SendData CStr(px(i)) & "," & CStr(py(i))
Next i
Dim s1() As String
Winsock1.GetData s
s1 = Split(s, ",")
If Ubound(s1) = 1 Then
Picture1(0).PSet (Val(s1(0)), Val(s1(1)), vbRed
End If