VB程序说明书----记事本
- 格式：doc
- 大小：1.03 MB
- 文档页数：14
VB程序设计说明书---记事本
- 1 -
目录
1.作业简介： ......................................................................... - 2 -
2.设计将要达到的目标： ..................................................... - 2 -
3. 总体设计结构与功能 ....................................................... - 3 -
3.1结构流程图 ................................. 错误！未定义书签。
3.2各功能模块运行界面及运行展示错误！未定义书签。
4.程序代码 ............................................................................ - 13 -
5. 作业设计体会 ...................................... 错误！未定义书签。
VB程序设计说明书---记事本
- 2 -
VB大作业程序说明书
1.作业简介：
Windows记事本是功能强大，运用方便，体积小巧，启动快，占用内存小的应用软件。除此之外，windows记事本还有一个强大的功能，就是保存无格式文件。在这学期通过学习Visual Basic对制作记事本产生兴趣，便模仿windows记事本通过VB软件来编写一个记事本程序。此次作业主要是锻炼我们的VB设计能力和思维考虑能力，是我们的VB学习真正的用到实处，这对我们将来的学习和工作有着重要作用。
2. 设计将要达到的目标：
记事本主要是对文字进行编辑处理的软件。能进行新建、打开、保存等功能；并且能运用 剪贴、复制、粘贴、清除功能，对文字更方便的录入。另外还可以根据用户的需要查找相应的 文字，实现编辑功能。
新建：新建立一个记事本文档。
保存：重命名一个名字，保存文档。
打开：将打开一个已经存储在计算机中的文件（*.txt或*.rtf文件）。
退出：指退出这个记事本程序。
编辑：能对文本进行复制、剪切、粘贴，也可以改变文本字体、颜色、大小。
查找：类似Word文档的查找功能，通过输入关键字，词进行查找。
帮助：记事本简介以及功能的用法。
由于记事本是一套简单的文本编辑器。要求记事本不但要具备完善的编辑、方便的性能， 还要提供更简便的操作。这就要求设计人员在编辑过程当中尽可能的考虑到。包括以下内容： *对文本进行编辑； *用户根据不同的权限可对文本进行添加、删除、修改等操作；*对记事本进行各种编辑（精确、简单）。
VB程序设计说明书---记事本
- 3 -
3. 总体设计结构与功能
3.1结构流程图
记事本 文件
搜索 编辑 新建
打开
保存
退出
查找下一个 复制
查找 更改密码 获得编写权限 全选 粘贴 剪切 VB程序设计说明书---记事本
- 4 -
3.2 各功能模块运行界面及运行展示
VB程序设计说明书---记事本
- 5 -
VB程序设计说明书---记事本
- 6 -
VB程序设计说明书---记事本
- 7 -
VB程序设计说明书---记事本
- 8 -
VB程序设计说明书---记事本
- 9 -
VB程序设计说明书---记事本
- 10 -
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() VB程序设计说明书---记事本
- 11 -
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("密码").Value Then
mnuCut.Enabled = True
RichTextBox1.Locked = False
Else
MsgBox "密码错误！", vbOKOnly + vbInformation, "注意"
End If
End Sub
Private Sub mnuNew_Click()
RichTextBox1.Text = ""
FileName = "未命名"
Me.Caption = FileName
End Sub
Private Sub mnuOpen_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName VB程序设计说明书---记事本
- 12 -
Me.Caption = "记事本：" & FileName
mnuCut.Enabled = False
mnuCopy.Enabled = False
mnuPaste.Enabled = False
RichTextBox1.Locked = True
End Sub
Private Sub mnuPaste_Click()
RichTextBox1.SelText = Clipboard.GetText
End Sub
Private Sub mnuSave_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowSave
FileType = CommonDialog1.FileTitle
FiType = LCase(Right(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
Me.Caption = "超级记事本：" & FileName
End Sub
Private Sub mnuSelecAll_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
End Sub
（2）
Private Sub Command1_Click()
Dim a As String
Adodc1.RecordSource = "密码"
Adodc1.Refresh
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveFirst
If Trim(Text1.Text) = Adodc1.Recordset.Fields("密码").Value Then
If Text2.Text = Text3.Text Then
