用VB.net 2005创建文本编辑器
http://tech.ddvip.com 2008年02月25日 社区交流
内容摘要：VB.net2005以强大的控件功能而闻名，我们如果能够好好地去利用这些控件，想要编写一个复杂的程序将不在是难事。大家知道文本编辑器是我们最常用的应用程序，是否想过用VB.net也来开发一个这样的程序呢？
5、SolidColorOnly 属性：指示对话框是否限制用户只选择纯色。默认值为 false。如果用户只能选择纯色，则为 true；否则为 false。
PrintDialog控件 是打印控件
PrintDialog组件：
可使用 ShowDialog 方法在运行时显示对话框。此组件具有与单个打印作业（PrintDocument 类）或个别打印机的设置（PrinterSettings 类）相关的属性。这两类属性反过来可由多个打印机共享。此时基本界面设置完成将RichTextBox的Scrollbar属性设置为ForcedVertical anchor属性进行合适调整如图
接下来输入相应代码了请特别注意：
进入相应菜单事件，你可以选择菜单比如：文件-打开（请双击打开）就会
出现Private Sub 打开ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开ToolStripMenuItem.Click事件
接下来输入相应代码：
Private Sub 打开ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开ToolStripMenuItem.Click
Try
Dim str As String
OpenFileDialog1.Filter = "txt files (*.txt) *.txt All files (*.*) *.*"
OpenFileDialog1.ShowDialog()
str = OpenFileDialog1.FileName
RichTextBox1.LoadFile(str, RichTextBoxStreamType.PlainText)
Catch ex As Exception
End Try
End Sub
Private Sub 保存ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存ToolStripMenuItem.Click
Try
Me.SaveFileDialog1.ShowDialog()
Dim str1 As String
str1 = SaveFileDialog1.FileName
Me.RichTextBox1.SaveFile(str1, RichTextBoxStreamType.PlainText)
Catch ex As Exception
End Try
End Sub
Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub 打印ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印ToolStripMenuItem.Click
Dim pd As New System.Drawing.Printing.PrintDocument
Me.PrintDialog1.Document = pd
pd.Print()
End SubPrivate Sub 剪贴ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪贴ToolStripMenuItem.Click
Me.RichTextBox1.Cut()
End Sub
Private Sub 复制ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 复制ToolStripMenuItem.Click
Me.RichTextBox1.Copy()
End Sub
Private Sub 粘贴ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘贴ToolStripMenuItem.Click
Me.RichTextBox1.Paste()
End Sub
Private Sub 撤销ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 撤销ToolStripMenuItem.Click
Me.RichTextBox1.Undo()
End Sub
Private Sub 全选ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全选ToolStripMenuItem.Click
Me.RichTextBox1.SelectAll()
End Sub
Private Sub 清空ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 清空ToolStripMenuItem.Click
Me.RichTextBox1.Clear()
End Sub
Private Sub 格式ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 格式ToolStripMenuItem.Click
End Sub
Private Sub 颜色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 颜色ToolStripMenuItem.Click
Me.ColorDialog1.ShowDialog()
Me.RichTextBox1.SelectionColor = Me.ColorDialog1.Color
End Sub
Private Sub 字体ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 字体ToolStripMenuItem.Click
Me.FontDialog1.ShowDialog()
Me.RichTextBox1.SelectionFont = Me.FontDialog1.Font
End Sub 好了输入代码完成后，运行一下试一试看，如图
来源：豆豆网转载 作者：硅谷动力 许城 责编：豆豆技术应用
正在加载评论...