CTRL + ALT + SHIFT + A 打开隐藏窗体

Question

我正在努力创建一个快捷键来打开某个表单，我有 KeyPreview = true 并且我正在使用这段代码并且效果很好！

#Region "Shortcuts"
    Private Sub frmQueuing_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If (e.KeyCode = Keys.A AndAlso e.Modifiers = Keys.Control) Then
            frmMain.show()
        End If
    End Sub
#End Region

但是我试图通过添加 Alt 和 Shift 来扩展该代码，但它现在不起作用。不知道为什么。

#Region "Shortcuts"
    Private Sub frmQueuing_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If (e.KeyCode = Keys.A AndAlso e.KeyCode = Keys.Shift AndAlso e.KeyCode = Keys.Alt AndAlso e.Modifiers = Keys.Control) Then
            frmMain.show()
        End If
    End Sub
#End Region

Answer 1

尝试使用

#Region "Shortcuts"
    Private Sub frmQueuing_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If (e.Control  AndAlso e.Shift AndAlso e.Alt AndAlso e.KeyCode = Keys.A) Then
            frmMain.show()
        End If
    End Sub
#End Region

这些链接将帮助您了解 KeyEventArgs.KeyCode Property and KeyEventArgs.Alt Property

之间的区别

Answer 2

您可以使用：

If e.KeyCode = Keys.A And Control.ModifierKeys = (Keys.Control + Keys.Shift + Keys.Alt) Then

CTRL + ALT + SHIFT + A 打开隐藏窗体

CTRL + ALT + SHIFT + A to open hidden form

vb.net

keydown