表格键按帮助

Question

首先，我需要一种方法来知道控制键何时按下，这是链接：Form keyDown not working?

感谢他们，我得到了它的工作。但我注意到这不是我的最终目标！ 我不想在 keyDown 上检查控制键，而是在 keyPress 上检查它。但显然我不能使用

    If e.Control Then

    End If

在

Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

End Sub

方法。

有什么想法吗？我还想检查何时不再按下该键...

---

新问题：

 Private Sub controlTick(ByVal sender As Object, ByVal e As EventArgs)
        If Control.ModifierKeys = Keys.Control Then
            controlActivated = True
            PictureBox2.Invalidate()
        End If
        If Control.ModifierKeys <> Keys.Control Then
            controlActivated = False
            PictureBox2.Invalidate()
        End If
        Label1.Text = controlActivated
    End Sub

那是在一个计时器里面。出于某种原因，它总是“假”，除非我在按下控制键的情况下单击某处...

Answer 1

当您收到 KeyPress 事件时，当表单有任何控件时您不会收到该事件，Control 键状态已应用于按下的键。所以你会得到，比如说，Ctrl+V：

Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
    If e.KeyChar = ChrW(22) Then
        MessageBox.Show("Ctrl+V pressed")
    End If
End Sub

Ctrl+A = 1 等，通过 Ctrl+Z = 26。这非常可能是您想要做的，您也可以使用 Control.ModifierKeys 属性：

    If Control.ModifierKeys = Keys.Control Then
        MessageBox.Show("Control key pressed")
    End If

请注意，许多键不会生成 KeyPressed 事件，例如 Ctrl+F1。需要 KeyDown 来测试它们。

---

您应该在受控制键是否按下影响的任何操作中使用 Control.ModifierKeys。此计时器的 Tick 事件处理程序工作正常：

Private Sub timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
    Dim controlActivated As Boolean
    If (Control.ModifierKeys And Keys.Control) = Keys.Control Then
        controlActivated = True
    End If
    Label1.Text = controlActivated.ToString()
End Sub