vb模仿记事本程序

《vb模仿记事本程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB课程设计报告课程设计题目:小小记事本程序学生姓名：专业：班级：指导教师：2011年5月29日第一章系统分析………………………第2页第二章系统实现………………………第10页第三章使用说明……………………第11页总结：……………………………………第12页（一）实验题目：小小记事本（二）实验时间：2011年5月24日-20115月28日（三）地点：软件楼318（四）课程设计要求：仿照windows记事本应用程序，要求实现新建，打开，保存文件，对文本进行字体颜色编辑，对文本实现查找，能够复制粘贴功能系统分析（以下为窗体、代码和流程图）窗体：注释：该窗体为Form1注释：

2、该窗体为Form2代码如下：PrivateSubForm_Resize()txtNotepad.Width=Form1.WidthtxtNotepad.Height=Form1.HeightEndSubPrivateSubmnuFind_Click()Form2.ShowEndSubPrivateSubmnuChange_Click()Form2.ShowEndSub'打开菜单项的单击事件过程PrivateSubmnuOpen_Click()'激活对话框前初始化设置相关属性，激活对话框后将无法在代码中设置其属性CommonDialog1.FileName="*.tx

3、t"'初始化文件名CommonDialog1.InitDir="C:"'初始化路径CommonDialog1.Filter="Word文档

4、*.doc

5、文本文件

6、*.txt

7、所有文件

8、*.*"CommonDialog1.FilterIndex=2设置默认文件类型CommonDialog1.Action=1激活"打开"对话框txtNotepad.Text=""清除文本框中原有内容IfCommonDialog1.FileTitle<>""Then'选定文件后执行下列操作DimInputDataAsString'保存文件中每行内容OpenCommonDialog1.Fi

9、leNameForInputAs#1'打开文件，准备读文件DoWhileNotEOF(1)LineInput#1,InputData'每次读一行'将读出内容连接在文本框已有文本之后并回车换行txtNotepad.Text=txtNotepad.Text+InputData+vbCrLfLoopClose#1EndIfEndSub'"另存为"菜单项的单击事件过程PrivateSubmnuSaveAs_Click()CommonDialog1.FileName="文本1.t'设置缺省文件名CommonDialog1.DefaultExt="txt"'设置缺省扩展名Com

10、monDialog1.InitDir="C:"CommonDialog1.Filter="Word文档

11、*.doc

12、文本文件

13、*.txt

14、所有文件

15、*.*"CommonDialog1.FilterIndex=2CommonDialog1.CancelError='选取"取消"按钮时出错OnErrorGoToerrCance'出错跳转至行标签errCancelCommonDialog1.ShowSave'激活"另存为"对话框OpenCommonDialog1.FileNameF打开文件，准备写入Print#1,txtNotepad.TextClose#1errCan

16、cel:'行标签EndSubPrivateSubmnuExit_Click()EndEndSub'以下过程用于判断是否已经选中文本PrivateSubtxtNotepad_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1AndtxtNotepad.Sel'松开左键并选中文本mnuCopy.Enabled=True'使"复制"菜单项有效mnuCut.Enabled=True‘使"剪切"菜单项有效Else‘未选中文本mnuCopy.Enabled=FalsemnuCut.Enabl

17、ed=FalseEndIfEndSubPrivateSubmnuCopy_Click()'"复制"菜单项的单击事件过程Clipboard.Clear'清除剪贴板中的内容Clipboard.SetTexttxtNotepad.SelText'将选中的文本放到剪贴板中mnuCopy.Enabled=FalsemnuCut.Enabled=FalsemnuPaste.Enabled=TrueEndSubPrivateSubmnuCut_Click()'"剪切"菜单项的单击事件过程Clipboard.ClearClipboard.SetTexttxtNotepad.Se