声明一个全局boolean变量，用来标记richtextbox中文本变化和保存情况
Dim bSave As Boolean
Private Sub rtbox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rtbox.TextChanged
'文本发生了改变，则将变量bSave置为False
bSave = False
End Sub
2)关于在ComboBox中加载用户系统上的字体列表的问题
加载用户系统上的字体到写字板ComboBox的字体栏上，为了实现他，也花费了少时间，最终在VS.NET自带的Help中找到了答案。
'下面这段代码是加载当地系统中所有字体到Combobox中
Dim allfonts As FontFamily
For Each allfonts In System.Drawing.FontFamily.Families
comboxFont.Items.Add(allfonts.Name)
Next
就是在“查看”菜单中有个check按钮，当checked=true时点击它状态栏就隐藏，反之就取消隐藏。
Private Sub mStatusbar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mStatusbar.Click
If mStatusbar.Checked = True Then
StatusBar1.Visible = False
mStatusbar.Checked = False
Else
StatusBar1.Visible = True
mStatusbar.Checked = True
End If
End Sub
4）关于字体样式的问题
我觉得这是这个程序中最艰难的一部分，为了实现这个功能，查阅了不少资料，最终得以实现不用字体对话框设置，只用工具栏上按钮设置就能实现几个字体样式并用的功能。
上图中的“样”字就是既加粗又斜体又下划线，不要以为这个功能实现很简单，因为最初我发现如果一个字是加粗的，当我给他选择斜体按钮时，发现她原来的粗体样式消失了，变成只有斜体样式了，也就是说字体的样式不能并用，后来终于发现解决的方法。
其中的一个“or”确实十分关键，其了决定性作用。关键还是对VB的语法不太熟悉，如果是C++语言就好了。下面看看代码
'下面这个函数是用来增加字体的样式，比如加粗，下划线等等
Public Sub AddFontStyle(ByVal rtb As RichTextBox, _
ByVal style As System.Drawing.FontStyle)
' 如果选择的文本长度大于0，将一个一个字符地增加样式。
'这是十分必要的!因为被选择的字符可能同时含有多种样式，
' 而我们的原意只是保持所有原来的样式，同时增加上指定的样式
If rtb.SelectionLength > 0 Then
Dim selStart As Integer = rtb.SelectionStart
Dim selLength As Integer = rtb.SelectionLength
Dim currFont As System.Drawing.Font
Dim currStyle As System.Drawing.FontStyle
Dim i As Integer
For i = 0 To selLength - 1
' 选择的字符
rtb.Select(selStart + i, 1)
' 得到被选择字符的字体
currFont = rtb.SelectionFont
' 得到现在的样式，同时增加指定的样式
currStyle = currFont.Style
currStyle = currStyle Or style
' 然后使字符拥有新的字体和新的样式，有可能出现异常，
'因为不是所有字体都支持所有的样式，所以这里捕捉异常
Try
rtb.SelectionFont = New Font(currFont.FontFamily, currFont.Size, _
currStyle)
Catch ex As Exception
End Try
Next
rtb.Select(selStart, selLength)
Else
rtb.SelectionFont = New Font(rtb.SelectionFont, _
rtb.SelectionFont.Style Or style)
End If
End Sub
同样，取消样式也有同样的问题，当然也有同样的解决方法
'下面这个函数是用来去除用户指定的字体样式，如加粗，下划线等等
Public Sub RemoveFontStyle(ByVal rtb As RichTextBox, _
ByVal style As System.Drawing.FontStyle)
' 如果选择文本的长度大于0，将一个一个去除样式。
' 这是十分必要的！因为选择的文本中可能有许多不同的样式，而我们的原意是
' 保持所有原来的样式，除了那个要被去除的样式
If rtb.SelectionLength > 0 Then
Dim selStart As Integer = rtb.SelectionStart
Dim selLength As Integer = rtb.SelectionLength
Dim currFont As System.Drawing.Font
Dim currStyle As System.Drawing.FontStyle
Dim i As Integer
For i = 0 To selLength - 1
' 选择一个字符
rtb.Select(selStart + i, 1)
' 得到被选择字符的字体
currFont = rtb.SelectionFont
' 得到被选择字符的样式，同时去除要被除去的那个样式
currStyle = currFont.Style
currStyle = currStyle And Not style
' 然后赋予这些字符新的字体和样式
rtb.SelectionFont = New Font(currFont.FontFamily, currFont.Size, _
currStyle)
Next
' 保持原有的选择
rtb.Select(selStart, selLength)
Else
rtb.SelectionFont = New Font(rtb.SelectionFont, _
rtb.SelectionFont.Style And Not style)
End If
End Sub
3）关于查找替换功能
这里我用了一个Panel面板控件来放查找，查找下一个，替换按钮和文本框
我为什么不用一个窗体呢？因为我正好想练练拖动控件的代码，可以实现让这个面板在主窗体范围内拖动，由于看到了一个老外的教程，就顺便翻译了来练习练习。首先说说这个简单的查找替换功能，就是用户在第一个文本框中输入希望查找的字，然后点击查找按钮，程序就会在RichTextBox中查找相匹配的字，找到之后，将其高亮显示，点击下一个按钮，就会找到下一个匹配的字。。如此反复，直到结束，而替换就是把所有在RichTextBox中第一个文本框中的内容用第二个文本框的内容替换。是不是有些绕口令？还是亲自尝试一下就知道了。下面是查找替换相关代码（主要是创建一个FindText函数）：
'下面是关于实现查找功能
Dim MyPos As Integer '先声明一个全局变量
Private Sub FindText(ByVal start As Integer) '创建findtext函数
Dim pos As Integer
Dim target As String
'获取用户输入的要查找的字符串
target = txtbox.Text
pos = InStr(start, rtbox.Text, target)
If pos > 0 Then '找到了匹配字符串
MyPos = pos
rtbox.SelectionStart = MyPos - 1 '高亮显示
rtbox.SelectionLength = Len(txtbox.Text)
rtbox.Focus()
Else
MsgBox("没找到！")
End If
End Sub
给find按钮，findNext按钮
Private Sub find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles find.Click
FindText(1)
End Sub
Private Sub findnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles findnext.Click
FindText(MyPos + 1)
End Sub
拖动控件的代码：
'下面这段程序，用作拖拽“查找面板”使用
Dim dragging As Boolean
Dim mousex As Integer
Dim mousey As Integer
Private Sub panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
If e.Button = MouseButtons.Left Then
dragging = True
mousex = -e.X
mousey = -e.Y
Dim clipleft As Integer = Me.PointToClient(MousePosition).X - Panel1.Location.X
Dim cliptop As Integer = Me.PointToClient(MousePosition).Y - Panel1.Location.Y
Dim clipwidth As Integer = Me.ClientSize.Width - (Panel1.Width - clipleft)
Dim clipheight As Integer = Me.ClientSize.Height - (Panel1.Height - cliptop)
Cursor.Clip = Me.RectangleToScreen(New Rectangle(clipleft, cliptop, clipwidth, clipheight))
Panel1.Invalidate()
End If
End Sub
Private Sub panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
If dragging Then
'移动控件到新的位置
Dim MPosition As New Point()
MPosition = Me.PointToClient(MousePosition)
MPosition.Offset(mousex, mousey)
'确实控件不能离开主窗口
Panel1.Location = MPosition
End If
End Sub
Private Sub panel1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
If dragging Then
'结束拖拽
dragging = False
Cursor.Clip = Nothing
Panel1.Invalidate()
End If
End Sub 5）有关打印预览
起初以为很简单，但最后发现预览总是无法预览到实际文件，最终还是在微软站点上获得了相关信息，并很好的利用他到本应用程序中，而且十分成功，可以成功预览了。为了怕自己误导别人，所以把它原文也打印出来。
下面是两幅图片用来演示打印预览的效果。
打印预览相关代码：
（注意！以下有关打印的代码均来自微软技术文档中）
' 必须确定所有的打印事件都是针对同一个 PrintDocument
Private WithEvents pdoc As New PrintDocument()
' 打印文件是一个函数性的打印事件，每当要打印时该事件被触发
' 下面是一个非常快速和有用的精确计算要打印的文本是否能够被包括到整张打印页面
'是我从微软站点上得到的资料，我把它应用到了我的程序中
Private Sub pdoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pdoc.PrintPage
' Declare a variable to hold the position of the last printed char. Declare
' as static so that subsequent PrintPage events can reference it.
Static intCurrentChar As Int32
' Initialize the font to be used for printing.
Dim font As New font("Microsoft Sans Serif", 24)
Dim intPrintAreaHeight, intPrintAreaWidth, marginLeft, marginTop As Int32
With pdoc.DefaultPageSettings
' Initialize local variables that contain the bounds of the printing
' area rectangle.
intPrintAreaHeight = .PaperSize.Height - .Margins.Top - .Margins.Bottom
intPrintAreaWidth = .PaperSize.Width - .Margins.Left - .Margins.Right
