如何解决richtext控件，当进行更改字体、大小，以及删除时的乱码问题
编号：QA004141
建立日期: 2001年4月23日 最后修改日期：2001年4月23日
所属类别：
oau:
操作系统：win98
工具：vb6.0
问题：如何解决richtext控件的中文输入后，当进行更改字体、大小，以及删除时的乱码问题？
水平: 刚入门
回答:
我估计您是用CommonDialog的ShowFont改变所选字符串的颜色\大小的,请先把所选内容的原始设置读下来,因为CommonDialog有个毛病,当你改变除字体以外的内容时,如果不设置字体时,字体会默认为英文字体,当然中文就显示不出来了,写几句话您看一下,若还有问题,请发email给我
CommonDialog1.Flags = &H3 Or &H100
If IsNull(Text1.SelFontName) = True Then
CommonDialog1.FontName = "宋体" '当您选择了混合字体时SelFontName为空
Else
CommonDialog1.FontName = Text1.SelFontName
End If
CommonDialog1.FontSize = Text1.SelFontSize
CommonDialog1.FontBold = Text1.SelBold
CommonDialog1.FontItalic = Text1.SelItalic
CommonDialog1.Color = Text1.SelColor
CommonDialog1.FontStrikethru = Text1.SelStrikeThru
CommonDialog1.FontUnderline = Text1.SelUnderline
CommonDialog1.ShowFont
If Err <> cdlCancel Then
Text1.SelFontName = CommonDialog1.FontName
Text1.SelFontSize = CommonDialog1.FontSize
Text1.SelBold = CommonDialog1.FontBold
Text1.SelItalic = CommonDialog1.FontItalic
Text1.SelColor = CommonDialog1.Color
Text1.SelStrikeThru = CommonDialog1.FontStrikethru
Text1.SelUnderline = CommonDialog1.FontUnderline
End If
相关问题：
QA004139 "使用RICHED20.DLL，结果中文查找失效了"
此问题由武永忠回答。
| |
|
|
| |
|
|
