1、用 VB 做一个记事本实在不很复杂http:/ 2012 年 8 月 25 日 (hndd 转载谅解 )用 VB 做一个记事本实在不很复杂，我们完全可以通过向导来很方便地做出来。但本文只打算讨论用手动方法制作记事本，旨在向 VB 初学者展示：学 VB 原来是如此容易！ 通过阅读、研究本文并按本文所述进行尝试，初学者将学到很多东西,如怎样使用RichText 控件来打开和保存文件，怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。第一章 让我们的记事本马上运行急于求成是初学者共有的心愿。那好，请按如下三个步骤做，我们的愿望立即就可以实现！步骤一：绘制界面新建一个标准 EXE 工程，将其 Cap
2、tion 属性改为“超级记事本” ，点击 Icon 属性给它找个合适的 Icon 图标。单击菜单 “工程”-“ 部件” ，在弹出的“部件”对话框里找到 Microsoft RichText Box 6.0 和公共对话框 Microsoft Common Dialog 6.0 并选中它们，单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制 RichText Box 和Commn Dialog，其中 RichText Box 的大小和位置可不用理睬，我们将在代码中处理它，当然，有必要把它的 ScrollBar 属性设为 2-rtfVertical，这样在打开和编辑文件
3、时垂直滚动条才可用。步骤二：编辑菜单按 Ctrl+E 调出菜单编辑器，我们来做如下几个菜单：一.文件菜单：文件（第一层） mnuFile新建（第二层） mnuNew打开（第二层） mnuOpen保存（第二层） mnuSave- （第二层） mnuFileSep (分隔线）退出（第二层） mnuExit二.编辑菜单：编辑（第一层） mnuEdit复制（第二层） mnuCopy剪切（第二层） mnuCut粘贴（第二层） mnuPaste- （第二层） mnuEditSep （分隔线）全选（第二层） mnuSelecAll三.搜索菜单：搜索（第一层） mnuSearch查找（第二层） mnuFind
4、查找下一个（第二层） mnuFindOn四.帮助菜单：帮助（第一层） mnuHelp使用说明（第二层） mnuUsage关于（第二层） mnuAbout(注：各菜单项的快捷键请自行设置)好了，其它的菜单项以后再根据需要添加。现在进入：步骤三：编写代码声明查找变量Dim sFind As String声明文件类型Dim FileType, FiType As String 初始化程序Private Sub Form_Load()设置程序启动时的大小Me.Height = 6000Me.Width = 9000End Sub设置编辑框的位置和大小Private Sub Form_Resize()O
5、n Error Resume Next 出错处理RichTextBox1.Top=20RichTextBox1.Left=20RichTextBox1.Height = ScaleHeight-40RichTextBox1.Width = ScaleWidth-40End Sub新建文件Private Sub mnuNew_Click()RichTextBox1.Text = “ 清空文本框FileName = “未命名“Me.Caption = FileNameEnd Sub打开文件Private Sub mnuOpen_Click()CommonDialog1.Filter = “文本文档
6、(*.txt)|*.txt|RTF 文档(*.rtf)|*.rtf|所有文件(*.*)|*.*“CommonDialog1.ShowOpenRichTextBox1.Text = “ 清空文本框FileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNameMe.Caption = “超级记事本：“ & FileNameEnd Sub保存文件Private Sub mnuSave_Click()CommonDialog1.Filter = “文本文档(*.txt)|*.txt|RTF 文档(*.rtf)|*.rtf|所有文件(*.*
7、)|*.*“CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFiType = LCase(Right(FileType, 3)FileName = CommonDialog1.FileNameSelect Case FiTypeCase “txt“RichTextBox1.SaveFile FileName, rtfTextCase “rtf“RichTextBox1.SaveFile FileName, rtfRTFCase “*.*“RichTextBox1.SaveFile FileNameEnd SelectMe.Capt
8、ion = “超级记事本：“ & FileNameEnd Sub退出Private Sub mnuExit_Click()EndEnd Sub复制Private Sub mnuCopy_Click()CliPBoard.ClearClipboard.SetText RichTextBox1.SelTextEnd Sub剪切Private Sub mnuCut_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = “End Sub全选Private Sub mnuSelectAll_C
9、lick()RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.Text)End Sub粘贴Private Sub mnuPaste_Click()RichTextBox1.SelText = Clipboard.GetTextEnd Sub查找Private Sub mnuFind_Click()sFind = InputBox(“请输入要查找的字、词：“, “查找内容“, sFind)RichTextBox1.Find sFindEnd Sub继续查找Private Sub mnuFindOn_Click()
10、RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1RichTextBox1.Find sFind, , Len(RichTextBox1)End Sub使用说明Private Sub mnuReadme_Click()On Error GoTo handlerRichTextBox1.LoadFile “Readme.txt“, rtfText 请写好 Readme.txt 文件并存入程序所在文件夹中Me.Caption = “超级记事本：“ & “使用说明“Exit Subhandler:Msg
11、Box “ 使用说明文档可能已经被移除，请与作者联系。“, VBOKOnly, “ 错误信息“End Sub关于Private Sub mnuAbout_Click()MsgBox “ 超级记事本 Ver1.0 版权所有(C) 2001 土人“,vbOKOnly,“关于“End Sub设置弹出式菜单（即在编辑框中单击鼠标右键时弹出的动态菜单） Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu mn
12、uEdit, vbPopupMenuLeftAlignElseExit SubEnd IfEnd Sub防止在切换输入法时字体自变Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)If KeyCode = VBKeySpace ThenRichTextBox1.SelFontName = CommonDialog1.FontNameEnd IfEnd Sub至此，我们的记事本可以编译使用了。点击菜单“文件”-“生成 XXX.EXE”，回到桌面运行我们的记事本看看，是不是颇有成就感？当然，这样的记事本还比较粗糙
13、,我们还需要做些工作，请看下一章。第二章 美化程序界面多数字处理软件都有工具栏和状态栏。工具栏和状态栏除了能美化我们的程序使其更具有专业性质外，还给用户带来操作上的便利。现在我们就来做一做这两样东西。一.工具栏(一 )制作工具栏单击“工程 ”-“部件”，选中 Microsoft Windows Common Control 6.0 并确定。这时，我们要用到的控件就出现在左边的工具栏上了。要做工具栏，首先需要一个叫 ImageList 的控件来装载图像。在程序界面上添加它，然后右键单击此控件，左键单击“属性” ，弹出“属性页”对话框的“ 图像”，再单击“ 插入图片”就可以一次性装载图片了（如不满
14、意，以后还可以添加）。图片可在 C:Microsoft Visual StudioCommonGraphicsBitmapsTlBr_W95 下选择(这里假设你的 VB 安装在 C 盘下)。注意了：在插入图片时给每一张图片注明关键字，以便在引用图片时不至于混乱。如插入“新建” 的图片，我们在“ 关键字” 栏注明 “New”。图片有了，接下来在程序界面添加工具栏(ToolBar)。添加后工具栏就出现在菜单下面，右键单击它，选择“ 属性”，在弹出的“属性页”对话框中的 “通用”项作些设置，主要如下两项：1.“图像列表 ”：选择 ImageList12.“样式”：根据喜爱选择 1-trbStanda
15、rd 或者 2-trbFlat继续点击“ 属性页” 的 “按钮”选项，插入若干按钮。按钮有多种样式，请根据需要设置。这里请一定注意：每一个与用户操作有关的按钮都必须注明关键字、装载图片，如“新建” 按钮，在“关键字 ”项注明“新建”，在“图像” 项键入“New”（即 ImageList1 中的图片关键字）,需要的话还可以在“ 工具提示文本 ”项填入适当的提示语。(二 )编写工具栏的按钮代码工具栏按钮的代码编辑很简单，可以按照下面的格式去编写： Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)On Error
16、 Resume Next 出错处理Select Case Button.Key 按关键字选择Case “新建“mnuNew_Click 等于菜单项 “新建”被单击Case “打开“ 等于菜单项“打开”被单击mnuOpen_Click(继续编写其它按钮的代码)End SelectEnd Sub完成后试运行一下我们的程序，我们发现，有了工具栏之后，程序变得漂亮多了，只是有一个问题：打开一个较长的文档后，编辑框的下拉滚动条向上的箭头不见了。原因是：工具条占用一定的空间。解决方法：将“设置编辑框的位置和大小” 中的 RichTextBox1.Top = 20 和 RichTextBox1.Height
17、 = Me.ScaleHeight - 40 分别改为 RichTextBox1.Top = 380，RichTextBox1.Height = Me.ScaleHeight - 400 即可。二.状态栏(一 )制作状态栏状态栏的英文名字叫 StatusBar，在窗体上添加它后会默认出现在窗体的最下方。用鼠标右键点击它，调出“ 属性页 ”对话框，单击“窗格”项，插入一些窗格，可以将各个窗格的 “样式”设置为：0-sbrText 显示文本，需编写代码1-sbrCaps 显示大小写状态，无需编程2-sbrNum 显示 NUMLock 键开关状态，无需编程3-sbrIns 显示 Insert 键状态
18、，无需编程4-sbrScr15-sbrTime 显示时间，不编程时时间不会随系统时钟变化6-sbrDate 显示日期，无需编程注意：加进状态栏后需将 Form_Resze 中的 RichTextBox1.Height = Me.ScaleHeight - 400改为 RichTextBox1.Height = Me.ScaleHeight - 600。(二 )状态栏根据其 “样式”属性决定用不用编写代码 (如上文所述) 。下面举些例子，读者可以认真揣摩，从而达到举一反三的效果。例一：用户选取了“ 新建 ”后，让第一个窗格显示： “目前状态：正在打开文件”。请将下面代码写进“ 打开”菜单里面：S
19、tatusBar1.Panels(1).Text = “目前状态：正在打开文件“ & “ &CommonDialog1.FileTitle & “例二：让第三个窗格显示时间并让时间跟随系统时钟变化。首先，给程序加一个 Timer 控件，将其 Interval 属性设为 1000。然后：在 Form_Load 过程加入：StatusBar1.Panels(1).Text = Time；然后给 Timer 控件编写代码：Private Sub Timer1_Timer()If StatusBar1.Panels(3).Text CStr(Time) ThenStatusBar1.Panels(3).Text = TimeEnd IfEnd Sub例三：当编辑框的文本发生变化时让第一个窗格显示：“正在编辑文档：文件名” 。Private Sub RichTextBox1_Chang()StatusBar1.Panels(1).Text = “正在编辑文档：“ & CommonDialog1.FileNameEnd Sub辛苦了那么久，我们现在已经拥有一个象模象样的记事本了。这个记事本由于用了RichText 控件，理论上它能打开和编辑任意大的文档，使用起来的确比 Windows 自带的记事本方便得多。当然，还有一些其它的功能需要添加和完善，这就靠你慢慢去完成了。
