VB6如何检测串口拔下
我要实现一种功能,正常通信时显示正常通信,拔下显示通信错误
再插上显示通信正常
我的代码如下:
Private Sub Timer1_Timer()
If commfaultflag = True Then
commfaultflag = flase
If SendFlag = 1 Then
MSComm1.PortOpen = True
MSComm1.Output = send
End If
Else
If SendFlag = 1 Then
If Err.Number = 8021 Then
Label41.ForeColor = vbRed
Label41.Caption = "通讯故障"
MSComm1.PortOpen = False
commfaultflag = True
Else
MSComm1.Output = send
End If
End If
End If
End Sub
可是不行,在MSComm1.Output=send时出错

请问如何解决?谢谢
...全文
相关推荐
VB6.0实现自动检测可用的串口
VB6.0实现自动检测可用的串口,并编号。包含整个工程、代码,可轻松更改为你所用。
VB6.0串口助手精简版
若有数据上传,则触发接收事件,程序先判断事件类型,若为接收事件,则将数据显示在文本输入框内,点击清除程序清除文本内容。1.串口初始化函数:串口初始化封装成通用函数,在form_load时运行一遍,此后若ComboBox发生下拉事件,则可再次根据条件调用此函数,以实现端口的动态刷新。2.端口切换与刷新:在Combo1下拉列表项点击事件发生时,进行端口的切换,此处使用了一个if else语句判断串口是否已打开,如果打开了需要先关掉才能切换,否则报错。(1)打开程序后,先加载窗体,初始化控件,串口初始化。
VB6编写的串口调试器
这是一个用VB6.0编写的串口调试器(含有代码)。它包含了串口的以下可修改项:端口号、波特率、校验方式、数据位、停止位等等。是学习VB编写串口通信程序不可多得的参考资料。
VB 6.0串口编程实例
vb6.0 串口调试程序源码,真实可靠
VB上位机串口温湿度检测
温度采集


COM/DCOM/COM+

