第十一章 VB综合应用实例.doc

《第十一章 VB综合应用实例.doc》由会员分享，可在线阅读，更多相关《第十一章 VB综合应用实例.doc（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第十一章 VB综合应用实例11.1记事本实例11.1.1基本功能实现（1）步骤一：绘制界面。新建一个标准EXE工程，将其Caption属性改为“记事本”，点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到Microsoft Rich Text Box Control6.0和公共对话框Microsoft Common Dialog Control6.0并选中它们，单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichText Box和Commn Dialog，其中RichText Box的大小和位置可不用理睬，我

2、们将在代码中处理它，当然，有必要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才能使用。（2）步骤二：编辑菜单。按Ctrl+E或者其他方式调出菜单编辑器，我们来做如下几个菜单：n 文件菜单：文本（Caption）名字（Name）层次快捷键（Shortcut）文件(&F)mnuFile第一层None新建(&N)mnuNew第二层Ctrl+N打开(&O).mnuOpen第二层Ctrl+O保存(&S)mnuSave第二层Ctrl+S-mnuFileSep第二层None退出(&E)mnuExit第二层Ctrl+En 编辑菜单：文本（Caption）名字（N

3、ame）层次快捷键（Shortcut）编辑(&E)mnuEdit第一层None复制(&C)mnuCopy第二层Ctrl+C剪切(&T)mnuCut第二层Ctrl+X粘贴(&S)mnuPaste第二层Ctrl+V-mnuEditSep第二层None全选(&A)mnuExit第二层Ctrl+An 搜索菜单：文本（Caption）名字（Name）层次快捷键（Shortcut）搜索(&S)mnuSearch第一层None查找(&F)mnuFind第二层Ctrl+F查找下一个(&N)mnuFindOn第二层F3n 帮助菜单：文本（Caption）名字（Name）层次快捷键（Shortcut）帮助(&H)

4、mnuHelp第一层None使用说明(&M)mnuUsage第二层None关于(&A)mnuAbout第二层None（3）步骤三：编写代码。声明查找变量Dim sFind As String声明文件类型Dim FileType, FiType As String初始化程序Private Sub Form_Load()设置程序启动时的大小Me.Height = 6000Me.Width = 9000End Sub设置编辑框的位置和大小Private Sub Form_Resize()On Error Resume Next 出错处理RichTextBox1.Top=20RichTextBox1.

5、Left=20RichTextBox1.Height = ScaleHeight-40RichTextBox1.Width = ScaleWidth-40End 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.

6、ShowOpenRichTextBox1.Text = 清空文本框FileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNameMe.Caption = 记事本： & FileName End Sub保存文件Private Sub mnuSave_Click()CommonDialog1.Filter = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFiType =

7、 LCase(Right(FileType, 3)FileName = CommonDialog1.FileNameSelect Case FiTypeCase txtRichTextBox1.SaveFile FileName, rtfTextCase rtfRichTextBox1.SaveFile FileName, rtfRTFCase *.*RichTextBox1.SaveFile FileNameEnd SelectMe.Caption = 记事本： & FileNameEnd Sub退出Private Sub mnuExit_Click()EndEnd Sub复制Private

8、 Sub mnuCopy_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd Sub剪切Private Sub mnuCut_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = End Sub全选Private Sub mnuSelectAll_Click()RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.Text)End

9、 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()RichTextBox1.SelStart = RichTextBox1.SelStart+RichTextBox1.SelLength+1RichTextBox1.Fi

10、nd sFind, , Len(RichTextBox1)End Sub使用说明Private Sub mnuUsage_Click()On Error GoTo handlerRichTextBox1.LoadFile Readme.txt, rtfText 请写好Readme.txt文件并存入程序所在文件夹中Me.Caption = 记事本： & 使用说明Exit Subhandler:MsgBox 使用说明文档可能已经被移除，请与作者联系。, vbOKOnly, 错误信息End Sub关于Private Sub mnuAbout_Click()MsgBox 记事本 Ver1.0 版权所有

11、(C) 2008 无锡科院软服学院斗战胜佛,vbOKOnly,关于End Sub设置弹出式菜单（即在编辑框中单击鼠标右键时弹出的动态菜单）Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu mnuEdit, vbPopupMenuLeftAlignElseExit SubEnd IfEnd Sub防止在切换输入法时字体自变Private Sub RichTextBox1_KeyUp(KeyCode

12、As Integer, Shift As Integer)If KeyCode = vbKeySpace ThenRichTextBox1.SelFontName = CommonDialog1.FontNameEnd IfEnd Sub至此，我们的记事本可以运行使用了。点击菜单“文件”-“生成某某某.EXE”，声称exe可执行文件即可运行了。当然，这样的记事本还比较粗糙,我们还需要做些工作。11.1.2美化程序界面多数字处理软件都有工具栏和状态栏。工具栏和状态栏除了能美化我们的程序使其更具有专业外表之外，还给用户带来操作上的便利。下面我们就为我们的记事本添加工具栏和状态栏。（1）工具栏n 添

13、加工具栏单击“工程”-“部件”，选中Microsoft Windows Common Controls 6.0并确定。这时，我们要用到的控件就出现在左边的工具栏上了。要做工具栏，首先需要一个叫ImageList的控件来装载工具栏上每个按钮的图像。在程序界面上添加一个ImageList控件，然后右键单击此控件，选择“属性”菜单，在出现的属性页对话框中选择 “图像（Images）”属性页，再单击“插入图片”按钮就可以一次性装载图像了。图片可在C:Microsoft Visual StudioCommonGraphicsBitmapsTlBr_W95下选择(这里假设你的VB安装在C盘下)。注意，在插

14、入图片时给每一张图片注明关键字，以便在引用图片时不至于混乱。如插入“新建”的图片，我们在“关键字（Key）”栏注明“new”。图11.1 ImageList控件内加入的图像图片有了，接下来在程序界面添加工具栏(ToolBar)。添加后工具栏就出现在菜单下面，右键单击它，选择“属性”，在弹出的“属性页”对话框中的“通用（General）”项作些设置，主要如下两项：1.“图像列表（ImageList）”：选择ImageList控件，ImageList控件默认名称为ImageList1。2.“样式（Style）”：根据喜爱选择0-tbrStandard或者1-tbrFlat。这里我们选择1-tbrF

15、lat。继续点击“属性页”的“按钮（Buttons）”选项，插入若干按钮。按钮有多种样式，请根据需要设置。这里请一定注意：每一个与用户操作有关的按钮都必须注明关键字（Key）。例如“新建”按钮，在“关键字（Key）”项注明“new”，即ImageList控件中的图片关键字，如果有必要还可以在“工具提示文本（ToolTipText）”项填入适当的提示语。为了显示在ImageList控件中图像，为每一个按钮 “图像（Image）”设置图像在ImageList控件中的索引（Index）值。例如第一个按钮显示ImageList控件中第一个图像，所以Index值设置为1。图11.2 工具栏按钮设置n 编

16、写工具栏的按钮代码工具栏按钮的代码编辑很简单，可以按照下面的格式去编写：Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)On Error Resume Next 出错处理Select Case Button.Key 按关键字选择Case newmnuNew_Click 等于菜单项“新建”被单击Case open 等于菜单项“打开”被单击mnuOpen_Click.(继续编写其它按钮的代码)End SelectEnd Sub完成后运行一下我们的程序。我们发现有了工具栏之后，程序变得漂亮多了，只是有一个问题：打

17、开一个较长的文档后，编辑框的下拉滚动条向上的箭头不见了。原因是工具条占用一定的高度。解决方法可以将“设置编辑框的位置和大小”中的RichTextBox1.Top = 20 和 RichTextBox1.Height = Me.ScaleHeight - 40分别改为RichTextBox1.Top = 380，RichTextBox1.Height = Me.ScaleHeight - 400即可。（2）状态栏状态栏的英文名字叫StatusBar，在窗体上添加它后会默认出现在窗体的最下方。用鼠标右键点击它，调出“属性页”对话框，单击“窗格（Panels）”项，插入一些窗格。可以将各个窗格的“样

18、式（Style）”设置为：0-sbrText 显示文本，需编写代码1-sbrCaps 显示大小写状态，无需编程2-sbrNum 显示NumLock键开关状态，无需编程3-sbrIns 显示Insert键状态，无需编程4-sbrScrl 5-sbrTime 显示时间，不编程时时间不会随系统时钟变化6-sbrDate 显示日期，无需编程注意：加进状态栏后需将Form_Resze中的RichTextBox1.Height = ScaleHeight - 400改为RichTextBox1.Height = ScaleHeight 600以调整输入框的高度。 状态栏根据其“样式（Style）”属性决定

19、用不用编写代码(如上文所述)。下面举些例子，读者可以认真揣摩，从而达到举一反三的效果。例一：用户选取了“新建”后，让第一个窗格显示：“打开文件”。请将下面代码写进“打开”菜单里面： StatusBar1.Panels(1).Text = 打开文件 & CommonDialog1.FileTitle 注意：为了让第一个窗格足够大显示提示内容，可以将第一个窗格的“自动尺寸（AutoSize）”设置为1-sbrSpring。例二：让第三个窗格显示时间并让时间跟随系统时钟变化。首先，给程序加一个Timer控件，将其Interval属性设为1000。然后在Form_Load过程加入：StatusBar1

20、.Panels(3).Text = Time然后给Timer控件编写代码：Private Sub Timer1_Timer()If StatusBar1.Panels(3).Text CStr(Time) ThenStatusBar1.Panels(3).Text = TimeEnd IfEnd Sub例三：当编辑框的文本发生变化时让第一个窗格显示：“正在编辑文档：文件名”。Private Sub RichTextBox1_Change()StatusBar1.Panels(1).Text = 正在编辑文档： & CommonDialog1.FileNameEnd Sub至此我们拥有一个象模象样的记事本了。这个记事本由于用了RichText控件，理论上它能打开和编辑任意大的文档，使用起来的确比Windows自带的记事本方便得多。当然，还有一些其它的功能需要添加和完善，这就靠你慢慢去完成了。