VB记事本-.pdf

《VB记事本-.pdf》由会员分享，可在线阅读，更多相关《VB记事本-.pdf（7页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、End Sub VB 做自己个性记事本(代码已发出来)用 VB 做记事本其实很多方法可以用！这个源码发出来大家参考下！用 VB 做记事本用 VB 做一个记事本实在不很复杂，我们完全可以通过向导来很方便地做出来。但本文只打算讨论用手动方法制作记事本，旨在向VB 初学者展示：学VB 原来是如此容易！通过阅读、研究本文并按本文所述进行尝试，初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件，怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。第一章让我们的记事本马上运行急于求成是初学者共有的心愿。那好，请按如下三个步骤做，我们的愿望立即就可以实现！步骤一：绘制界面。新建一个标准EX

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

3、动条才可用。步骤二：编辑菜单。按 Ctrl+E调出菜单编辑器，我们来做如下几个菜单：一.文件菜单：文件（第一层）mnuFile 新建（第二层）mnuNew 打开（第二层）mnuOpen 保存（第二层）mnuSave-（第二层）mnuFileSep(分隔线）退出（第二层）mnuExit 二.编辑菜单：编辑（第一层）mnuEdit复制（第二层）mnuCopy 剪切（第二层）mnuCut 粘贴（第二层）mnuPaste-（第二层）mnuEditSep（分隔线）全选（第二层）mnuSelecAll 三.搜索菜单：搜索（第一层）mnuSearch 查找（第二层）mnuFind 查找下一个（第二层）mnu

4、FindOn 四.帮助菜单：帮助（第一层）mnuHelp 使用说明（第二层）mnuUsage 关于（第二层）mnuAbout(注：各菜单项的快捷键请自行设置)好了，其它的菜单项以后再根据需要添加。现在进入：步骤三：编写代码。注释：声明查找变量Dim sFind As String 注释：声明文件类型Dim FileType,FiType As String 注释：初始化程序Private Sub Form_Load()注释：设置程序启动时的大小Me.Height=6000 Me.Width=9000 End Sub 注释：设置编辑框的位置和大小Private Sub Form_Resize()

5、On Error Resume Next RichTextBox1.Top=20 RichTextBox1.Left=20 RichTextBox1.Height=ScaleHeight-40 RichTextBox1.Width=ScaleWidth-40 End Sub 注释：新建文件Private Sub mnuNew_Click()RichTextBox1.Text=注释：清空文本框FileName=未命名 Me.Caption=FileName End Sub 注释：打开文件Private Sub mnuOpen_Click()CommonDialog1.Filter=文 本 文 档

6、(*.txt)|*.txt|RTF文 档(*.rtf)|*.rtf|所 有 文 件(*.*)|*.*CommonDialog1.ShowOpen RichTextBox1.Text=注释：清空文本框FileName=CommonDialog1.FileNameRichTextBox1.LoadFile FileNameMe.Caption=超级记事本：&FileName End 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 FiType Case txt RichTextBox1.SaveFile FileName,rtfText Case rtf RichTextBox1.SaveFile FileName,rtfRTF Case*.*RichTextBox1.SaveFile FileNameEnd Select Me.Caption=超级记事本

8、：&FileName End Sub 注释：退出Private Sub mnuExit_Click()End End Sub 注释：复制Private Sub mnuCopy_Click()Clipboard.Clear Clipboard.SetText RichTextBox1.SelTextEnd Sub 注释：剪切Private Sub mnuCut_Click()Clipboard.Clear Clipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText=End Sub 注释：全选Private Sub mnuSelectAll

9、_Click()RichTextBox1.SelStart=0 RichTextBox1.SelLength=Len(RichTextBox1.Text)End Sub 注释：粘贴Private Sub mnuPaste_Click()RichTextBox1.SelText=Clipboard.GetTextEnd Sub 注释：查找Private Sub mnuFind_Click()sFind=InputBox(请输入要查找的字、词：,查找内容,sFind)RichTextBox1.Find sFind End 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 handler RichTextBox1.LoadFile Readme.txt,rtfText 注释：请写好Readme.txt文件并存入程序所在文件夹中Me.Caption=超级记事本：&使用说明 Exit Sub handler:MsgBox 使用说明文档

11、可能已经被移除，请与作者联系。,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 Then PopupMenu mnuEdit,vbPopupMenuLef

12、tAlign Else Exit Sub End If End Sub 注释：防止在切换输入法时字体自变(感谢王必成先生提供此方案)Private Sub RichTextBox1_KeyUp(KeyCode As Integer,Shift As Integer)If KeyCode=vbKeySpace Then RichTextBox1.SelFontName=CommonDialog1.FontNameEnd If End Sub 至此，我们的记事本可以编译使用了。点击菜单“文件”-“生成 XXX.EX E”，回到桌面运行我们的记事本看看，是不是颇有成就感？当然，这样的记事本还比较粗糙

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

14、以 后 还 可 以 添 加）。图 片 可 在C:Microsoft Visual StudioCommonGraphicsBitmapsTlBr_W95下选择(这里假设你的VB 安装在 C 盘下)。注意了：在插入图片时给每一张图片注明关键字，以便在引用图片时不至于混乱。如插入“新建”的图片，我们在“关键字”栏注明“New”。图片有了，接下来在程序界面添加工具栏(ToolBar)。添加后工具栏就出现在菜单下面，右键单击它，选择“属性”，在弹出的“属性页”对话框中的“通用”项作些设置，主要如下两项：1.“图像列表”：选择 ImageList1 2.“样式”：根据喜爱选择1-trbStandard或

15、者 2-trbFlat 继续点击“属性页”的“按钮”选项，插入若干按钮。按钮有多种样式，请根据需要设置。这里请一定注意：每一个与用户操作有关的按钮都必须注明关键字、装载图片，如“新建”按钮，在“关键字”项注明“新建”，在“图像”项键入“New”（即 ImageList1中的图片关键字）,需要的话还可以在“工具提示文本”项填入适当的提示语。(二)编写工具栏的按钮代码工具栏按钮的代码编辑很简单，可以按照下面的格式去编写：Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)On Error Resume Next 注

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

17、xtBox1.Height=Me.ScaleHeight-40分别改为RichTextBox1.Top=380，RichTextBox1.Height=Me.ScaleHeight-400即可。二.状态栏(一)制作状态栏状态栏的英文名字叫StatusBar，在窗体上添加它后会默认出现在窗体的最下方。用鼠标右键点击它，调出“属性页”对话框，单击“窗格”项，插入一些窗格，可以将各个窗格的“样式”设置为：0-sbrText 显示文本，需编写代码1-sbrCaps 显示大小写状态，无需编程2-sbrNum 显示 NumLock 键开关状态，无需编程3-sbrIns 显示 Insert键状态，无需编程4

18、-sbrScr1 5-sbrTime 显示时间，不编程时时间不会随系统时钟变化6-sbrDate 显示日期，无需编程注意：加进状态栏后需将Form_Resze中的 RichTextBox1.Height=Me.ScaleHeight-400改为 RichTextBox1.Height=Me.ScaleHeight-600。(二)状态栏根据其“样式”属性决定用不用编写代码(如上文所述)。下面举些例子，读者可以认真揣摩，从而达到举一反三的效果。例一：用户选取了“新建”后，让第一个窗格显示：“目前状态：正在打开文件”。请将下面代码写进“打开”菜单里面：StatusBar1.Panels(1).Tex

19、t=目 前 状 态：正 在 打 开 文 件&CommonDialog1.FileTitle&例二：让第三个窗格显示时间并让时间跟随系统时钟变化。首先，给程序加一个Timer控件，将其Interval属性设为1000。然后：在 Form_Load过程加入：StatusBar1.Panels(1).Text=Tim e；然后给Timer控件编写代码：Private Sub Timer1_Timer()If StatusBar1.Panels(3).Text CStr(Time)Then StatusBar1.Panels(3).Text=Tim eEnd If End Sub 例三：当编辑框的文本发生变化时让第一个窗格显示：“正在编辑文档：文件名”。Private Sub RichTextBox1_Chang()StatusBar1.Panels(1).Text=正在编辑文档：&CommonDialog1.FileName End Sub 辛苦了那么久，我们现在已经拥有一个象模象样的记事本了。这个记事本由于用了RichText控件，理论上它能打开和编辑任意大的文档，使用起来的确比Windows自带的记事本方便得多。当然，还有一些其它的功能需要添加和完善，这就靠你慢慢去完成了。