Как я могу создать сочетание клавиш для кнопки?

Question

Я хочу использовать клавишу клавиатуры, чтобы создать сочетание клавиш для Button1:

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Toggle = Toggle + 1
    If Toggle = 1 Then
        Timer1.Start()
        Button1.Text = "Toggle Off"
    Else
        Timer1.Stop()
        Toggle = 0
        Button1.Text = "Toggle On"
    End If

Таймер1 Функция:

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Randomize()
    Dim rnd As New Random
    Dim minval As Integer
    Dim maxval As Integer

    minval = 1000 / TrackBar1.Value
    maxval = 1000 / TrackBar2.Value

    Timer1.Interval = rnd.Next(maxval, minval)

    If MouseButtons = MouseButtons.Left Then
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    End If
End Sub

Answer 1

Я не читал всю ветку, но я думаю, вы найдете здесь больше информации.

В основном вам необходимо выполнить следующие шаги:

1. Поймать событие Keydown системного или прикладного уровня
2. Проверить, какая клавиша была нажата
3. Если клавиша, которая должна использоваться в качестве ярлыка, была нажата, вызовите вспомогательный элемент Click Handling вашей кнопки

---

Так, как в примере с событием Form Keydown, вызов кнопки «LeButton» с помощью ярлыка «a» (когда нажата клавиша «a») (этот пример не работает, потому что MyBase.KeyDownэто не событие для всего приложения, но оно может вам помочь)

Public Sub form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown   
   If e.KeyCode = Keys.A Then
      LeButton_Click()
   End If
End Sub

Public Sub LeButton_Click(sender As Object, e As EventArgs) Handles LeButton.Click
     MsgBox("This is a Message Box")
End Sub

PS Извините за мою плохую грамматику, я швейцарец и очень молод ...