放置一个button，命名为退格，单击button应该作为文本框上的实际退格

我正在创build一个使用vba excel 2007的多语言键盘，我已经添加了button来显示文本框中的字符，所以如果我想inputA，那么我已经编写了代码

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

现在，我已经放置了一个button退格键，另一个input，另一个逃生，f1等…但如何编写代码，如果我想button名称backspace完全作为backspacebutton在实际的键盘，并enter为enter等上….

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

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 

退格 ：

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click txtCash.Focus() SendKeys.Send("{BACKSPACE}") End Sub