VB.NET文本框keydown事件不触发

Question

所以，

我有一个TabControl页面上的文本框，当有人标签出来的文本框，它是假设移动到下一个选项卡。在我将表单从UserControl切换到实际表单之前，这很好。这一改变并没有改变实际的代码。

所以现在，我已经尝试了一切。我有文本框设置为AcceptTab = True，并且我有KeyPreview = False（因为如果表单在文本框之前抓取事件，它会弄乱我假设的事情）。

这里是我的文本框代码：

Private Sub txtMsgDTG_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles txtMsgDTG.KeyDown 

    'check for tabbed out 
    If e.KeyCode = Keys.Tab Then 
     'If the user tabs into this field after filling out the necessary fields ... 
     If txtMsgDTG.Text = String.Empty Then 
      'If the user left the field BLANK ... 

      'Move to next page: 
      TabControl1.TabPages(0).Enabled = True 
      TabControl1.TabPages(1).Enabled = True 
      TabControl1.TabPages(2).Enabled = False 
      TabControl1.TabPages(3).Enabled = False 
      TabControl1.TabPages(4).Enabled = False 
      TabControl1.SelectedIndex = 1 

     Else 
      'If the user did NOT leave the field blank ... 

      'validate message DTG 
      Dim dtgCheck As String 
      dtgCheck = ValidateDTG(txtMsgDTG.Text) 
      If dtgCheck <> "valid" Then 
       MsgBox(dtgCheck) 
      Else 
       'Move to next page: 
       TabControl1.TabPages(0).Enabled = True 
       TabControl1.TabPages(1).Enabled = True 
       TabControl1.TabPages(2).Enabled = False 
       TabControl1.TabPages(3).Enabled = False 
       TabControl1.TabPages(4).Enabled = False 
       TabControl1.SelectedIndex = 1 

      End If 

     End If 

    End If 


End Sub 

任何想法的家伙？

Answer 1

快速修复：

txtMsgDTG.Multiline = True 

其他固定在那里你可以保持Multiline = False是订阅到TextBox的PreviewKeyDown事件：

Private Sub txtMsgDTG_PreviewKeyDown(ByVal sender As Object, ByVal e As PreviewKeyDownEventArgs) Handles txtMsgDTG.PreviewKeyDown 
    If e.KeyCode = Keys.Tab Then 
    e.IsInputKey = True 
    End If 
End Sub