发送端(rs是ADO)
ReDim TV(rs.RecordCount)’数组长度先行发过去了
rs.MoveFirst
i = 0
Do While Not rs.EOF
TV(i) = Abs(rs("TestValue"))
rs.MoveNext
i = i + 1
Loop
Sen (TV) '自定义个发送函数 tv就是发送的数据了
接收端
Dim tmp As String‘公共的声明
Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long)
On Error GoTo ErrH
tmp = ""
Winsockserver.GetData tmp
Select Case Mid(tmp, 1, 3)
Case "STA"
x = Val(Replace(tmp, "STA", "", 1))
Label1.Caption = x
Debug.Print tmp
Case Else
Call De
End Select
ErrH:
End Sub
Sub De()
Dim tmp() As Byte
ReDim tmp(x)
For i = 1 To x
Debug.Print i & " " & tmp(x)’ 全是0 还不能发负数!请问怎么解决!
Next i
End Sub