根据通信协议和数据约定,在MSComm控件的OnComm事件中读取。
写数据用MSComm控件的Output属性。
使用事件
Private Sub MSComm1_OnComm()
Dim ThisBuffer As Variant
MSComm1.RThreshold = 0
Select Case MSComm1.CommEvent
Case comEvReceive
ThisBuffer = MSComm1.Input
....
Case 其他的类别
End select
end sub