vb程序说明书----记事本

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

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

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

3、体、颜色、大小。查找：类似Word文档的查找功能，通过输入关键字，词进行查找。帮助：记事本简介以及功能的用法。  由于记事本是一套简单的文本编辑器。要求记事本不但要具备完善的编辑、方便的性能， 还要提供更简便的操作。这就要求设计人员在编辑过程当中尽可能的考虑到。包括以下内容： *对文本进行编辑； *用户根据不同的权限可对文本进行添加、删除、修改等操作；*对记事本进行各种编辑（精确、简单）。-14-VB程序设计说明书---记事本3.总体设计结构与功能3.1结构流程图-14-VB程序设计说明书---记事本记事本文件搜索编辑新建打开保存退出查找下一个复制

4、查找更改密码获得编写权限全选粘贴剪切3.2各功能模块运行界面及运行展示-14-VB程序设计说明书---记事本-14-VB程序设计说明书---记事本-14-VB程序设计说明书---记事本-14-VB程序设计说明书---记事本-14-VB程序设计说明书---记事本-14-VB程序设计说明书---记事本4.程序代码（1）DimsFindAsStringDimFileType,FiTypeAsStringPrivateSubForm_Load()Me.Height=6000Me.Width=9000Me.Caption="记事本"EndSubPrivate

5、SubForm_Resize()OnErrorResumeNextRichTextBox1.Top=20RichTextBox1.Left=20-14-VB程序设计说明书---记事本RichTextBox1.Height=ScaleHeight-40RichTextBox1.Width=ScaleWidth-40EndSubPrivateSubmnuchange_Click()Form2.ShowEndSubPrivateSubmnuCopy_Click()Clipboard.ClearClipboard.SetTextRichTextBox1.S

6、elTextEndSubPrivateSubmnuCut_Click()Clipboard.ClearClipboard.SetTextRichTextBox1.SelTextRichTextBox1.SelText=""EndSubPrivateSubmnuExit_Click()EndEndSubPrivateSubmnuFind_Click()sFind=InputBox("请输入要查找的字、词：","查找内容",sFind)RichTextBox1.FindsFindEndSubPrivateSubmnuFindOn_Click()Rich

7、TextBox1.SelStart=RichTextBox1.SelStart+RichTextBox1.SelLength+1RichTextBox1.FindsFind,,Len(RichTextBox1)EndSubPrivateSubmnuget_Click()DimaAsStringa=InputBox("请输入权限密码","输入密码")Adodc1.RecordSource="密码"Adodc1.RefreshAdodc1.Recordset.MoveLast-14-VB程序设计说明书---记事本Adodc1.Recordset.Mov

8、eFirstIfa=Adodc1.Recordset.Fields("密码").ValueThenmnuCut.Enabl