Question

我正在使用vba excel 2007创建一个多语言键盘，我添加了按钮来显示文本框中的字符，所以如果我想输入A然后我编写了代码

Private Sub CommandButton88_Click() 
 TextBox1.Text =  ChrW(65) 
End Sub

现在我已经为退格键添加了一个按钮，另一个用于输入，另一个用于转义，f1等...但是如果我希望名为backspace的按钮与{{1}完全一致的话，如何编写代码实际键盘上的按钮和backspace enter等等......

请回复，看到enter和keyascii，但如何将其应用于文本框以作为application.sendkeys({backspace})，backspace等工作...请回复，以便退格发现为chr（8），但如何申请？

Answer 1

Private Sub frmMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown 

Select Case e.KeyCode
        Case Keys.W
            MessageBox.Show("Move forward")
        Case Keys.A
            MessageBox.Show("Move left")
        Case Keys.S
            MessageBox.Show("Move back")
        Case Keys.D
            MessageBox.Show("Move right")
    End Select

    End Sub

<强> BACKSPACE

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

txtCash.Focus()
SendKeys.Send("{BACKSPACE}")

End Sub

放置一个按钮并命名为退格键，当单击按钮应作为文本框上的实际退格键

1 个答案: