续上一节 @H_404_1@

rtf编辑器已经基本完工，那么我们可以运行进行测试， @H_404_1@

@H_404_1@

不错，一切都运行的很好。 @H_404_1@

@H_404_1@

但是，当我们使用了粗体时，偶尔会发生错误： @H_404_1@

@H_404_1@

那么，分析一下造成这种情况的原因： @H_404_1@

当选择的单一字体时不会发生，但是当两种字体混合处理的时候就会发生。 @H_404_1@

@H_404_1@

Dim selFontName As String = RichTextBox1.SelectionFont.Name @H_404_1@

@H_404_1@

为了在粗体时，原有文字不改变字体大小，所以在这一句代码定义了字体名称为已经选择的字体，那么看看MSDN的说明： @H_404_1@

@H_404_1@

红色框内的备注告诉了我们答案，如果有多种字体，那么SelectionFont为Nothing。 @H_404_1@

那么如何解决这个问题呢？ @H_404_1@

@H_404_1@

下面谈谈我的解决方法，当然你有好一点的解决方法也请告诉我。 @H_404_1@

最初的方法是，一个字一个字地分析用的字体，这样就不会发生出现多个字体的情况，就不会造成选择的字体是Nothing： @H_404_1@

@H_404_1@

    Private Sub ToolStripButton7_Click(sender As Object,e As EventArgs) Handles ToolStripButton7.Click
        Dim posStart As Integer = RichTextBox1.SelectionStart
        Dim posLength As Integer = RichTextBox1.SelectionLength

        For i As Integer = 0 To posLength - 1
            RichTextBox1.Select(posStart + i,1)
            Dim selFontName As String = RichTextBox1.SelectionFont.Name
            Dim selFontSize As Integer = RichTextBox1.SelectionFont.Size
            Dim selFontStyle As FontStyle = RichTextBox1.SelectionFont.Style Xor FontStyle.Bold
            RichTextBox1.SelectionFont = New Font(selFontName,selFontSize,selFontStyle)
        Next

        RichTextBox1.Select(posStart,posLength)
    End Sub

@H_404_1@

运行的时候确实可以实现粗体，但是我发现了第一个很大的问题，我需要的是选择的一段文字要么粗体，要么不是粗体；第二个问题，执行的时候如同打字机一样的显示。 @H_404_1@

第一个问题很好解决，修改代码如下： @H_404_1@

    Private Sub ToolStripButton7_Click(sender As Object,e As EventArgs) Handles ToolStripButton7.Click
        Dim posStart As Integer = RichTextBox1.SelectionStart
        Dim posLength As Integer = RichTextBox1.SelectionLength

        RichTextBox1.Select(posStart,1)
        Dim selFontStyle As FontStyle = RichTextBox1.SelectionFont.Style Xor FontStyle.Bold

        For i As Integer = 0 To posLength - 1
            RichTextBox1.Select(posStart + i,1)
            Dim selFontName As String = RichTextBox1.SelectionFont.Name
            Dim selFontSize As Integer = RichTextBox1.SelectionFont.Size
            'Dim selFontStyle As FontStyle = RichTextBox1.SelectionFont.Style Xor FontStyle.Bold-->这里被注释掉了
            RichTextBox1.SelectionFont = New Font(selFontName,posLength)
    End Sub

先判断选择的第一个文字是不是粗体，如果不是，那么选中这一段全部都是粗体，如果是粗体，那么选中的这一段全部都不是粗体。 @H_404_1@

第一个问题是解决了，但是第二个问题始终存在。 @H_404_1@

@H_404_1@

于是，我又想了个办法，类似于处理图片时使用的双缓冲方法，增加一个richtextBox，在这个里面处理好后再复制到真正处理Rtf的RichtextBox（先在窗体上再增加一个富文本框：RichTextBox2，实际运行的时候不显示出来）： @H_404_1@

    Private Sub ToolStripButton7_Click(sender As Object,e As EventArgs) Handles ToolStripButton7.Click
        Dim posStart As Integer = RichTextBox1.SelectionStart
        Dim posLength As Integer = RichTextBox1.SelectionLength

        RichTextBox2.Clear()
        ' 
        RichTextBox2.Rtf = RichTextBox1.SelectedRtf

        Dim posStart2 As Integer = 0
        Dim posLength2 As Integer = RichTextBox1.SelectionLength

        RichTextBox2.Select(posStart2,1)
        Dim selFontStyle As FontStyle = RichTextBox2.SelectionFont.Style Xor FontStyle.Bold

        For i As Integer = 0 To posLength2 - 1
            RichTextBox2.Select(posStart2 + i,1)
            Dim selFontName As String = RichTextBox2.SelectionFont.Name
            Dim selFontSize As Integer = RichTextBox2.SelectionFont.Size
            RichTextBox2.SelectionFont = New Font(selFontName,selFontStyle)
        Next

        RichTextBox2.Select(0,RichTextBox2.TextLength)
        RichTextBox1.SelectedRtf = RichTextBox2.SelectedRtf

        RichTextBox1.Select(posStart,posLength)

    End Sub