求助！！RichText的字体问题:我想在给richtext赋值时，就加进字体（如黑体，加粗）信息，我该如何作，

Question

求助！！RichText的字体问题:我想在给richtext赋值时，就加进字体（如黑体，加粗）信息，我该如何作，richtext.selFontName 属性是在使用者选择了一段文字后，再设定它的字体，我要实现的是程序赋给richtext文字时就有各种字体，有加粗有斜体，该怎么做？？谢谢！！

Answer 1

只要控制一下就行了。
Private Sub Command1_Click()
RichTextBox1.SelBold = True
RichTextBox1.SelText = "123123123"
RichTextBox1.SelBold = FalseRichTextBox1.SelFontSize = 18
RichTextBox1.SelText = "OK
'RichTextBox1.SelFontSize = 你的字体默认大小RichTextBox1.SelFontName = 楷体_GB2312"
RichTextBox1.SelText = 楷体汉字"
'RichTextBox1.SelFontName = 你的默认字体'其他的sel属性全部可以设置，只要先一步设置，然后用seltext就行了。记得还原那些属性
Sub

Answer 2

你只要在菜单里设置一个"字体"然后在这个"字体"单击里面加入如下代码,,,就OK了,,你要怎么改变,,怎样的字体都有啦,,,
Private Sub munfont_Click()
On Error Resume Next
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
Text1.FontSize = CommonDialog1.FontSize
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Text1.FontUnderline = CommonDialog1.FontUnderline
Text1.ForeColor = CommonDialog1.Color
End Sub