VB课程设计--科学方法训练

《VB课程设计--科学方法训练》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、VB课程设计长江学院课程设计报告课程设计题目：科学方法训练姓名：蔡国庆学号：08314101其他小组成员:张显龙学号：08314135专业：电子信息工程班级：083141指导教师：黄河2010年06月27日VB课程设计目录1.实验目的12.内容12.1设计内容12.2功能要求13.实验步骤13.1分析13.2界面设计23.2.1控件设计23.2.2菜单设计23.3.程序代码设计33.4程序调试74.实验心得12参考文献12VB课程设计摘要VB课程设计1.实验目的1．掌握下拉式菜单的程序设计方法；2．掌握弹出

2、式菜单的程序设计方法；3．掌握使用菜单编辑器设计菜单和修改菜单的操作过程；4．掌握RichTextBox和CommnDialog控件的使用。2.内容2.1设计内容用VB设计一个记事本程序。2.2功能要求程序要求有文件、编辑、格式、帮助菜单选项，在文件下的子菜单有：新建：新建一个记事本文档。打开：打开一个已存储在计算机里的.txt或.rtf文件。保存：保存文档。另存为：将文档另存为其它路径。打印：打印该文档、退出：退出程序。在编辑下的子菜单要求有复制、剪切、粘贴、删除、查找、全选、和时间/日期功能。在格式下有

3、字体子菜单，通过该选项来达到修改文档内字体的风格和大小。在帮助下的子菜单有查看说明和关于记事本。3.实验步骤3.1分析程序有4个主菜单，每个主菜单下又分别有各自的子菜单项，程序同时兼备下拉式菜单和弹出式菜单，程序需用到RichTextBox和CommnDialog控件。12VB课程设计3.2界面设计3.2.1控件设计新建一个标准exe工程，单击菜单“工程”下的“部件”，在弹出的“部件”对话框里找到MicrosoftRichTextBox6.0和MicrosoftCommonDialog6.0并选中它们，单击

4、“确定”按钮。这时左边的工具栏上出现了刚才新添的两个控件。在窗体上添加RichTextBox和CommnDialog控件，控件及属性值如表3.2.1.1，界面如图3.2.1.1。表3.2.1.1控件及属性值对象属性值Form1Caoption新建文本文档-记事本RichTextBox1TextScrollBar2-rtfVertica图3.2.1.13.2.2菜单设计在“菜单编辑器”中进行如表3.2.2.1设置，界面如图3.2.2.1。12VB课程设计Caption名称快捷键Caption名称快捷键文件Fi

5、le删除DeleteDel新建NewCtrl+N-Line3打开OpenCtrl+O查找FindCtrl+F保存SaveCtrl+S查找下一个FindonF3另存为Saveas-Line4-Line1全选SelectallCtrl+A打印PrintCtrl+P时间/日期NowF5-Line2格式Style退出ExitCtrl+X字体Font编辑Edit帮助Help复制CopyCtrl+C查看说明Readme剪切CutCtrl+R关于About粘贴PasteCtrl+V表3.2.2.1菜单项的属性设置图3.2

6、.2.13.3.程序代码设计编写程序代码，对各个子菜单编写Click事件过程。'初始化程序PrivateSubForm_Load()'设置程序启动时的大小12VB课程设计Me.Height=6000Me.Width=9000EndSub'声明查找变量DimsFindAsString'声明文件类型DimFileType,FiTypeAsString'设置编辑框的位置和大小PrivateSubForm_Resize()OnErrorResumeNextRichTextBox1.Top=20RichTextBox

7、1.Left=20RichTextBox1.Height=ScaleHeight-40RichTextBox1.Width=ScaleWidth-40EndSub'新建文件PrivateSubNew_Click()RichTextBox1.Text=""'清空文本框FileName="未命名"Me.Caption=FileNameEndSub'打开文件PrivateSubOpen_Click()CommonDialog1.Filter="文本文档(*.txt)

8、*.txt

9、RTF文档(*.rtf)

10、*.rt

11、f

12、所有文件(*.*)

13、*.*"CommonDialog1.ShowOpenRichTextBox1.Text=""'清空文本框FileName=CommonDialog1.FileNameRichTextBox1.LoadFileFileNameMe.Caption="记事本："&FileNameEndSub'保存文件PrivateSubSave_Click()RichTextBox1.SaveFileComm