'可以自動(dòng)轉(zhuǎn)換特定字符,和輸入法相似. 輸入光標(biāo)自動(dòng)右移
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
