0

我有一个 onChange TextBox 事件。当 textlength 为 22 时，应显示一个 msgbox 并应建立一个 db 连接。

不幸的是，msgbox 没有出现，或者出现和消失的速度非常快。

它不应该像这样发生。我也尝试过使用 ApplicationModal 但这并没有改变任何东西。

示例代码：

Private Sub txt_Auftrag_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Auftrag.TextChanged

    If Len(txt_Auftrag.Text) = 22 Then 'txt_Auftrag.TextLength = 22 Then
        MsgBox("In der If", MsgBoxStyle.ApplicationModal Or MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly)
        var_Aufrag = Mid(txt_Auftrag.Text, 15, 8)


        '------------------------------------------SET dbConnection
        Dim myConn As SqlConnection
        Dim myCmdText As String

        Try
            Cursor.Current = Cursors.WaitCursor
            myConn = New SqlConnection("Data Source=127.0.0.1;Initial Catalog=db;User ID=dbadm;Password=pw")
            myConn.Open() 
            lbl_Auftrag_Value.Text = var_Aufrag
            Cursor.Current = Cursors.Default
        Catch ex As Exception
            Cursor.Current = Cursors.Default
            MsgBox("Verbindung zur Datenbank konnte nicht hergestellt werden. Kontaktieren Sie den Administrator. Fehlerbeschreibung: " & ex.Message)
            var_Aufrag = Nothing
            txt_Auftrag.Text = Nothing

            Exit Sub
        End Try

        MsgBox("ConnGood")
4

1 回答 1

0

我想我想通了。我正在为 MDT 设备编程并用它扫描条形码。当输入等于 22 个符号的文本时，会出现 msgbox。扫描条形码时，如果我的手指在扫描按钮上，则开始执行 If 语句，然后通过释放它，单击 msgbox。总之很奇怪:)

谢谢，再见

于 2014-08-11T12:35:24.490 回答