VB6.0由入门基础到精通.doc

《VB6.0由入门基础到精通.doc》由会员分享，可在线阅读，更多相关《VB6.0由入门基础到精通.doc（185页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、.-关于VB语言和怎样学习VB VB6.0全称为VisualBasic 6.0，是微软公司推出的可视化编程工具MSDN之一，是目前世界上使用最广泛的程序开发工具。如果你是一个对编程一无所知，而又迫切希望掌握一种快捷实用的编程语言的初学者，那选择VB 6.0没错的。即使考虑到VB程序本身编译和运行效率较低的不足(嘻嘻速度现在不是问题吧)，单是它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，它仍不失一款优秀的编程工具，是初学者的首选。也许你会问，我以前没学过任何一种语言，我能快速上手吗？别担心，没问题VB的语法的和QBASIB语言是基本相同的，也就是说它的语法是最容易被初学者所接受的。另外

2、VB提供的是可视化的开发环境，我们可以象搭积木一样构建出程序的界面，而且VB提供了丰富的控件组，省去了我们自己写代码实现这些效果的麻烦，这样我们就能把更多的精力放在程序功能的实现上，所以VB学起来简单，用起来方便。接着看看VB语言的前景，在目前各种编程语言共存的时代，VB会不会落伍呢？当然不会了，在我写这篇文章的同时，微软已经透露了VB7.0将完全面向对象的消息，可以肯定下一代VB的功能一定会强大很多，我们这些所谓的 VB 程序员总算可以放心了，VB不会落后于时代，毕竟它是使用人数最多的优秀的开发工具。好了，侃了这么多关于VB的台前幕后，总之是为想学编程的你树立信心，编程一点都不难，只要你决定

3、了开始，就让我们一起踏上愉快的编程之旅吧。接下来谈谈怎样学习VB，先说说“看实例学VB6.0”系列教程，它是面向编程初学者的VB入门教程，这个教程的特点是抛开晦涩难懂的概念和语法，不做内容上的堆积和罗列，而是采用了每节一个生动有趣的小例子的形式，每个小例子中会涉及到一个或几个VB编程的知识点(可能是控件，也许会是某个函数或编程小技巧)，使你快速入门。希望你学完此教程后能达到下述的效果： 从对编程一窍不通或从未接触过编程的状态，通过学习能够对VB6.0的编程环境比较熟悉，掌握VB开发界面的使用方法；对VB语言的基本语法大致了解，知道常见的语句的意义；学习VB常用控件的使用方法，并能将它们灵活运用

4、到应用程序中；能开发简单的VB程序。到那时你已经能够继续深入的学习VB编程，嘻嘻，目标就是这样啦。然后谈谈学习编程的方法，万事开头难，刚刚开始，遇到些困难没关系，慢慢来。编程是一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程中。我们每学一点，就赶快把它用到实际的程序中去，自己多学多用多实践，水平才能不断提高，这就是“学以致用”。另外，编程涉及到很多的知识，象操作系统的、软件工程的、硬件系统的以及编程思想等各个方面，这就需要我们多看看这方面的资料，扩充自己的知识面。教程分为三个大的部分，它们是由浅入深的一个系列，分别是：一、熟悉一下VB6.0的编程环境二、学习VB常用控件的使用方法

5、三、试着开发简单的VB应用程序好了，下面就一起来开始我们的学习吧。认识一下VB 6.0的编程环境 VB6.0采用可视化的编程环境，它好学易用，运行VB6.0后，会出现如下图所示的窗口，呵呵，看起来蛮复杂的，好多的按钮、菜单、小窗口，别担心，待会儿我们会一起学习这些东东都是干什么用的。先来解决一个小问题，怎么新建一个VB的工程呢？方法是这样的，在程序启动时出现的“新建工程”对话框中选择“标准EXE”并点击确定，就能直接新建一个工程，如果你跳过了这个对话框则也可从“文件”菜单中选择“新建工程”重新调出此对话框。下面一起来看看VB的编程环境，虽然看起来复杂，但可以把它分为几个部分，每个部分都有自己特

6、定的功能，这样我们就清楚多了。其实VB这是通过这样一个界面把相近或同类的功能组合在一起的，它使我们在设计程序时能方便的控制程序的方方面面。窗体的最上层是“VB 6.0的菜单”和“便捷工具按钮”，菜单中包含了所有的VB提供的功能的选项，而其中一些常用的功能或操作选项则被提取出来放在了“便捷工具按钮”中，通过点击这些快捷按钮可以加快程序开发的速度，下图标出了常见的工具按钮的作用，记着使用它们哦。接着看看“VB的组件面板”和“窗体设计区域”，VB提供了方便的窗体设计区域，它位于整个编程窗口的中间。我们可以在这个区域中搭建出美观实用的程序界面，试着从“VB的组件面板”中找到“按钮CommandButt

7、on”,点击选中后，再到“窗体设计区域”的窗体上点一下，这时，窗体上会出现一个按钮，这样我们就把按钮添加到我们程序的界面中了。嘻嘻，忘了告诉你哪里是“VB的组件面板”了，就是最左边的那一条包含许多看起来眼熟的小东西的区域，它是VB提供给我们的标准的编程组件(控件)，它把程序设计中常常用到的诸如按钮、图片框、列表框等等东西作好了放在那里，我们如果要使用只须添加到窗体中即可。 屏幕的右边有三个从上到下排列的小窗口，它们分别是：“VB工程管理器”：用来管理开发一个VB程序所需要的各种类型的窗体和模块，如左图是一个工程所包含的东西，窗体是一个程序表现在外面的界面、模块是程序内部使用的代码。当我们点击“

8、添加窗体”便捷工具按钮后，左图的“VB工程管理器”中就会显示出新添加的窗体，这也就是“VB工程管理器”的功能，它使我们从总体上把握程序开发的各个部分。组件属性窗口”：用来显示组件的属性，并允许我们修改，设定这些属性的值，我们在窗体设计区域的窗体上选中一个组件，以按钮为例，则在“属性窗口”中会列出它的属性，我们可以看到常用的“Name”、“Capition”、“Font”等等属性，试着把“Capition”属性改为“这是一个按钮”，然后看看“窗体设计区域”的按钮上“窗体布局窗口”：调整程序运行时，程序窗体在屏幕中的初始位置，把鼠标移到左图屏幕中的窗体上，这时鼠标会变成移动形状，拖动窗体，就设置好

9、了运行时此窗体的位置。好了说了这么多，还差一个区域没讲，那就是“代码编辑区域”，当我们在“窗体设计区域”双击鼠标，就能弹出这个区域，可以看到一行行的VB程序显示在其中，我们可以修改，写入程序代码，来让程序实现一定的功能，它是整个程序设计的关键，如果你对VB语言的语法还不是十分了解，可以继续下一节专门对“VB语法”的讲解，别着急，慢慢来，很快就能入门的。 “VB工程管理器”：用来管理开发一个VB程序所需要的各种类型的窗体和模块，如左图是一个工程所包含的东西，窗体是一个程序表现在外面的界面、模块是程序内部使用的代码。当我们点击“添加窗体”便捷工具按钮后，左图的“VB工程管理器”中就会显示出新添加的

10、窗体，这也就是“VB工程管理器”的功能，它使我们从总体上把握程序开发的各个部分。“组件属性窗口”：用来显示组件的属性，并允许我们修改，设定这些属性的值，我们在窗体设计区域的窗体上选中一个组件，以按钮为例，则在“属性窗口”中会列出它的属性，我们可以看到常用的“Name”、“Capition”、“Font”等等属性，试着把“Capition”属性改为“这是一个按钮”，然后看看“窗体设计区域”的按钮上显示的文字是不是改变了。VB的简单语法学习“窗体布局窗口”：调整程序运行时，程序窗体在屏幕中的初始位置，把鼠标移到左图屏幕中的窗体上，这时鼠标会变成移动形状，拖动窗体，就设置好了运行时此窗体的位置。好了

11、说了这么多，还差一个区域没讲，那就是“代码编辑区域”，当我们在“窗体设计区域”双击鼠标，就能弹出这个区域，可以看到一行行的VB程序显示在其中，我们可以修改，写入程序代码，来让程序实现一定的功能，它是整个程序设计的关键，如果你对VB语言的语法还不是十分了解，可以继续下一节专门对“VB语法”的讲解，别着急，慢慢来，很快就能入门的。 VB语言的语法和QBASIC基本一致，可以说如果你能读懂QBASIC程序，那你读VB的程序是没有问题的，这一节中我们只是简单的讲一讲VB的语法，因为在今后的各个实例中我们会不断接触到新的语法知识，这也是一个积累的过程。如果你还记得上节中的内容，我们提到过如果在“窗体设计

12、区域”的某个组件(控件)上双击鼠标，会出现“代码编辑窗口”，也就是如下图的窗口，我们可以在其中输入或是修改程序的代码。在我们双击控件到写入代码的这个过程中，我们涉及到了一个很重要的概念，这是VB与QBASIC的主要差别之一，大家知道在QBASIC包括Tubro C，TubroPascal等语言中程序从一开始就需要我们一点点的写代码来实现所有的功能，比如程序运行的界面，输入输出，键盘控制等，它们在程序中体现为一个个的过程或者是函数及子程序，它们都是完全面向过程的编程语言；但是现在的VB、VC、DELPHI等编程语言，都提供了可视化的编程环境，备有一整套常见的组件(控件)供我们使用，这些控件可以看

13、作是对象(VB严格的说不是完全面向对象的编程语言)，我们写程序时会直接与这些对象打交道，而不象原来。所以在VB中大部分的代码是与这些相关的，例如下图所示的一段代码，它是我们在一个按钮(Command)上双击鼠标而由VB自动产生的一个子过程，Private Sub Command1_Click()是子过程的开始，End Sub表示子过程的结束。然后我们可以在子过程中添加程序代码，也就是由我们自己来写当按钮被点击时，程序所做出的响应。下面我们便来分析一下这段代码。B中声明一个变量使用“Dim 变量名 As 变量类型”的方法，一般在程序中使用的到的变量都应该有变量声明，如上例中的a、b、i分别被定义

14、为整型和字符串型变量，VB中的变量类型有以下几种：数据类型说明Byte二进制数 Boolean 真假值 Integer 整数 Long长整型Single 实数 Double双精度型 Currency 货币 Date 日期和时间 Object 对象 String 字符串 Variant可变类型控制结构和循环结构是程序设计中常见的两种结构。计算机在运行程序的时候，执行语句的顺序是从上向下的。 有些简单程序可以只用单向流程来编写，但稍微复杂的程序就要靠控制语句来控制程序执行的流程。控制结构主要有两种，分支结构和循环结构。 分支结构：分支结构事实上是一种选择，在不同的条件下选择执行不同的程序段。实现分

15、支结构的语句有很多，最常用的是ifthenelse。例如： if 条件 then 程序段一 else 程序段二 end if 如果条件满足了，电脑将执行程序段一中的语句，然后跳过程序段二，执行下面的语句。如果条件不满足，电脑将跳过程序段一种的语句，执行程序段二，然后继续执行下面的语句。 循环结构：循环结构就是让电脑反复的执行某一程序段落干次。 用DoLoop可以循环重复执行一语句块，且重复次数不定。 在已知循环次数的条件下，用Fornext可以反复执行统一语句块。以上两种结构你可以参照图中所示的代码，仔细体会一下，今天就讲这么多了，下节我们就要进入实例式的控件学习。简单的文本框TEXTBOX的

16、例子 文本框控件（TextBox)是VB中最常用的控件。它是显示和输入文本的容器，相当于一个文字编辑器，提供了所有基本的文字处理功能，例如文本的编辑等。在下面这个小程序中，我们能看到文本框控件（TextBox)的最基本的属性。为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：这个例子的两个窗体界面如下：主窗体窗体（FormBack）我们首先新建一个标准的EXE工程。添加两个窗体，并把TextBox、Button、Label控件放置在窗体上。各文本框的名称如下表：文本框名称名称属性文本框名称名称属性会员编号文本框TextID电子邮件文本框TextMail密码文本框TextPas

17、sWord个人介绍文本框TextResume姓名文本框TextName会员信息文本框TextAll在属性窗口中将TextPassWord的PassWordChar属性设为*；TextResume的Multiline属性设为Ture,ScrollBars属性设为2 -Vertical；TextAll文本框的Multiline属性设为为Ture, ScrollBars属性设为2 -Vertical，Appearance属性设为为0 - Flat。下一步我们为FormTxtBox窗体中“确定”(CmdOK)和“清除”(CmdClear)按钮的Click事件中添加相应的程序。其中：TextID.Tex

18、t = 是把会员编号文本框中的内容清空，其它语句与此类似。FormBack.TextAll.Text = LblID.Caption & & TextID.Text _ & vbNewLine & 该语句设置FormBack窗体中TextAll文本框的文本。vbNewLine是换行显示标志。“ _”是续行标志，当语句一行写不下时使用此标志，但要注意：前面要加空格。 代码写好之后，我们就可以保存工程，然后按“Ctrl+F5”键，测试检验一下我们的程序了。简单的列表框ListBox的例子列表框（ListBox）控件表示一个选项清单，用户可能用鼠标选择其中一个或者几个选项。 列表框的特点是：列表框中

19、的项目是通过程序插入到其中的，用户无法向清单中输入数据，当选择其中的项目，并在用户单击一个按钮或者执行某个操作时，由应用程序完成对指定项目的具体操作。下面这个例子充分说明了列表框的这个特点，并介绍了列表框（ListBox）的常用属性。为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码： 这个例子包含一个窗体，窗体中有两个列表框（List1、List2）和八个按钮，界面如下：窗体（FormListBox）我们首先新建一个标准的EXE工程，添加一个窗体，并把列表框和按钮控件添加到窗体上。各按钮控件的名称如下表：按钮名称名称属性按钮名称名称属性删除所选项目（左）List1movecm

20、d删除所选项目（右）List2movecmd增加新项目（左）List1addcmd增加新项目（右）List2addcmd清除弄表（左）List1clearcmd清除列表（右）List2clearcmd右箭头lefttorightcmd左箭头RighttoleftcmdList1列表框 Sorted属性设为“False” List2列表框 Sorted属性设为“True” MultiSelect属性设置为2 即List2控件中的项目总是排序的 在属性窗口中，将List1列表框 Sorted属性设为“False”；List2列表框 Sorted属性设为“True”，MultiSelect属性设置为

21、2，即List2控件中的项目总是排序的。下一步我们为各控件添加相应的程序。其中：List1.AddItem China 是将“China”添加到列表框中。List1.ListIndex 返回的是列表框List1中当前选择项目的索引号码。 List1.ListCount 返回的是列表框List1中项目总数。List1.ListCount - 1 返回列表框List1中最后一个项目的索引号。List1.Selected() 返回的是一个项目的选择状态，返回的是布尔值。代码写好之后，我们就可以保存工程，然后按“Ctrl+F5”键，测试检验一下我们的程序了。在这个小程序中，包含了列表框中的一般常用属性

22、和方法。CommomDialog使用的例子 CommonDialog控件是常用的一个控件，它为我们提供了打开、另存为、字体、颜色、打印、帮助等几种类型的标准对话框，本例演示了所有这些类型的对话框的使用方法。为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：这个例子包含一个窗体，窗体中有两个列表框（List1、List2）和八个按钮，界面如下： 窗体（FormListBox）我们首先新建一个标准的EXE工程，添加一个窗体，并把列表框和按钮控件添加到窗体上。各按钮控件的名称如下表：按钮名称名称属性按钮名称名称属性删除所选项目（左）List1movecmd删除所选项目（右）List

23、2movecmd增加新项目（左）List1addcmd增加新项目（右）List2addcmd清除弄表（左）List1clearcmd清除列表（右）List2clearcmd右箭头lefttorightcmd左箭头RighttoleftcmdList1列表框 Sorted属性设为“False” List2列表框 Sorted属性设为“True” MultiSelect属性设置为2 即List2控件中的项目总是排序的 在属性窗口中，将List1列表框 Sorted属性设为“False”；List2列表框 Sorted属性设为“True”，MultiSelect属性设置为2，即List2控件中的项目

24、总是排序的。下一步我们为各控件添加相应的程序。其中：List1.AddItem China 是将“China”添加到列表框中。List1.ListIndex 返回的是列表框List1中当前选择项目的索引号码。 List1.ListCount 返回的是列表框List1中项目总数。List1.ListCount - 1 返回列表框List1中最后一个项目的索引号。List1.Selected() 返回的是一个项目的选择状态，返回的是布尔值。代码写好之后，我们就可以保存工程，然后按“Ctrl+F5”键，测试检验一下我们的程序了。在这个小程序中，包含了列表框中的一般常用属性和方法。CommomDial

25、og使用的例子 CommonDialog控件是常用的一个控件，它为我们提供了打开、另存为、字体、颜色、打印、帮助等几种类型的标准对话框，本例演示了所有这些类型的对话框的使用方法。为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：如果控件面板中没有CommonDialog控件的小图标，必须先从“添加控件对话框”中添加，下面我们来看看怎样调用不同类型的对话框。CommonDialog控件有一系列的Show方法，例如：ShowOpen、ShowSave、ShowFont、ShowColor、ShowPrinter、ShowHelp等，这些方法的使用语法是类似的，如下所示：objec

26、t.ShowOpen，我们只须在程序中写入这个语句，就能调出“打开”对话框，同样也能调用其它类型的对话框。而CommonDialog控件的属性是和不同的对话框类型紧密相关的，有些属性只适用于某一类对话框，有些属性在不同的对话框中的属性是有差别的，所以下面分类列出了和不同对话框相关联的属性的用法。与ShowOpen、ShowSave方法相关的属性：FileName属性：返回或设置所选文件的路径和文件名，如果在使用Show方法以前使用FileName属性，则设定了对话框的默认文件名；如果是在以后使用则返回选择的文件名。使用语法是： CommonDialog.Filename=pathname Fi

27、lter属性：返回或设置在对话框的类型列表框中所显示的过滤器(也就是限定打开或保存为的文件类型)，它的使用语法是：object.Filter = 描述文字1 |过滤标示1 |描述文字2 |过滤标示2其中描述文字为任意文字，而 过滤标示则采用*.文件后缀(例如：*.bmp)的格式，描述文字和过滤标示之间用“|”隔开。DefaultExt属性：为该对话框返回或设置缺省的文件扩展名，也就是当我们没有指定打开或保存的文件类型时，按DefaultExt属性所设置的扩展名为默认值。与ShowFont方法相关的属性：Color选定的颜色。为使用此属性，必须先将Flags属性设置为cdlCFEffects。

28、FontBold 是否选定“粗体”。 FontItalic 是否选定“斜体”。 FontStrikethru 是否选定删除线。 FontUnderline 是否选定下划线。 FontName 选定的字体名称。 FontSize 选定的字体大小。使用的语法是直接引用，比如我们要根据“字体对话框”返回的值设置文本框的字体，则直接采用语句：Text.Font=CommonDialog.FontnName 与ShowColor方法相关的属性：Color选定的颜色。为使用此属性，必须先将Flags属性设置为cdlCFEffects。与ShowHelp方法相关的属性：HelpCommand属性 返回或设置

29、需要的联机帮助的类型 HelpFile属性确定帮助文件的路径和文件名语法是： object.HelpFile = filename 下面看看CancelError属性，它设置当选取“取消”按钮时是否认为出错，使用的语法是：CommonDialog.CancelError= boolean (boolean指布尔型变量)如果我们把它设为True，则当使用者选取了“取消”按钮时程序会返回一个cdlCancel错误，通过捕捉这个错误并加以处理，我们就能避免程序的出错。具体的使用可在源码中看到实例。在状态栏中显示帮助信息 状态栏是VB中的一个很有用的控件，但是默认状态下它不在控件面板中，在我们使用它之

30、前必须先添加，方法是按下Ctrl+T快捷键，在弹出的“Components”对话框中选中MS Windows Common Controls。这时在控件面板中会出现状态栏的小图标，双击此图标就能把它添加到窗体中。接下来我们根据自己的需要来编辑状态栏，选中窗体上的状态栏，在鼠标右键菜单中选择“属性Properties”，这时会弹出如上图所示的对话框，我们选择“Panels窗格”。其中“Insert Panel”按钮用来添加状态栏中的窗格数目，当我们添加一个窗格后“Index”的值也会自动加一，在程序中我们通过窗格的索引值来引用窗格。下面的一些项目都是窗格的属性，我们可以在此设置也可在程序中控制它

31、。比较常用的属性有：“Text”-在各个窗格中显示的文字；“Alignment”-窗格中文本的对齐方式；“Style”窗格的样式(选择0-sbrText为显示文本，选择6-sbrDate为显示日期等等)；“Bevel”-窗格的凹凸状态。另外我们还可以在窗格中加入图片，方法是点击“Browse”然后选中图片文件。在本程序中我们在第一个窗格中动态显示帮助信息，在第二、三个窗格中分别显示日期和时间。那么怎样在程序中控制状态栏中显示的文本呢？例如我们希望鼠标移动到不同的按钮上时状态栏的第一个窗格中显示不同的帮助，则我们在按钮的OnMouseOver事件中加入如下语句即可：Private Sub Cmd

32、New_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) staSample.Panels(1).Text = staSample.Panels(1).Text = 清空文本框 End Sub 同样的我们能为其它按钮等控件添加帮助信息。为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：这样状态栏中就能动态显示帮助信息了。使用右键菜单的例子右键菜单能让软件的使用者快捷的完成操作，那么如何把右键菜单用在自己写的程序中呢？在这个小程序中我们能看到编辑并使用右键菜单的方法。为了学习方便，提

33、供的源码已经作了详细的中文注释，看看源码框中的代码：我们先打开菜单编辑器(在工具菜单中)，然后添加一个一级菜单Popmenu，将它的Visible属性设为“False”，这代表菜单在程序运行时是看不到的，由于一级菜单是二级菜单的上级菜单，所以二级菜单也是看不到的。然后我们来添加几个二级菜单，注意每个菜单都有Caption属性和Name属性，这两个属性是必须写的，Caption属性是显示在菜单项上的内容，而Name属性则是我们要在程序中引用菜单项的代号，类似与其它控件的Name属性。而菜单中分隔线是通过把Caption属性设为“-”来实现的。菜单编辑好后，就能在程序中引用并控制它，在本例中我们希

34、望在文本框上点击鼠标右键时弹出这个右键菜单，则需要在文本框的MouseDown事件中加入控制语句：Private Sub RichTextBox1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button = 2 Then如果是鼠标右键按下时Form1.PopupMenu mnufile, 0, X, Y弹出右键菜单End IfEnd Sub其中MouseDown事件各个参数意义如下：button返回一个整数，用来标识该事件的产生是按下哪个按键，其中左键为0，右键为2，中间键为4 shift

35、返回一个整数，标示是否同时有Shift,Ctrl,Alt键按下x, y 返回一个指定鼠标指针当前位置的数Popupmenu是一个方法：PopupMenu方法用来弹出一个菜单，语法是：object.PopupMenu menuname, flags, X, Ymnufile是我们在菜单编辑器中设计好的菜单的名称X,Y是弹出菜单的位置，可以为数字，如果直接写为X,Y则是在当前鼠标位置弹出菜单这样就能调出右键菜单，然后我们根据自己的需要，为每个菜单项的Click事件编写代码，完成一些特定的操作，右键菜单就可以使用了。最后效果如下图所示：AppActivate语句描述：激活其它应用程序。一、语法：Ap

36、pActivatetitle,waitAppActivate语句的语法具有以下几个命名参数：部分描述title必需的。字符串表达式，所要激活的应用程序的名称。常使用Shell函数返回的任务识别码来替换title，以激活应用程序wait可选的。Boolean值，取值为True/False。说明在激活另一个应用程序之前调用的应用程序是否有焦点。如果为False（缺省），那么，即使调用的应用程序没有焦点，也直接激活指定的应用程序。如果为True，则调用的应用程序会等到有焦点后，才激活指定的应用程序二、说明：AppActivate语句不能打开应用程序，只能激活应用程序（使其变成活动窗口）。在使用App

37、Activate语句时必须打开应用程序，否则程序会报错。所以通常先用Shell函数启动一个应用程序，然后使用AppActivate语句激活。三、应用举例：本例使用AppActivate语句来激活Microsoft Excel。建立一个标准工程，在窗体上添加一个命令按钮，将下面的程序粘贴过去。Private Sub Command1_Click()AppActivate Microsoft EXCEL 激活Microsoft Excel。End Sub首先打开Microsoft Excel，然后运行程序，单击命令按钮，你将看到Excel变成活动窗体。下面示例用Shell函数启动Microsoft

38、 Excel，然后用AppActivate语句来激活Microsoft Excel。在运行程序前，首先找到Microsoft Excel的路径，并关闭Excel。在上面的标准工程中，用下面的程序替换上面的程序，并把路径换成你电脑中Microsoft Excel的路径，然后运行程序，单击命令按钮，你将看到Excel被打开并被激活。Private Sub Command1_Click()Dim MyAppIDMyAppID = Shell(C:Program FilesMicrosoft OfficeOfficeEXCEL.EXE, 1)运行Microsoft Excel。AppActivate

39、MyAppID 激活Microsoft Excel。End SubBeep语句描述：通过计算机喇叭发出声音。一、语法：Beep 二、说明：呼叫的频率与时间长短取决于硬件和系统软件，并随计算机不同而不同。三、应用举例：在调试程序时，有时需要在发生错误时发出音响。本例在程序运行时，如果某一步发生错误，则转到错误处理入口，使用Beep语句让计算机发出响声，同时MsgBox函数将提示错误。建立一标准工程，在窗体上添加一命令按钮，将下面的程序粘贴过去。Private Sub Command1_Click()On Error GoTo ErrorHandler 发生错误转到错误处理入口MsgBox 程序运

40、行Exit Sub 程序运行完毕，没有错误退出程序ErrorHandler: 错误处理入口Beep 发出声响。MsgBox 出错End Sub单击命令按钮，MsgBox显示程序运行。现在加入一条错误的激活Microsoft Excel语句，程序如下：Private Sub Command1_Click()On Error GoTo ErrorHandler 发生错误转到错误处理入口AppActivate EXCEL.EXE 错误语句。MsgBox 程序运行Exit Sub 程序运行完毕，没有错误退出程序ErrorHandler: 错误处理入口Beep 发出声响。MsgBox 出错End Sub

41、 单击命令按钮，MsgBox显示出错，计算机喇叭发出声音。误区：有些教材用下面的示例使用Beep语句让计算机连续响三声，实际上计算机在运行下面的程序时只能响一声，原因是计算机的运行速度远比计算机喇叭发出声音的速度快。Dim IFor I = 1 To 3 循环3次。Beep 发出一声。Next ICall语句描述：将控制权转移到一个Sub过程，Function过程，通俗的讲就是调用一个子程序或函数。一、语法：CallnameargumentlistCall语句的语法包含下面部分：部分描述call可选参数；关键字。如果指定了这个关键字，则参数必须加上括号，例如：Call MyProc(0)nam

42、e (过程名)必要参数，要调用的过程名称argumentlist(参数列表)可选参数，传递给过程的变量、数组或表达式的列表，各参数间以逗号隔开。Argumentlist的每个参数都可以加上关键字ByVal或ByRef，来描述被调用的过程将如何处理这些参数。二、说明：调用一个过程时，并不一定要使用Call关键字。如果使用Call关键字来调用一个需要参数的过程，argumentlist就必须要加上括号。Call name(argumentlist)如果省略了Call关键字，那么也必须要省略argumentlis外面的括号。Name argumentlist如果需要函数的返回值，则应先定义一个变量，

43、然后将函数的返回值赋予变量，这时虽然省略了Call关键字，但argumentlist也必须要加上括号。如下面的格式：Dim str As Stringstr = name(argumentlist)若要将整个数组传给一个过程，使用数组名，然后在数组名后加上空括号。有时为了方便，可用公有变量传递参数。三、应用举例：下列示例示范如何使用Call语句来调用子过程。建立一个标准工程，在窗体上添加一命令按钮和一个文本框，将下面的程序粘贴过去。Private Sub Command1_Click()Call procedureEnd SubPrivate Sub procedure()Dim a 定义变量

44、a = Date 取日期Text1.Text = aEnd Sub单击命令按钮，Text1显示日期。下列示例示范如何使用省略了Call关键字来调用函数，并根据返回值决定程序是否继续运行。还在上面的这个标准工程里，用下面的程序替换上面程序中的第一部分。Private Sub Command1_Click()Dim str As String 定义变量str = MsgBox(是否继续运行, vbYesNo + vbExclamation, Me.Caption)If str = vbNo Then Exit SubprocedureEnd Sub单击命令按钮后MsgBox函数提示“是否继续运行”，单击否退出程序，Text1无变化；单击是运行后面的程序，Text1显示日期。ChDir语句描述：改变当前的路径(目录或文件夹)。一、语法：ChDirpathpath(路径名)为必要参数，它是一个字符串表达式，指明将改变到哪个路径(目录或文件夹)。 二、说明：如果改变的路径不在当前的驱动器上，则应输入包括驱动器在内的完整路径，如：ChDir f:talltreeyyglclienthelp上移一层目录采用下面的格式：ChDir.注意：path必须为有效路径，否则系统会报错。三、应用举例：本示例使用ChDir语句来改变当前路径，建立一标准工程，在窗体上添加一命令按钮，一个文本框和一个文件列表