关闭串口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关闭串口

共有2318人关注过本帖树形打印复制链接主题：关闭串口

lk15502

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2019/3/22 16:57:00 [只看该作者]

找到原因了，DataReceived事件代码，com1没有改成com4;不好意思，给你们挖了一个坑。

lk15502

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2019/3/23 8:56:00 [只看该作者]

直接在窗口通过代码关闭COM口，会造成窗体卡死，所以设置一个逻辑开关，需要时断开串口与显示控件的链接，代码写在DataReceived事件：

Select Case e.Port.PortName

Case "COM4"

Dim s = e.Port.ReadExisting()

If s.EndsWith("kg") Then

If Forms("唛头打印").Opened AndAlso Forms("唛头打印").Controls("CheckBox1").Checked = False Then

Forms("唛头打印").Controls("TextBox7").Text = val(s)

End If

End Select

有点蓝

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/23 9:16:00 [只看该作者]

试试

If Forms("唛头打印").Opened AndAlso Forms("唛头打印").Controls("CheckBox1").Checked = False Then

Forms("唛头打印").Controls("TextBox7").Text = val(s)

Application.DoEvents

End If

总数 13 上一页 1 2

主题：关闭串口