VB记事本代码

1、跟我学做记事本我想有了这个示例 VB的世界才够精彩：用VB做一个记事本实在不很复杂，我们完全可以通过向导来很方便地做出来。但本文只打算讨论用手动方法制作记事本，旨在向 VB初学者展示：学 VB原来是如此容易！通过阅读、研究本文并按本文所述进行尝试，初学者将学到很多东西，如怎样使用RichText控件来打开和保存文件，怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。第一章让我们的记事本马上运行急于求成是初学者共有的心愿。那好，请按如下三个步骤做，我们的愿望立即就可以实现！ 步骤一：绘制界面。新建一个标准EXE工程，将其Caption属性改为超级记事本”，点击Icon属性给它找个合 适的Ico

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

3、菜单：一.文件菜单：文件（第一层）mn uFile新建（第二层）mnuNew打开（第二层）mnu Ope n保存（第二层）mnu Save-（第二层）mnuFileSep （分隔线）退出（第二层）mn uExit二.编辑菜单：编辑（第一层）mn uEdit复制（第二层）mnu Copy剪切（第二层）mnu Cut粘贴（第二层）mn uPaste-（第二层）mn uEditSep （分隔线）全选（第二层）mnu SelecAll三.搜索菜单：搜索（第一层）mnu Search查找（第二层）mnuFind查找下一个（第二层）mn uFi ndO n四.帮助菜单：帮助（第一层）mnu Help使用说

4、明（第二层）mn uUsage关于（第二层）mnu About（注：各菜单项的快捷键请自行设置） 好了，其它的菜单项以后再根据需要添加。现在进入: 步骤三：编写代码。'声明查找变量Dim sFi nd As Stri ng'声明文件类型Dim FileType, FiType As String'初始化程序Private Sub Form_Load()'设置程序启动时的大小Me.Height = 6000Me.Width = 9000End Sub'设置编辑框的位置和大小Private Sub Form_Resize()On Error Resume N

5、ext '出错处理RichTextBox1.Top=20RichTextBox1 .L eft=20RichTextBox1.Height = ScaleHeight-40RichTextBox1.Width = ScaleWidth-40End Sub'新建文件Private Sub mnu New_Click()RichTextBox1.Text =""' 清空文本框FileName ="未命名”Me.Capti on = FileNameEnd Sub'打开文件Private Sub mn uOpen_Click()Commo

6、nDialog1.Filter ="文本文档(*.txt)|*.txt|RTF 文档(*.rtf)|*.rtf| 所有文件(*.*)|*.*"Common Dialog1.ShowOpe nRichTextBox1.Text =""'清空文本框FileName = Com mon Dialog1.FileNameRichTextBoxI .L oadFile FileNameMe.Caption ="超级记事本：” & FileNameEnd Sub'保存文件Private Sub mnu Save_Click()Com

7、monDialog1.Filter =" 文本文档(*.txt)|*.txt|RTF 文档(*.rtf)|*.rtf| 所有文件(*.*)|*.*"Common Dialog1.ShowSaveFileType = Common Dialog1.FileTitleFiType = LCase(Right(FileType, 3)FileName = Com mon Dialog1.FileNameSelect Case FiTypeCase "txt"RichTextBox1.SaveFile FileName, rtfTextCase "rt

8、f"RichTextBox1.SaveFile FileName, rtfRTFCase "*.*"RichTextBox1.SaveFile FileNameEnd SelectMe.Caption ="超级记事本：” & FileNameEnd Sub'退出Private Sub mn uExit_Click()EndEnd Sub'复制Private Sub mn uCopy_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd Sub'剪切P

9、rivate Sub mnu Cut_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText =""End Sub'全选Private Sub mnu SelectAll_Click()RichTextBoxl.SelStart = 0RichTextBoxl.SelLe ngth = Len (RichTextBoxl.Text)End Sub'粘贴Private Sub mn uPaste_Click()RichTextBox1.SelText =

10、Clipboard.GetTextEnd Sub喳找Private Sub mn uFi nd_Click()sFind = InputBox(" 请输入要查找的字、词：","查找内容",sFind)RichTextBox1.Find sFindEnd Sub'继续查找Private Sub mn uFi ndOn_Click()RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLe ngth + 1RichTextBox1.Fi nd sFi nd, , Le n(

11、RichTextBox1)End Sub'使用说明Private Sub mn uReadme_Click()On Error GoTo han dlerRichTextBox1 .LoadFile "Readme.txt", rtfText ' 请写好 Readme.txt 文件并存入程序所在文 件夹中Me.Caption ="超级记事本：” & ”使用说明”Exit Subhan dler:MsgBox "使用说明文档可能已经被移除，请与作者联系。", vbOKOnly,"错误信息"End Sub

12、'关于Private Sub mn uAbout_Click()MsgBox "超级记事本 Ver1.0 版权所有(C) 2001 土人”,vbOKOnly,"关于”End Sub'设置弹出式菜单(即在编辑框中单击鼠标右键时弹出的动态菜单)Private Sub RichTextBox1_MouseDow n(Butt on As In teger, Shift As In teger, X As Sin gle,Y As Si ngle)If Butt on = 2 The nPopupMe nu mn uEdit, vbPopupMe nuLeftAli

13、g nElseExit SubEnd IfEnd Sub'防止在切换输入法时字体自变（感谢王必成先生提供此方案 ）Private Sub RichTextBox1_KeyUp（KeyCode As In teger, Shift As In teger）If KeyCode = vbKeySpace ThenRichTextBox1.SelFo ntName = Commo nDialog1.Fo ntNameEnd IfEnd Sub至此，我们的记事本可以编译使用了。点击菜单文件”生成XXX.EXE，回到桌面运行我们的记事本看看，是不是颇有成就感？当然，这样的记事本还比较粗糙，我们还

14、需要做些工作，请看下一章。第二章美化程序界面多数字处理软件都有工具栏和状态栏。工具栏和状态栏除了能美化我们的程序使其更具有专业性质外，还给用户带来操作上的便利。现在我们就来做一做这两样东西。一.工具栏（一）制作工具栏单击 工程”部件”选中Microsoft Windows Common Control 6.0并确定。这时，我们要用到的控件就出现在左边的工具栏上了。要做工具栏，首先需要一个叫ImageList的控件来装载图像。在程序界面上添加它，然后右键单击此控件，左键单击属性”弹出属性页”对话框的 图像”再单击插入图片”就可以一次性装载图片了（如不满意，以后还可以添加）。图片可在C:Micro

15、soft VisualStudioCommonGraphicsBitmapsTIBr_W95下选择（这里假设你的 VB安装在 C盘下）。注意了：在插入图片时给每一张图片注明关键字，以便在引用图片时不至于混乱。如插入新建”的图片，我们在 关键字”栏注明“Newo图片有了，接下来在程序界面添加工具栏 （ToolBar）。添加后工具栏就出现在菜单下面，右 键单击它，选择 属性”，在弹出的 属性页”对话框中的 通用项作些设置，主要如下两项：1. 图像列表o：选择ImageList12. 样式”根据喜爱选择 1-trbStandard 或者2-trbFlat继续点击属性页”的按钮”选项，插入若干按钮。按

16、钮有多种样式，请根据需要设置。这里 请一定注意：每一个与用户操作有关的按钮都必须注明关键字、装载图片，如新建”按钮，在关键字”项注明新建”，在图像”项键入“NeW （即卩ImageList1中的图片关键字）需要的 话还可以在工具提示文本"项填入适当的提示语。（二）编写工具栏的按钮代码工具栏按钮的代码编辑很简单，可以按照下面的格式去编写：Private Sub ToolBar1_Butto nClick（ByVal Button As MSComctILib.Butto n）On Error Resume Next ' 出错处理Select Case Butt on .Key

17、' 按关键字选择Case "新建”mnuNew_Click '等于菜单项 新建"被单击Case "打开”'等于菜单项 打开”被单击mnu Ope n_Click'.（继续编写其它按钮的代码）End SelectEnd Sub完成后试运行一下我们的程序，我们发现，有了工具栏之后，程序变得漂亮多了，只是有一个问题：打开一个较长的文档后，编辑框的下拉滚动条向上的箭头不见了。原因是：工具条占用一定的空间。解决方法：将设置编辑框的位置和大小 ”中的RichTextBox1.Top = 20 和RichTextBox1.Height = Me.

18、ScaleHeight - 40分别改为 RichTextBox1.Top = 380，RichTextBox1.Height = Me.ScaleHeight - 400 即可。二.状态栏（一）制作状态栏状态栏的英文名字叫 StatusBar，在窗体上添加它后会默认出现在窗体的最下方。用鼠标右键点击它，调出 属性页”对话框，单击 窗格'项，插入一些窗格，可以将各个窗格的样式”设置为：0-sbrText显示文本，需编写代码1- sbrCaps 显示大小写状态，无需编程2- sbrNum 显示NumLock键开关状态，无需编程3- sbrIns 显示Insert键状态，无需编程4- sbrScr15- sbrTime显示时间，不编程时时间不会随系统时钟变化6- sbrDate 显示日期，无需编程注意：加进状态栏后需将Form_Resze 中的 RichTextBox1.Height = Me.ScaleHeight - 400改为 RichTextBox1.Height = Me.ScaleHeight - 600。（二） 状态栏根据其 样式”属性决定用不用编写代码（如上文所述）。下面举些例子，读者可以认 真揣摩，从而达到举一反三的效果。例一：用户选取了 新建”后，让第一个窗格显示：目前状态：正在打开文件”。请将下面代码写进打开'菜单里面：St