Form_Load()中先初始化控件参数
With MSComm1
.Settings="9600,N,8,1"
.InputMode=1 '设置接受数据的类型是二进制类型数据
.InputLen=8 '一次性从接收缓冲区中读取所有数据(8个字节为一组)
.InBufferCount=0 '清空接收缓冲漏枝区
.OutBufferCount=0 '清空发送缓冲区
.SThreshold=0 '一旦发送数据就触发OnComm()事件来检测是否返回绝瞎数据
.RThreshold=1 '接收到1个字节数据就立即触发OnComm()事件
.CommPort=1 '使用第一个串口
.PortOpen=True '打开串口
EndWith
然后在MSComm1_OnComm事件中使用
Private Sub MSComm1_OnComm()
Dim Buffer As String
Buffer = MSComm1.Input
End Sub
'退出时请关闭端口
'并搜空Buffer有可能一次不能接受全数据，请使用全局变量存放，再用vbcr区分接受结束
'希望对你有所帮助
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024