以二進制方式接收字節數據:
Option Explicit
Dim BytReceived() As Byte
Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1
MSComm1.InputMode = comInputModeBinary '采用二進制傳輸
MSComm1.InBufferCount = 0 '清空接受緩沖區
MSComm1.OutBufferCount = 0 '清空傳輸緩沖區
MSComm1.RThreshold = 5 '產生MSComm事件
MSComm1.InBufferSize = 1024
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm() '接收數據
Dim strBuff As String
Select Case MSComm1.CommEvent
Case 2
MSComm1.InputLen = 0
strBuff = MSComm1.Input
BytReceived() = strBuff
Dim i As Long
For i = 0 To UBound(BytReceived)
Debug.Print BytReceived(i)
Next
'數據處理代碼
End Select
End Sub