Question

Windows 10 / VS 2015社区/ Visual Basic 2014

我已经写了以下内容来输入13个TextBoxes中的文本。它输入每个角色都有自己的事件。检查每个字符是否存在一个有效的字符（数字，字母，符号）加上Cr（移动到下一个 TextBox）和BS（允许拼写错误更正）。这有效：

'===== Enter Frequency =====

Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

    ichar = e.KeyChar()

    ckinchar()                                         'ck for input characters, or CR or BS keys

    If eoline = 1 Then                                  'has <cr> been detected?
        freq = inline                                   'Yes
        bufcnt = 0                                      'Reset counter
        eoline = 0                                     'Rest EOL flag
        TextBox1.BackColor = Color.LightGreen
        TextBox2.BackColor = Color.LightPink
        TextBox2.Focus()
        Exit Sub
    Else
        TextBox1.Focus()                                'No  - repeat inputting
    End If

End Sub

问题：我也希望使用TAB键（作为Cr键实现）但是，TAB键代码无法显示。在运行模式下按Tab键使光标按照tabIndex顺序向上移动显示的TextBox。我尝试过使用KeyDown / Enter / TextChanged事件无效 - 主要是实施的问题。

任何人都可以提出我可能在前两行中出现的任何错误，或其他选择。我应该看看TextBox中是否有任何属性。

TIA Day Watson

Answer 1

Private Sub TextBox1_PreviewKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles TextBox1.PreviewKeyDown
    If e.KeyCode = Keys.Tab Then
        Me.Text = "TAB Captured" 
    End If
End Sub

VB TextBox条目处理 - 缺少TAB键

1 个答案: