如何解决richtext控件，当进行更改字体、大小，以及删除时的乱码问题.txt

VB技巧问答10000例 VB技巧问答10000例

我估计您是用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 
<END>