輸入特定字符之自動替換字符

'可以自動轉(zhuǎn)換特定字符,和輸入法相似. 輸入光標自動右移

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

最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時請結(jié)合常識與多方信息審慎甄別。
平臺聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點，簡書系信息發(fā)布平臺，僅提供信息存儲服務(wù)。

相關(guān)閱讀更多精彩內(nèi)容

友情鏈接更多精彩內(nèi)容