Нажатие клавиши в переменной - Visual Studio Basi c 2017

Question

Я пытаюсь сделать простую программу, вставляя все, что вы пишете в текстовое поле. Я делаю это в Visual Studio 2017. Это приложение Windows -Forms с Visual Basi c. Он работает в текущем состоянии, но я бы хотел добавить возможность настройки ключа. Прямо сейчас, когда вы нажимаете F12, он отправляет сообщение. Мне нужен простой способ запросить у пользователя ключ, и после того, как он нажмет его, он будет установлен как новый ключ вставки. Есть идеи, как я могу это сделать? Заранее спасибо.

Мой код ниже, где у меня есть Keys.F12 У меня есть / я хочу переменную, которая содержит ключ, установленный пользователем.

Dim hotkey As Boolean
hotkey = GetAsyncKeyState(Keys.F12)
If hotkey = True Then
SendKeys.Send(TextBox1.Text)
End If

Answer 1

Я думаю, это то, что вы ищете:

Private myNewKey As Char

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
    If e.KeyChar = Convert.ToChar(myNewKey) Then
        e.Handled = True ' to prevent getting the Press Key to be entered  
        TextBox1.Text = Clipboard.GetText
    End If
End Sub

Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
    myNewKey = e.KeyChar
    Label1.Text = "New paste key set to: " + e.KeyChar.ToString
End Sub

Эта программа меняет вставочный ключ каждый раз, когда пользователь меняет его на свой собственный wi sh. Просто объявите переменную, которая содержит новую указанную клавишу, и когда пользователю будет предложено ввести новую клавишу, ему будет назначена переменная.

В конце концов, когда пользователь нажимает ту же клавишу, TextBox1 Будет вызвано событие KeyPress, и текст TextBox будет установлен на Clipboard.GetText.

Ключ установлен на 5 , и когда пользователь нажимает его во время фокусировки на TextBox1 (второе поле), текст будет вставлен.

Answer 2

If e.KeyCode = Keys.F12 Then
SendKeys.Send(TextBox1.Text)
End If