事件，如果文本光標在文本框

Question

我相信答案是在那裏，但我不能確定如何字呢？

所以我要尋找一個事件或者一個方法，如果用戶有點擊textbox1（並把他們的輸入）他們可以按回車，它會做任務。但如果他們用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 

---

，或者你可以在一個方法處理每個文本框 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 

希望這有助於。