在指定的事件下加上
richtextbox.selstart=开始改变的位置
richtextbox.sellength=改变范围
richtextbox.selcolor=字体颜色

解决方案 »

  1.   

    lou_df你的方法不行,我试过
    我也苦恼这个问题
      

  2.   

    Private Sub Command1_Click()
        With Me.RichTextBox1
            .SelStart = 0
            .SelLength = Len(.Text) / 2
            .SelColor = vbRed
        End With
    End Sub
    可以正确执行的啊!?请详述你试时具体情况。
      

  3.   

    可以先用 find方法定位你要改变的内容.其他的同意楼上的意见.
      

  4.   

    我的意思是可以通过字体和颜色设置对话框来改变richtextbox字体的属性,而不是单存的给他设置一个字体常量