菜鸟问题，请问要怎么改变richtextbox中的字体（全篇的）

Question

RichTextBox1.Font = "幼圆"

Answer 1

那别的那些字体的属性呢？我编了一个记事本的程序，写到字体这部分的时候只能改变被选择部分的字体属性，但是如果我不选择的话，本来应该是改变整篇文章的字体属性，RichTextBox1.SelFontName = CommonDialog1.FontName 
RichTextBox1.SelFontSize = CommonDialog1.FontSize 
RichTextBox1.SelColor = CommonDialog1.Color 
RichTextBox1.SelItalic = CommonDialog1.FontItalic 
RichTextBox1.SelStrikeThru = CommonDialog1.FontStrikethru 
RichTextBox1.SelUnderline = CommonDialog1.FontUnderline 
RichTextBox1.SelBold = CommonDialog1.FontBold 
我该怎么改？该用什么属性？

Answer 2

如果装入的文章是txt格式的，richtextbox1.font="**"才有效，
如果装入的文章是rtf格式的，就应该先全选，再设定字体。

Answer 3

RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelFontSize = 
RichTextBox1.selFont = 

Answer 4

to  lou_df(ldf)
这种办法我试过了，是可以实现，不过如果文章长的话整篇文章都会先变成蓝色-改变字体-移动光标（免得全篇都是蓝的）。晃来晃去的眼睛看着不舒服，效率也低，有没有好点的办法 ？谢谢。

Answer 5

RichTextBox1.Visible = False    '<======= '变为不可见
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelFontSize = 26
RichTextBox1.Visible = True     '<======= '恢复为可见
    

Answer 6

hand2001(我爱VB不爱我)的方法不失为一个变通的办法。
还有更好的办法吗？

Answer 7

一段一段来变化,即RichTextBox1.SelStart和RichTextBox1.SelLength在循环中不断赋值,可能会好些.

Answer 8

我写好了，不过代码太复杂了。有那位大虾能帮我看看什么地方可以精简吗？
Dim X As IntegerCommonDialog1.Flags = cdlCFEffects + cdlCFBoth 
CommonDialog1.FontName = "宋体"
CommonDialog1.ShowFont 
If RichTextBox1.SelLength = 0 Then
   X = MsgBox("你没有选择文本，继续将改变所有文本的字体，继续吗？", vbOKCancel, "确认改变字体")
    If X = vbOK Then
        RichTextBox1.Visible = False 
        RichTextBox1.SelStart = 0
        RichTextBox1.SelLength = Len(RichTextBox1.Text)
        RichTextBox1.SelFontName = CommonDialog1.FontName 
        RichTextBox1.SelFontSize = CommonDialog1.FontSize 
        RichTextBox1.SelColor = CommonDialog1.Color 
        RichTextBox1.SelItalic = CommonDialog1.FontItalic 
        RichTextBox1.SelStrikeThru = CommonDialog1.FontStrikethru 
        RichTextBox1.SelUnderline = CommonDialog1.FontUnderline 
        RichTextBox1.SelBold = CommonDialog1.FontBold 
        RichTextBox1.SelStart = Len(RichTextBox1.Text)
        RichTextBox1.Visible = True
    End If
    
Else    RichTextBox1.SelFontName = CommonDialog1.FontName 
    RichTextBox1.SelFontSize = CommonDialog1.FontSize 
    RichTextBox1.SelColor = CommonDialog1.Color '
    RichTextBox1.SelItalic = CommonDialog1.FontItalic 
    RichTextBox1.SelStrikeThru = CommonDialog1.FontStrikethru 
    RichTextBox1.SelUnderline = CommonDialog1.FontUnderline 
    RichTextBox1.SelBold = CommonDialog1.FontBold 
End If

Answer 9

哈哈，终于自己搞定了：）
Private Sub ziti_Click() 
Dim X As Integer
Dim textstart As Integer
textstart = RichTextBox1.SelStart
CommonDialog1.Flags = cdlCFEffects + cdlCFBoth '显示所有字体、颜色
CommonDialog1.FontName = "宋体"
CommonDialog1.ShowFont '字体对话框调用
If RichTextBox1.SelLength = 0 Then
   X = MsgBox("你没有选择文本，继续将改变所有文本的字体，继续吗？", vbOKCancel, "确认改变字体")
    If X = vbOK Then
        RichTextBox1.Visible = False 
        RichTextBox1.SelStart = 0
        RichTextBox1.SelLength = Len(RichTextBox1.Text)
    End If
End If
RichTextBox1.SelFontName = CommonDialog1.FontName 
RichTextBox1.SelFontSize = CommonDialog1.FontSize 
RichTextBox1.SelColor = CommonDialog1.Color 
RichTextBox1.SelItalic = CommonDialog1.FontItalic 
RichTextBox1.SelStrikeThru = CommonDialog1.FontStrikethru 
RichTextBox1.SelUnderline = CommonDialog1.FontUnderline 
RichTextBox1.SelBold = CommonDialog1.FontBold 
RichTextBox1.SelStart = textstart
RichTextBox1.Visible = TrueEnd Sub