使用Select Case和OnKeyDown，如何获得第二个修饰键？

Question

使用 VB.net 和 VS 2022...

我使用相当长的键盘快捷键列表来使用 Alt+ 生成 HTML 代码。在 KeyDown 事件中，我有一个 If-Then 块，其中包含一个 Select Case 块。 If-Then 测试 Alt 键，然后 Select Case 查找按下的键。我需要使用 Alt+D 有两种情况，并且正在尝试对其中一种使用 Alt+Shift+D。但我没能让它发挥作用。请告诉我 Case 语句的正确语法。

非常感谢

Answer 1

If e.Alt Then
   Select Case e.KeyCode
       Case Keys.D
           If e.Shift Then
           Else
           End If
   End Select
End If