在线等待：DataArrival 事件什么时候发生？为什么参数是0也能产生此事件？？？

Question

如题
此时getdata老是出错，很郁闷，
参数为0的时候应该就是没有接受到数据才对呀！！！
奇怪！！

Answer 1

object.GetData data, [type,]
type 的设置值是：描述 常数 
Byte vbByte 
Integer vbInteger 
Long vbLong 
Single vbSingle 
Double vbDouble 
Currency vbCurrency 
Date vbDate 
Boolean vbBoolean 
SCODE vbError 
String vbString 
Byte Array vbArray + vbByte 
你传来的是什么类型就要用 什么类型接收

Answer 2

当接收到数据的时候才触发DataArrival事件的.
Private Sub TCPclient_DataArrival(ByVal bytesTotal As Long) 
Dim ByteData() As Byte
Dim strMsg As StringTCPclient.GetData ByteData, vbByte'将接收到的数据存为字节
strData = StrConv(ByteData, vbUnicode)'再将字节转换为字符
'现在你想怎样操作传过的数据都可以了
end sub