在RICHTEXTBOX输入一个字符，一种是用输入法输入的，一种是用键盘直接输入的，如何将用输入法输入的字符，在输入后立即转换为指定字符

[6742]

在RICHTEXTBOX输入一个字符，一种是用输入法输入的，一种是用键盘直接输入的，如何将用输入法输入的字符，在输入后立即转换为指定字符？

Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)

If KeyAscii = 60 Then '60对应的字符是<
KeyAscii = 0
SendMessage RichTextBox1.hwnd, EM_REPLACESEL, 0, ByVal "〈"
End If

End Sub

上边的程序，可以将键盘输入的<，转换成〈。但是如何将用汉字输入法输入的一个字符，如“一”，转换成“五”这个指定字符呢？

[bcrun]

好像是要子类化处理WM_IME_CHAR或WM_IME_COMPOSITION消息,没做过,挺麻烦的,呵呵

[6742]

已经解决，帖出来与大家分享
Private Sub RichTextBox1_Change()

Dim p As Integer
p = RichTextBox1.SelStart

If p > 0 Then
If Mid(RichTextBox1.Text, p, 1) = "一" Then
RichTextBox1.Text = Left(RichTextBox1.Text, p - 1) & "五" & Right(RichTextBox1.Text, Len(RichTextBox1.Text) - p)
RichTextBox1.SelStart = p
End If
End If

End Sub

不过，就是我输入“一”的时候，可以变成“五”，但是如果输入的是词组“五一”，这中间的“一”也变成“五”，如果输入的是“一鸣惊人”，这中间的“一”就不会变了。如何使这个“一”也改变，请教高手了

[帝企鹅已被占用]

用replace（RichTextBox1，"一"，“五”）

[赵4老师]

引用 3 楼 patrickkong 的回复:

用replace（RichTextBox1，"一"，“五”）

正解

[赵4老师]

RichTextBox1.Text =replace(RichTextBox1.Text ,"一","五")

[舉杯邀明月]

内容非常多时，比较慢。
要是可以直接操作 .text 成员的内存就好了。

Option Explicit
Private txtLen As Long

Private Sub Form_Load()
    txtLen = Len(RichTextBox1.Text)
End Sub

Private Sub RichTextBox1_Change()
    Dim p&, i&, lLen&, strTemp$
    p = RichTextBox1.SelStart
    lLen = Len(Me.RichTextBox1.Text)
    i = lLen - txtLen
    If (i > 0) Then
        strTemp = RichTextBox1.Text
        For txtLen = p - i + 1 To p
            If (Mid$(strTemp, txtLen, 1) = "一") Then Mid$(strTemp, txtLen, 1) = "五"
        Next
        RichTextBox1.Text = strTemp
        RichTextBox1.SelStart = p
    End If
    txtLen = lLen
End Sub

[zfl2k]

replace最好最容易的办法

[6742]

前面的都涉及到字符串的变换，我想要的，是不是可以通过API什么的，直接在输入时就将其转换过来

[6742]

顺便问一下，有谁有PDF文件的格式说明。我下载了一个英文版的，有中文版的么？我要这个，请发：[e-mail]，谢谢

[bcrun]

引用 2 楼 6742 的回复:

已经解决，帖出来与大家分享

...

不过，就是我输入“一”的时候，可以变成“五”，但是如果输入的是词组“五一”，这中间的“一”也变成“五”，如果输入的是“一鸣惊人”，这中间的“一”就不会变了。如何使这个“一”也改变，请教高手了

楼主你这样解决当然就是取巧了,我的意思是,解决的是和你楼顶说的不是一个问题,所以你就会继续遇到你后面说的"不过..."等问题了.包括他们后面说的用Replace啥的,其实都是练绕开了问题.
当然如果这样能适合你的开发需要,固然更好,否则的话,还是踏实些,从我在一楼说的那个途径去考虑问题吧.

[6742]

引用 9 楼 bcrun 的回复:

否则的话,还是踏实些,从我在一楼说的那个途径去考虑问题吧.

是不是能给一个详细点的说明