- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 串口扫码枪录入问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132252)
-- 发布时间：2019/3/18 11:07:00
-- 串口扫码枪录入问题
您好老师。
此主题相关图片如下：qq截图20190318103856.png
原先的代码如下。
Select Case e.Port.PortName
Case "COM6"
Dim txt As String = Ports("COM6").ReadExisting()
If txt.length > 5 Then
Forms("老化终检检验窗口").Controls("TextBox2").Text = txt
ElseIf txt.length < 5 Then
Forms("老化终检检验窗口").Controls("TextBox3").Text = txt
End If
Case "COM7"
Dim txt As String = Ports("COM7").ReadExisting()
Forms("出厂检验报告窗口").Controls("TextBox1").Text = txt
End Select
原先是只有两个录入文本框（产品编号TextBox2（15位数字，字符型），检验结果TextBox3（1位英文字母，字符型） ）。现又增加了新的文本录入框产品编号TextBox1（11为数字，字符型）后编码如何修改？
[此贴子已经被作者于2019/3/18 11:07:53编辑过]
-- 发布时间：2019/3/18 11:31:00
--
判断字符数，如
msgbox(txt.length)
If txt.length = 15 Then
elseIf txt.length = 11 Then
elseIf txt.length = 1 Then
End If
-- 发布时间：2019/3/18 12:31:00
--
老师您好！问题解决了。非常感谢！