我在Visual Basic中制作了一个键盘应用程序,但无法使其在Word等其他文本编辑器应用程序中编写
Public Class keyb
Private Sub Btn(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button9.Click, Button8.Click, Button7.Click, Button6.Click, Button5.Click,
Button48.Click, Button47.Click, Button46.Click, Button45.Click, Button44.Click,
Button43.Click, Button42.Click, Button41.Click, Button40.Click, Button4.Click,
Button39.Click, Button38.Click, Button37.Click, Button36.Click, Button35.Click,
Button34.Click, Button33.Click, Button32.Click, Button31.Click, Button30.Click,
Button3.Click, Button29.Click, Button28.Click, Button26.Click, Button25.Click,
Button24.Click, Button23.Click, Button22.Click, Button21.Click, Button20.Click,
Button2.Click, Button19.Click, Button18.Click, Button17.Click, Button16.Click,
Button15.Click, Button14.Click, Button13.Click, Button12.Click, Button11.Click,
Button10.Click, Button1.Click
If ShiftR.FlatStyle = FlatStyle.Flat Then
TextBox1.Text = TextBox1.Text + sender.text
ShiftR.PerformClick()
Else
TextBox1.Text = TextBox1.Text + sender.text
End If
End Sub
Private Sub Back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Back.Click
If TextBox1.Text < " " Then
TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1 + 1)
Else
TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1)
End If
End Sub
End Class
很明显我错过了一些事情