版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
续上一节
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, selFontSize, selFontStyle)
Next
RichTextBox1.Select(posStart, 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, selFontSize, 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教程 目录
————————————————
版权声明:本文为CSDN博主「VB.Net」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。