VB设计报告李菊.docx

1、VB设计报告李菊西安邮电大学VB程序设计实验报告学院： 计算机学院专业： 网络工程班级： 1003姓名： 李菊 学号: 04102068（06）一需求分析对于广大用户的需求分析，现在各种文档编辑器数不胜数，有EmEditor ，UEStudio ，GridinSoft Notepad ，Notepad+，win32pad ，SkimEdit等等。功能也是应有尽有，有能改变字体的，有能改变文字颜色的。但是，这些软件又存在各种各样的瑕疵或问题：有的文件体积相对于一般文字编辑来说太大；有的功能太繁杂，使初级使用者一时难以掌握。仅从日常应用方面来说，一个文本编辑器只需一些简单实用的功能就够了。本程序设

2、计就是依照这样一种使用需要设计了一个简单的记事本程序。功能需求分析 (1).菜单中有“文件”，“编辑”，“格式”，“查看”，“帮助”五个主菜单。（2）“文件”有“新建”“打开”“保存”“退出”等几个基本菜单：分别用于新 建文件，打开文件，保存文件，退出记事本等功能。（3）“编辑”中有“剪切”“复制”“粘贴”等几个基本菜单：用于剪切文字，复制文字，粘贴文字。（4）“格式”有“设置字体”，“设置颜色”两个菜单，用于对字体的设置。（5）“查看”中有“状态栏”用于查看当前鼠标处于哪行哪列。（6）“帮助”中有“关于记事本”，“记事本主题”两个菜单，用于相关查看。二设计课题 编辑记事本三设计目的 通过编写

3、记事本，熟悉并掌握所学VB的程序语言，锻炼编程思想，从而触类旁通发挥自己的创造力编辑自己的作品。是自己的能力得到一定的锻炼。 四设计要求(1)记事本文件菜单的新建、打开、保存、另保为、退出功能。(2)记事本编辑菜单的剪切、复制、粘贴、查找、全选，日期等功能。(3)记事本格式菜单的字体、字体颜色、功能。(4)记事本查看菜单的状态栏。(5)记事本的帮助对话。五设计思路及过程（1）设计思路：首先绘制界面，其次编辑菜单，按Ctrl+E调出菜单编辑器，我们来做“文件”，“查看”等几个菜单，接着编写各功能模块具体代码。(2）设计具体过程1.绘制界面新建一个标准EXE工程，将其Caption属性改为“超级记

4、事本”，点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到Microsoft RichText Box 6.0和公共对话框Microsoft Common Dialog 6.0并选中它们，单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichText Box和Commn Dialog，其中RichText Box的大小和位置可不用理睬，我们将在代码中处理它，当然，有必要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。2.编辑菜单按ctrl+E调出菜单编辑器，来

5、做如下几个菜单：（1） 文件菜单:文件（第一层）file,新建（第二层）new,打开（第二层）open保存（第二层）save,另存为（第二层）lingsave, 打印（第二层）print,退出（第二层）exit（2）编辑菜单:编辑(第一层)edit,撤销（第二层）cancel,剪切（第二层）qie,复制（第二层）copy,粘贴（第二层）tie,删除（第二层）delete,查找（第二层）find,全选（第二层）selectall,时间/日期（第二层）date(3)格式菜单:格式（第一层）style,自动换行（第二层）autozhuan,字体（第二层）font(4)查看菜单:查看（第一层）cha,

6、状态栏（第二层）state(5)帮助菜单:帮助（第一层）help,帮助主题（第二层）topic,关于记事本（第二层）about3.编辑代码新建：Private Sub newCreate_Click()s = MsgBox(是否保存?, 33, 我的记事本)If s = 1 ThenDim FileType, FiType As StringCommonDialog1.Filter = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitl

7、eFiType = LCase(Right(FileType, 3)FileName = CommonDialog1.FileNameSelect Case FiTypeCase txtRichTextBox1.SaveFile FileName, rtfTextCase rtfRichTextBox1.SaveFile FileName, rtfRTFCase *.*RichTextBox1.SaveFile FileNameEnd SelectMe.Caption = 我的记事本： & FileNameEnd IfIf s = 2 ThenRichTextBox1.Text = 清空文本框

8、FileName = 未命名Me.Caption = FileNameEnd IfEnd Sub打开：Private Sub open_Click()Dim FileType, FiType As StringCommonDialog1.Filter = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowOpenRichTextBox1.Text = 清空文本框FileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNameMe.Caption =

9、 超级记事本： & FileNameEnd Sub保存：Private Sub save_Click()Dim FileType, FiType As StringCommonDialog1.Filter = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFiType = LCase(Right(FileType, 3)FileName = CommonDialog1.FileNameSelect Case FiTypeCase

10、txtRichTextBox1.SaveFile FileName, rtfTextCase rtfRichTextBox1.SaveFile FileName, rtfRTFCase *.*RichTextBox1.SaveFile FileNameEnd SelectMe.Caption = 我的记事本： & FileNameEnd Sub退出：Private Sub END_Click()EndEnd Sub剪切：Private Sub cut_Click()If RichTextBox1.SelLength 0 ThenClipboard.SetText RichTextBox1.Se

11、lTextRichTextBox1.SelText = paste.Enabled = TrueEnd IfEnd Sub复制Private Sub copy_Click()If RichTextBox1.SelLength 0 ThenClipboard.SetText RichTextBox1.SelTextpaste.Enabled = TrueEnd IfEnd Sub粘贴：Private Sub paste_Click()RichTextBox1.SelText = Clipboard.GetTextEnd Sub全选：Private Sub quanxuan_Click()Rich

12、TextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.Text)End Sub查找：Private Sub FIND_Click()form2.ShowEnd SubPrivate Sub Command1_Click()Dim conBtns As StringDim W As Integer Const conMsg As String = 找不到所查内容 Dim intRetVal As Integer Dim intFoundPos As Integer If Check2.Value = vbChecked Th

13、en W = 0 Else W = 1 intFoundPos = InStr(1, form1.txt.Text, Text1.Text, W) End If 查找字符 If intFoundPos = 0 Then 未找到相应的字符 intRetVal = MsgBox(conMsg, vbDefaultButton2, Find) Else form1.txt.SelStart = intFoundPos - 1 选择字符长度 form1.txt.SelLength = Len(Text1.Text)End If form1.txt.SetFocus 找出相应字符End Sub查找下一个

14、：Private Sub NEXTFIND_Click()form2.ShowEnd Sub替换：Private Sub REPLACE_Click()Form3.ShowEnd Sub当点击“替换”出现以下对话框的示图及代码：Private Sub Command1_Click()“查找下一个”按钮Dim conBtns As StringStatic Q As Integer Const conMsg As String = 找不到所查内容 Dim intRetVal As Integer Dim intFoundPos As Integer intFoundPos = InStr(Q +

15、 1, form1.txt.Text, Text1.Text, 0) 查找字符 If intFoundPos = 0 Then 未找到相应的字符 intRetVal = MsgBox(conMsg, vbDefaultButton2, Find) Else form1.txt.SetFocus form1.txt.SelStart = intFoundPos - 1 选择字符长度 form1.txt.SelLength = Len(Text1.Text)End IfQ = intFoundPosEnd SubPrivate Sub Command3_Click()“全部替换”按钮Dim A A

16、s String, b As IntegerStatic n As Integer A = InStr(b + 1, form1.txt.Text, Text2.Text, 1) 查找字符 n = form1.txt.SelStart = A - 1 form1.txt.SelLength = Len(Text1.Text) form1.txt.SelText = Text2.Text form1.txt.SetFocusEnd SubPrivate Sub Command2_Click()“替换”按钮form1.txt.SelText = Text2.Text 替换form1.txt.Set

17、Focus 得到焦点End Sub转到下一行：Private Sub REPEAL_Click()Form4.ShowEnd Sub当点击“转行”出现以下对话框的示图及代码Private Sub Command2_Click()Unload form2End Sub自动换行：Private Sub ZDHH_Click()If ZDHH.Checked = False ThenZDHH.Checked = True 如果自动换行 txt.Visible = False 文本框2隐藏 Text2.Visible = True 文本框1显现 Text2.Text = Text1.Text 将文本框

18、2的内容赋给文本框1Else: Change.Checked = False 如果不自动换行 Text2.Visible = False 文本框1隐藏 Text1.Visible = True 文本框2显现 Text1.Text = Text2.Text 把文本框1的内容赋给文本框2End IfEnd Sub字体：Private Sub size_Click()CommonDialog1.Flags = 1CommonDialog1.Action = 4RichTextBox1.SelFontSize = CommonDialog1.FontSizeRichTextBox1.SelFontNa

19、me = CommonDialog1.FontNameRichTextBox1.SelBold = CommonDialog1.FontBoldRichTextBox1.SelItalic = CommonDialog1.FontItalicRichTextBox1.SelUnderline = CommonDialog1.FontUnderlineRichTextBox1.SelStrikeThru = CommonDialog1.FontStrikethruEnd Sub字体颜色：Private Sub color_Click()CommonDialog1.Action = 3RichTe

20、xtBox1.SelColor = CommonDialog1.colorEnd Sub状态栏：Private Sub ZTL_Click()ZTL.Checked = Not ZTL.CheckedIf ZTL.Checked = True Thentxt.Visible = TrueElsetxt.Visible = FalseEnd IfEnd Sub关于记事本：Private Sub about_Click()frmAbout.ShowForm1.Enabled = TrueEnd Sub帮助主题：Private Sub usage_Click()On Error GoTo handl

21、erRichTextBox1.LoadFile Readme.txt, rtfText 请写好Readme.txt文件并存入程序所在文 件夹中Me.Caption = 我的记事本： & 使用说明Exit Subhandler:MsgBox 使用说明文档可能已经被移除，请与作者联系。End Sub工具栏：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComCtlLib.Button) On Error Resume Next Select Case Button.Key Case 保存CommonDialog1.Filter = 文本文档(

22、*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFiType = LCase(Right(FileType, 3)FileName = CommonDialog1.FileNameSelect Case FiTypeCase txtRichTextBox1.SaveFile FileName, rtfTextCase rtfRichTextBox1.SaveFile FileName, rtfRTFCase *.*RichTextBox1.S

23、aveFile FileNameEnd SelectMe.Caption = 记事本： & FileName Case 打开 CommonDialog1.Filter = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowOpenRichTextBox1.Text = 清空文本框FileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNameMe.Caption = 记事本： & FileName Case 新建 wang = MsgBox(是否保

24、存?, 33, 记事本)If wang = 1 ThenCommonDialog1.Filter = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFiType = LCase(Right(FileType, 3)FileName = CommonDialog1.FileNameSelect Case FiTypeCase txtRichTextBox1.SaveFile FileName, rtfTextCase rtfRich

25、TextBox1.SaveFile FileName, rtfRTFCase *.*RichTextBox1.SaveFile FileNameEnd SelectMe.Caption = 记事本： & FileNameEnd IfIf wang = 2 ThenRichTextBox1.Text = 清空文本框FileName = 未命名Me.Caption = FileNameEnd If Case 复制 If RichTextBox1.SelLength 0 ThenClipboard.SetText RichTextBox1.SelTextmnupaste.Enabled = True

26、End If Case 查找 Dim sFind As StringsFind = InputBox(请输入要查找的字、词：, 查找内容, sFind)RichTextBox1.find sFind Case 剪切 If RichTextBox1.SelLength 0 ThenClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = mnupaste.Enabled = TrueEnd If Case 删除 RichTextBox1.Text = Case 粘贴 RichTextBox1.SelText = Clipboard.

27、GetText Case 打印 CommonDialog1.Action = 5 Case 帮助 On Error GoTo handlerRichTextBox1.LoadFile Readme.txt, rtfText 请写好Readme.txt文件并存入程序所在文件夹中Me.Caption = 记事本： & 使用说明Exit Subhandler:MsgBox 请进行上网查询。 End SelectEnd Sub编辑:Private Sub edit_Click()If txt.SelText = Then 从TXT控件中删除被选中的文本 cut.Enabled = False 剪切控件

28、为假 copy.Enabled = False 复制控件为假 Else cut.Enabled = True 剪切控件为真 copy.Enabled = True 复制控件为真End IfIf txt.SelText = Then 从TXT控件中删除被选中的文本 cut.Enabled = False copy.Enabled = False Else cut.Enabled = True copy.Enabled = TrueEnd IfIf Clipboard.GetText = Then 从剪贴板上获取文本 paste.Enabled = False 粘贴控件为假 Else paste.

29、Enabled = True 粘贴控件为真End IfEnd Sub 制作完成后的界面 六心得体会 VB程序设计这门课属于自学课，所以这门课的学习主要是自己借助于图书馆与网络进行学习，由于自己平时比较懒散，没有严格按照课程安排进行上课学习，所以对于这次记事本程序设计的完成还是感觉相当艰难的，但在书本和网络资源的帮助下还是完成了作业，经过这段时间也对vb有了一定的掌握，从刚开始练软件如何运行都有点困难到最后成功完成作业，这个过程学到了很多知识。 经过这段时间的学习，现在已经拥有一个像模像样的记事本了。这个记事本由于用了RichText控件，理论上它能打开和编辑任意大的文档，使用起来的确比Windows自带的记事本方便得多。当然，肯定还有一些其它的功能需要添加和完善。