如何使用我创建的VB关键字在文本编辑器中编写

时间:2018-08-24 14:08:15

标签: vb.net visual-studio

我在Visual Basic中制作了一个键盘应用程序,但无法使其在Word等其他文本编辑器应用程序中编写

my keyword

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

很明显我错过了一些事情

0 个答案:

没有答案