用于在单击Winforms时按住SHIFT的事件句柄

Question

我的Visual Basic.NET项目表单（VS 2013）中有以下事件句柄。

我想知道我是否可以对其进行修改，以便区分正常点击和按下按钮时有人按住SHIFT按钮。

Private Sub btnLLDoubleDip_Click(sender As Object, e As EventArgs) Handles btnLLDoubleDip.Click
    ' Double Dip is easy...

    ' Stop the timer

    ' Create a flag that this is now a double dip attempt, NO MORE WALK OUTS
End Sub

Answer 1

您可以使用ModifierKeys.HasFlag函数：

If ModifierKeys.HasFlag(Keys.Shift) Then
  MessageBox.Show("Shift is pressed")
Else
  MessageBox.Show("Shift is not pressed")
End If