通过窗体接收扫描内容,显示两边内容相同为什么语音却报错误

brianlong

我做了一个窗体用于接收并比对两次扫描的内容,现在的情况是显示的是两边的内容相同但还是会有错误的提示语音,这个问题在哪里呢,工程密码929

3190496160

有工程密码

brianlong

3190496160 发表于 2024-5-13 20:44
有工程密码

哦哦不好意思忘了还有密码,  密码是929

test_test_test

给个错误示例

brianlong

test_test_test 发表于 2024-5-14 16:11
给个错误示例

刚才测试了一下,当左边文本框接收完数据后光标到了右边文本框,但是在右边还没有接收到数据前就已经报错了

test_test_test

brianlong 发表于 2024-5-14 16:48
刚才测试了一下,当左边文本框接收完数据后光标到了右边文本框,但是在右边还没有接收到数据前就已经报错了

稍微修改了一下：
Private Sub tb_kh_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Application.EnableEvents = True
   
    If Len(Trim(tb_yc.Value)) > 0 And KeyCode = vbKeyReturn Then
        khb = Split(tb_kh.Value, "@")
        lb_kxh.Caption = khb(0)
        If UBound(khb) > 0 Then lb_kqty.Caption = khb(1)      
        
        Else
           Exit Sub              
        
    End If
    If lb_yxh.Caption = lb_kxh.Caption Then
        pk_xh.Caption = "√"
    Else
        pk_xh.Caption = "×"
        pk_pk.Caption = "型号不符"
        If pk_pk.Caption = "型号不符" Then
            Application.Speech.Speak "型号不符"
            Application.EnableEvents = False
            Exit Sub
        End If
    End If
    If lb_yqty.Caption = lb_kqty.Caption Then
        pk_qty.Caption = "√"
    Else
        pk_qty.Caption = "×"
        Application.Speech.Speak "数量有误"
        Application.EnableEvents = False
    End If
    If pk_xh.Caption = "√" And pk_qty.Caption = "√" Then
        pk_pk.Caption = "√"
        tb_yc.SelLength = Len(tb_kh.Value)
        lb_cpx.Caption = ""
    Else
        pk_pk.Caption = "×"
    End If
End Sub