输入特定字符之自动替换字符

'可以自动转换特定字符,和输入法相似. 输入光标自动右移

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