vb.net 教程 3-11 窗体控件综合编程 2-3

发布时间：2020-12-17 07:32:32 所属栏目：百科来源：网络整理

导读：续上一节 rtf编辑器已经基本完工，那么我们可以运行进行测试，不错，一切都运行的很好。但是，当我们使用了粗体时，偶尔会发生错误：那么，分析一下造成这种情况的原因：当选择的单一字体时不会发生，但是当两种字体混合处理的时候就会发生。 Dim selFon

续上一节

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

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

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

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

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

Dim selFontName As String = RichTextBox1.SelectionFont.Name

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

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

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

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

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

    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

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

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

    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

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

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

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

    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

这下完美解决了。不会再像打字机一样了。

不过，奇怪的是，处理的时候，RichTextBox2中也没有像打字机一样，真是太奇怪了。。。。

总之是把这个问题解决了。

最后还有些问题留给读者解决：

1、如果是打开已有文档，保存的时候不再弹出保存文件对话框。（设置一个窗体级变量保存打开的文档全路径）

2、增加另存为。（参考当前的保存时候的代码）

3、修改选中的一段文字字体的时候，不修改文字大小。注意：可能选中多个大小不同的文字。（参考本节修改的代码）

4、修改选中的一段文字大小的时候，不修改文字字体。注意：可能选中多个字体不同的文字。（参考本节修改的代码）

5、完善斜体、下划线按钮代码。（参考本节修改的代码）

6、在帮助菜单下加入一个“帮助” 。（参考 vb.net 教程 3-2 窗体编程之窗体 1系列，弹出新的窗体，里面是帮助内容）

学习更多vb.net知识，请参看 vb.net 教程目录

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!