Windows 窗体热键

Question

我正在尝试在表单上使用热键来隐藏/显示文本框，尝试了很多方法，在阅读了 thread 之后，我这样做了：

If Control.ModifierKeys = Keys.B Then
    If TextBox1.Visible = True Then
        TextBox1.Visible = False
    Else
        TextBox1.Visible = True
    End If

和：

If Control.ModifierKeys = Keys.B Then
    If TextBox1.Visible = True Then
        TextBox1.Hide()
    Else
        TextBox1.Hide()
    End If
End If

但还是不行……请帮帮我

Answer 1

首先你需要设置表单属性

KeyPreview = True

然后使用表单 KeyDown 事件

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
    If e.KeyCode = Keys.B Then TextBox1.Visible = Not TextBox1.Visible
    End Sub

如果你想使用 ALT 或其他组合，你也需要检查修饰符

  Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If CBool(e.Modifiers And Keys.Alt) AndAlso e.KeyCode = Keys.B Then TextBox1.Visible = Not TextBox1.Visible
  End Sub

如果你想做很多，那么使用 select case 语句

  Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
           case  Keys.B : TextBox1.Visible = Not TextBox1.Visible
           'etc
        End Select
  End Sub