Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Dim Buffer As Variant
Dim rd() As Byte
Dim nn,si As Integer
MSComm1.InputMode = comInputModeBinary
nn = MSComm1.InBufferCount '串口等待读取的数的个数
MSComm1.InputLen = 1 '每次只读一个数
For si = 1 To nn
Buffer = MSComm1.Input
rd = Buffer '每次都是rd(0)
Label1.Caption = rd(0)
next
end select
end sub
Dim ReceiveBuffer As String
ReceiveBuffer = com.Input
'显示接收数据
Dim ReceiveData As String
If LenB(ReceiveBuffer) > 0 Then
For I = 1 To LenB(ReceiveBuffer)
ReceiveData = ReceiveData + IIf(Len(Hex(AscB(MidB(ReceiveBuffer, I, 1)))) = 1, "0" + Hex(AscB(MidB(ReceiveBuffer, I, 1))), Hex(AscB(MidB(ReceiveBuffer, I, 1))))
Next I
End If