VB程序说明书----记事本.doc

《VB程序说明书----记事本.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、目录1.作业简介：-2-2.设计将要达到的目标：-2-3.总体设计结构与功能-3-3.1结构流程图-3-3.2各功能模块运行界面及运行展示-4-4.程序代码-13-5.作业设计体会-9-VB大作业程序说明书1.作业简介： Windows记事本是功能强大，运用方便，体积小巧，启动快，占用内存小的应用软件。除此之外，windows记事本还有一个强大的功能，就是保存无格式文件。在这学期通过学习VisualBasic对制作记事本产生兴趣，便模仿windows记事本通过VB软件来编写一个记事本程序。此次作业主要是锻炼我们的VB设计能力和思维考

2、虑能力，是我们的VB学习真正的用到实处，这对我们将来的学习和工作有着重要作用。2.设计将要达到的目标：记事本主要是对文字进行编辑处理的软件。能进行新建、打开、保存等功能；并且能运用 剪贴、复制、粘贴、清除功能，对文字更方便的录入。另外还可以根据用户的需要查找相应的 文字，实现编辑功能。新建：新建立一个记事本文档。保存：重命名一个名字，保存文档。 打开：将打开一个已经存储在计算机中的文件（*.txt或*.rtf文件）。退出：指退出这个记事本程序。 编辑：能对文本进行复制、剪切、粘贴，也可以改变文本字体、颜色、大小。查找：类似Word文

3、档的查找功能，通过输入关键字，词进行查找。帮助：记事本简介以及功能的用法。  由于记事本是一套简单的文本编辑器。要求记事本不但要具备完善的编辑、方便的性能， 还要提供更简便的操作。这就要求设计人员在编辑过程当中尽可能的考虑到。包括以下内容： *对文本进行编辑； *用户根据不同的权限可对文本进行添加、删除、修改等操作；*对记事本进行各种编辑（精确、简单）。3.总体设计结构与功能3.1结构流程图记事本文件搜索编辑新建打开保存退出查找下一个复制查找更改密码获得编写权限全选粘贴剪切3.2各功能模块运行界面及运行展示4.程序代码（1）Dims

4、FindAsStringDimFileType,FiTypeAsStringPrivateSubForm_Load()Me.Height=6000Me.Width=9000Me.Caption="记事本"EndSubPrivateSubForm_Resize()OnErrorResumeNextRichTextBox1.Top=20RichTextBox1.Left=20RichTextBox1.Height=ScaleHeight-40RichTextBox1.Width=ScaleWidth-40EndSubPrivateSub

5、mnuchange_Click()Form2.ShowEndSubPrivateSubmnuCopy_Click()Clipboard.ClearClipboard.SetTextRichTextBox1.SelTextEndSubPrivateSubmnuCut_Click()Clipboard.ClearClipboard.SetTextRichTextBox1.SelTextRichTextBox1.SelText=""EndSubPrivateSubmnuExit_Click()EndEndSubPrivateSubmnuF

6、ind_Click()sFind=InputBox("请输入要查找的字、词：","查找内容",sFind)RichTextBox1.FindsFindEndSubPrivateSubmnuFindOn_Click()RichTextBox1.SelStart=RichTextBox1.SelStart+RichTextBox1.SelLength+1RichTextBox1.FindsFind,,Len(RichTextBox1)EndSubPrivateSubmnuget_Click()DimaAsStringa=InputBox

7、("请输入权限密码","输入密码")Adodc1.RecordSource="密码"Adodc1.RefreshAdodc1.Recordset.MoveLastAdodc1.Recordset.MoveFirstIfa=Adodc1.Recordset.Fields("密码").ValueThenmnuCut.Enabled=TrueRichTextBox1.Locked=FalseElseMsgBox"密码错误！",vbOKOnly+vbInformation,"注意"EndIfEndSubPrivateSubmnuNew_Cl

8、ick()RichTextBox1.Text=""FileName="未命名"Me.Caption=FileNameEndSubPrivateSubmnuOpen_Click()CommonDialog1.Filter="文本文档(*