'可以自动转换特定字符,和输入法相似. 输入光标自动右移
If InStr(TextBox2.Text, "da") > 0 Then
TextBox1.Text = TextBox1.Text + "答"
TextBox2.Text = Replace(TextBox2.Text, "da", "")
TextBox2.Focus()
TextBox2.SelectionStart = TextBox2.Text.Length
End If
If InStr(TextBox2.Text, "wa") > 0 Then
TextBox1.Text = TextBox1.Text + "哇"
TextBox2.Text = Replace(TextBox2.Text, "wa", "")
TextBox2.Focus()
TextBox2.SelectionStart = TextBox2.Text.Length
End If
If InStr(TextBox2.Text, "qa") > 0 Then
TextBox1.Text = TextBox1.Text + "呀"
TextBox2.Text = Replace(TextBox2.Text, "qa", "")
TextBox2.Focus()
TextBox2.SelectionStart = TextBox2.Text.Length
End If
