vb课程设计说明书.doc

Vb课程设计说明书学生姓名： 学 号： 系别班级： 题 目： 记事本应用程序   2011年 12月19日1 选题背景与意义1．1 背景 为了满足一般用户对文本文件编辑的最基本需求，主要包括文本输入、字体编辑、支持纯文本文件的保存和文件打开处理等功能。所以在老师的帮助和自己查阅书籍的情况下，选择了记事本应用程序这个题目。1.1.1 记事本应用程序的要求记事本应用程序要求实现新建，打开，保存文件，对文本进行字体颜色编辑，对文本实现查找，能够复制粘贴功能。1.1.2 记事本应用程序的功能文件：可在任意时刻打开或新建文件，可将文件另存为和打印。也可对打开后的任意文件进行保存关闭。在退出时，对于没有保存的文件，程序将给予提示。编辑：支持所有块操作。利用菜单或快捷键进行设置，有粘贴、复制、剪切、全选等功能。对齐：包括居中、左对齐、右对齐。颜色：有黑色、蓝色、绿色、红色以及所有颜色。样式：粗体、下划线、删除线、斜体。查找：查找和查找下一个。帮助：提供对所有操作的详细说明。几乎所有操作都有对应的快捷键，使用户使用更加方便。1．2 意义通过设计记事本程序，学会了更好的使用CommonDialog 控件、ComboBox控件、RichTextBox等一些重要控件，掌握了如何设计工具栏和状态栏，在设计的过程中，把课堂上学到的知识，真正的运用到实践当中去，不仅加深了旧知识，还学到了一些新知识，收获很大。2 主要程序代码及图示Private Sub mnuedit_Click() 编辑 菜单项代码If RichTextBox1.SelLength 0 Then 如果文本框中有选中的内容muncut.Enabled = True 则剪切\复制\删除和粘贴菜单有效, muncopy.Enabled = Truemnudelete.Enabled = True munpaste.Enabled = True Else muncut.Enabled = False 否则无效 muncopy.Enabled = False mnudelete.Enabled = FalseEnd IfEnd Sub设计界面如下：Private Sub center_Click() 居中 RichTextBox1.SelAlignment = 2End SubPrivate Sub right_Click() 右对齐 RichTextBox1.SelAlignment = 1End SubPrivate Sub left_Click() 左对齐 RichTextBox1.SelAlignment = 0End SubPrivate Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then If RichTextBox1.SelText Then muncut.Enabled = True 启用剪切菜单项 muncopy.Enabled = True 启用 复制菜单项 mnudelete.Enabled = True 启用删除菜单项 munpaste.Enabled = True 启用粘贴菜单项 End If End IfEnd SubPrivate Sub muncopy_Click() 复制 Clipboard.SetText RichTextBox1.SelTextEnd Sub Private Sub muncut_Click() 剪切 Dim muncut As Integer Clipboard.SetText RichTextBox1.SelText Ric