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

目录 1.作业简介： - 2 - 2.设计将要达到的目标： - 2 - 3. 总体设计结构与功能 - 3- 3.1结构流程图 - 3 - 3.2各功能模块运行界面及运行展示 - 4 - 4.程序代码 - 13- 5. 作业设计体会 - 9 - VB大作业程序说明书 1.作业简介：? Windows记事本是功能强大，运用方便，体积小巧，启动快，占用内存小的应用软件。除此之外，windows记事本还有一个强大的功能，就是保存无格式文件。在这学期通过学习Visual Basic对制作记事本产生兴趣，便模仿windows记事本通过VB软件来编写一个记事本程序。此次作业主要是锻炼我们的VB设计能力和思维考虑能力，是我们的VB学习真正的用到实处，这对我们将来的学习和工作有着重要作用。 2. 设计将要达到的目标： 记事本主要是对文字进行编辑处理的软件。能进行新建、打开、保存等功能；并且能运用?剪贴、复制、粘贴、清除功能，对文字更方便的录入。另外还可以根据用户的需要查找相应的?文字，实现编辑功能。 新建：新建立一个记事本文档。 保存：重命名一个名字，保存文档。? 打开：将打开一个已经存储在计算机中的文件（*.txt或*.rtf文件）。 退出：指退出这个记事本程序。? 编辑：能对文本进行复制、剪切、粘贴，也可以改变文本字体、颜色、大小。 查找：类似Word文档的查找功能，通过输入关键字，词进行查找。 帮助：记事本简介以及功能的用法。?? 由于记事本是一套简单的文本编辑器。要求记事本不但要具备完善的编辑、方便的性能，?还要提供更简便的操作。这就要求设计人员在编辑过程当中尽可能的考虑到。包括以下内容：?*对文本进行编辑；?*用户根据不同的权限可对文本进行添加、删除、修改等操作；*对记事本进行各种编辑（精确、简单）。 3. 总体设计结构与功能 3.1结构流程图 3.2 各功能模块运行界面及运行展示 4.程序代码 （1） Dim sFind As String Dim FileType, FiType As String Private Sub Form_Load() Me.Height = 6000 Me.Width = 9000 Me.Caption = 记事本 End Sub Private Sub Form_Resize() On Error Resume Next RichTextBox1.Top = 20 RichTextBox1.Left = 20 RichTextBox1.Height = ScaleHeight - 40 RichTextBox1.Width = ScaleWidth - 40 End Sub Private Sub mnuchange_Click() Form2.Show End Sub Private Sub mnuCopy_Click() Clipboard.Clear Clipboard.SetText RichTextBox1.SelText End Sub Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText RichTextBox1.SelText RichTextBox1.SelText = End Sub Private Sub mnuExit_Click() End End Sub Private Sub mnuFind_Click() sFind = InputBox(请输入要查找的字、词：, 查找内容, sFind) RichTextBox1.Find sFind End Sub Private Sub mnuFindOn_Click() RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1 RichTextBox1.Find sFind, , Len(RichTextBox1) End Sub Private Sub mnuget_Click() Dim a As String a = InputBox(请输入权限密码, 输入密码) Adodc1.RecordSource = 密码 Adodc1.Refresh Adodc1.Recordset.MoveLast Adodc1.Recordset.MoveFirst If a = Adodc1.Recordset.Fields(密码).