'算一下你每一笔是几个bytes
'.RThreshold = 12 12就改为你的Bytes数.
Private Sub Form_Load()
With MSComm1
.CommPort = 1
.Settings = "9600,n,8,1"
.InputLen = 0
.InBufferSize = 1
.RThreshold = 12
.InputMode = comInputModeBinary ' comInputModeText
End With
Command1.Caption = "开始接收"
End Sub
Private Sub Command1_Click()
If Not MSComm1.PortOpen Then MSComm1.PortOpen = True
End Sub
'.RThreshold = 12 12就改为你的Bytes数.
Private Sub Form_Load()
With MSComm1
.CommPort = 1
.Settings = "9600,n,8,1"
.InputLen = 0
.InBufferSize = 1
.RThreshold = 12
.InputMode = comInputModeBinary ' comInputModeText
End With
Command1.Caption = "开始接收"
End Sub
Private Sub Command1_Click()
If Not MSComm1.PortOpen Then MSComm1.PortOpen = True
End Sub


