像Windows資源管理器菜單欄一樣自動隱藏MenuStrip

Question

我正在嘗試模擬Windows資源管理器菜單欄（win7）的行為。

我檢查了這個問題但它不符合我的要求。

預期行為：

• 按Alt鍵==>切換MenuStrip visible屬性。
• 按Alt + access key char ==>顯示MenuStrip並打開目標菜單。
• 與表單的任何其他區域交互（即取消激活MenuStrip ）==>隱藏MenuStrip 。

我的“ 最小，完整，可驗證 ”的代碼：

Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.KeyPreview = True
    menuBar.Visible = False
End Sub

Private Sub frmMain_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
    If e.KeyCode = Keys.Menu Then ' Requirement #1
        menuBar.Visible = Not menuBar.Visible
    End If
End Sub

Private Sub frmMain_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
    If e.Alt AndAlso e.KeyCode <> Keys.Menu Then ' Requirement #2
        menuBar.Visible = True
    End If
End Sub

Private Sub menuBar_MenuDeactivate(sender As Object, e As EventArgs) Handles menuBar.MenuDeactivate
    menuBar.Visible = False ' Requirement #3
End Sub

問題：

當MenuStrip可見時按Alt鍵，將觸發事件MenuDeactivate ，並在KeyDown隱藏MenuStrip ，然后在KeyUp再次顯示。

我嘗試添加一個布爾值，在KeyDown事件中將其設置為false，然后在KeyUp事件中將其設置為true，因此我可以在設置menuBar.Visible = False之前檢查其值，但是，意外地，事件MenuDeactivate在KeyDown之前觸發，無論keydown事件是否為形式或menustrip。

有任何想法嗎？

旁注 ：盡管我的代碼是在VB中，但歡迎使用C＃代碼的任何答案。

Answer 1

我設法找出了解決這個問題的方法，即在MenuDeactivate事件中隱藏MenuStrip之前，只需檢查是否按下了Alt鍵，如下所示：

If Not My.Computer.Keyboard.AltKeyDown Then menuBar.Visible = False

有人感興趣 的完整實施 ：

Private Sub frmMain_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp
    If e.KeyCode = Keys.Menu Then
        menuBar.Visible = Not menuBar.Visible
    End If
End Sub

Private Sub frmMain_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
    If e.Alt AndAlso e.KeyCode <> Keys.Menu Then
        menuBar.Visible = True
    ElseIf e.KeyData = Keys.Escape Then
        menuBar.Visible = False
    End If
End Sub

Private Sub menuBar_MenuDeactivate(sender As Object, e As EventArgs) Handles menuBar.MenuDeactivate
    If Not My.Computer.Keyboard.AltKeyDown Then menuBar.Visible = False
End Sub

希望它會幫助別人:)