Question

我确信答案已经存在，但我不确定如何说出来......

所以我正在寻找一个事件或一种方式，如果用户点击textbox1（并输入他们的输入），他们可以按Enter键，它将执行任务。但如果他们用textbox2做到了，那么它会做一个不同的任务。

对不起的措辞，想不出更好的解释方法

代码正在尝试。但它所做的只是让'叮当'声音进入。

 Private Sub StoreNumberPT_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles StoreNumberPT.KeyDown

    If e.KeyCode = Keys.Enter Then
        If Trim(StoreNumberPT.Text) <> vbNullString Then
            MsgBox("success")
        Else
            MsgBox("success")
        End If
    End If
End Sub

Answer 1

 Private Sub textbox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles textbox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            If Trim(textbox1.Text) <> vbNullString Then
               ' code
            Else
               'code
            End If
        End If
    End Sub

或者你可以在下面的一个方法下处理每个 TextBox 的keydown事件

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles _
    TextBox1.KeyDown, TextBox2.KeyDown
        Dim txtbx = DirectCast(sender, TextBox)
        If e.KeyCode = Keys.Enter And Trim(txtbx.Text) <> vbNullString Then
            Select Case txtbx.Name
                Case "TextBox1"
                    'your code when user type in TextBox1, as a sample
                    MsgBox(txtbx.Text)
                Case "TextBox2"
                   'your code when user type in TextBox2
                   MsgBox(txtbx.Text)
            End Select
        End If
    End Sub

Answer 2

使用

Private Sub textbox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles textbox1.KeyDown,textbox2.KeyDown
      If e.KeyCode = Keys.Enter Then
           If sender.name="Textbox1"
                If Trim(textbox1.Text) <> vbNullString Then
                   ' code
                Else
                   'code
                End If
            Elseif sender.name="Textbox2"
              If Trim(textbox2.Text) <> vbNullString Then
                   ' code
              Else
                   'code
             End If
      End if
 End if
End Sub

希望这有帮助。

if文本光标位于文本框中的事件

2 个答案: