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

前端之家收集整理的这篇文章主要介绍了vb.net 教程 3-11 窗体控件综合编程 2-3前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
续上一节
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 教程 目录

猜你在找的VB相关文章