VB6.0快速入门与精通(含100例)(5)

零长度的字符串(\，则当前的驱动器将不会改变。 二、应用举例：

本示例使用ChDrive语句来改变当前的驱动器。建立一标准工程，在窗体上添加一命令按钮，一个文本框和一个目录列表框(DirListBox)，将下面的程序粘贴过去。 Private Sub Command1_Click() ChDrive Text1.Text Dir1.Path = Text1.Text End Sub

在文本框里输入一个完整路径，然后单击命令按钮，目录列表框将显示这个驱动器的名称，点击目录列表框右边的箭头，可以看到这个驱动器下的全部一级文件夹。

Close语句

描述：关闭用Open语句打开的输入/输出(I/O)文件。 一、语法：

Close[filenumberlist]

filenumberlist(文件号列表)为可选参数，它是一个或多个文件号，其中filenumber为任何有效的文件号。如果是多个文件号，个文件号之间用逗号隔开，语法如下： [[#]filenumber1][,[#]filenumber2]... 二、说明：

若省略filenumberlist，则将关闭Open语句打开的所有活动文件。文件被关闭后，相关联的缓冲区空间被释放，文件与其文件号之间的关联也将终结。 三、应用举例：

本示例使用Close语句来关闭为Output而打开的文件。建立一个标准工程，在窗体上添加一命令按钮，将下面的程序粘贴过去。 Private Sub Command1_Click()

Open \打开文件。

Print #1, \文件被打开。\将字符串写入文件。 Close '将已打开的文件关闭。 End Sub

运行程序，单击命令按钮。我们会发现程序新建了一个名为“a”的文本文件，“文件被打开。”已经写入导文本里。

Const语句

描述：声明常量。 一、语法：

[Public|Private]Const constname[As type]=expression Const语句的语法包含下面部分： 部分 描述 public 可选的。该关键字用于在模块级别中声明该常量为全局的（公用的），也就是说在所有模块和窗体中都可以使用的常量。该关键字在窗体中不能使用。 可选的。该关键字用于在模块或窗体级声明该常量为局部的，即只能在包含该声明的模块或窗体中使用的常量。不能在过程中使用。 private constname 必需的。有效的常量名；遵循标准的变量命名约定。 type 可选的。常量的数据类型；可以是VB变量的各种类型。所声明的每个常量都要使用一个单独的As类型子句。 必需的。文字，其它常量，或由除Is之外的任意的算术操作符和逻辑操作符所构成的任意组合。 expression 二、说明：

对于程序中多次出现的数值、文字等最好使用常量，这样在程序运行时不易出错。常量可以使程序更具可读性，以及易于修改。

在缺省情况下常量是局部的。在Sub、Function或Property过程中声明的常量都是该过程的局部常量，在类模块声明的常量也是局部的。在标准模块中，可以用Public关键字来声明常量为全局的。

可以在一行中声明若干个常量，使用逗号将每个常量赋值分开。用这种方法声明常量时，如果使用了Public或Private关键字，则该关键字对该行中所有常量都有效。 三、应用举例：

该示例使用Const语句来声明常量。Public常量在标准模块的通用部分声明，而不是在类模块中声明。Private常量可以在任何模块类型的通用部分声明。 Const Pai = 3.14 '缺省情况下常量是局部的。 Public Const MyStr = \你好\声明全局常量。

Private Const vbGrayed As Integer = 2 '声明局部的整数常量。

Const MyStr = \你好\在一行中声明多个常量。

Date语句

描述：设置当前系统日期。 一、语法： Date=date

Date的格式为#mm/dd/yyyy#，日期两边用#，不能用双引号(“”)。对于运行Microsoft Windows98的系统，要设置的日期必须介于1980年1月1日与2099年12月31日之间。对于运行Microsoft WindowsNT的系统，日期必须介于公元1980年1月1日到2079年12月31日之间。 二、应用举例：

本示例使用Date语句来设置系统日期。在开发环境中，日期原义会根据系统的地区设置，以短式日期格式显示。建立一标准工程，在窗体上添加一命令按钮，将下面的程序粘贴过去。

Private Sub Command1_Click()

Date = #11/6/2007# '设置系统日期。

End Sub

单击命令按钮，这时系统日期将改变到你指定的日期。

Declare语句

描述：用于在模块或窗体中声明对动态链接库(DLL)中外部过程的引用，在引用API函数时经常用到。 一、语法： 语法1

[Public|Private]Declare Sub name Lib\ [([arglist])] 语法2

[Public|Private]Declare Function name Lib\ [([arglist])][As type]

Declare语句的语法包含下面部分： 部分 Public 描述 可选的。用于声明其引用是全局的（公用的），也就是说该引用的过程在整个工程中都可以使用。Public只能在模块中声明。 可选的。用于声明其引用是局部的，也就是说只能在该声明所在的模块或窗体中使用。 Private Sub或可选的（但二者必须选其一）。Sub表示该过程没有返回值；Function表示该Function 过程会返回一个可用于表达式的值。 Name Lib Libname 必需的。为合法的过程名。 必需的。Declare的子句。 必需的。所声明过程的动态链接库名或代码资源名。 可选的。表示将被调用的过程在动态链接库(DLL)中还有另外的名称。当动态链接库的过程与同一范围内的公用变量、常数或任何其它过程的名称相同时，可以使用这个参数。 可选的。动态链接库或代码资源中的过程名。如果首字符不是数字符号(#)，则aliasname是动态链接库中该过程的入口处的名称。如果首字符是(#)，则随后的字符必须指定该过程的入口处的顺序号。 可选的。代表调用该过程时需要传递的参数列表。 可选的。Function过程返回值的数据类型；可以是VB变量的各种类型、用户定义类型或对象类型，不支持定长的String。 Alias Aliasname Arglist Type arglist参数的语法以及语法各个部分如下：

[Optional][ByVal|ByRef][ParamArray]varname[()][As type] 部分 描述 Optional ByVal ByRef 可选的。表示参数不是必需的。如果使用该选项，则arglist中的后续参数都必需是可选的，而且必须都使用Optional关键字声明。 可选的。表示该参数按值传递。 可选的。表示该参数按地址传递，是缺省选项。 可选的。只用于arglist的最后一个参数，表示最后的参数是一个Variant元素ParamArray 的Optional的数组。使用ParamArray关键字可以提供任意数目的参数。ParamArray关键字不能与ByVal、ByRef或Optional一起使用。 Varname () Type 必需的。代表传给该过程的参数的变量名；遵循标准的变量命名约定。 对数组变量是必需的。指明varname是一个数组。 可选的。传递给该过程的参数的数据类型；可以是VB变量的各种类型、用户定义类型或对象类型，不支持定长的String。 二、说明：

如果引用API函数，可以从API Text Viewer直接将声明复制过来，方法是在程序菜单里选择Microsoft Visual Studio 6.0——Microsoft Visual Studio 6.0 Tools——API Text Viewer，在API Viewer的File菜单里点击Load Text File，打开WIN32API。选择你需要的API函数，添加到Selectde Items里，但要注意根据需要选择Public或Private，然后单击复制。

对Function过程而言，过程的数据类型决定其返回值的数据类型。可以在arglist之后使用As子句来指定函数返回值的数据类型。在arglist中，可以使用As子句来指定任何传给该过程的参数的数据类型。

注意：在Declare语句的参数表中不能使用定长的字符串；只能用变长的字符串。 三、应用举例：

该示例演示如何在使用Declare语句来声明API函数，使某一窗体保持在前面。建立一标准工程，将窗体改名为FrmMain。在窗体上添加一命令按钮，将下面的程序粘贴过去。 Private Sub Command1_Click() FrmFore.Show '显示第二个窗体 End Sub

在工程上添加一个窗体，改名为FrmFore。在窗体上添加两个命令按钮，将下面的程序粘贴过去。 Option Explicit

Private Declare Function SetWindowPos Lib \(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long '声明API函数 Private Sub Command1_Click() Dim rtn

rtn = SetWindowPos(FrmFore.hwnd, -1, 0, 0, 0, 0, 3) Me.Caption = \窗体在前\End Sub

Private Sub Command2_Click() Dim rtn

rtn = SetWindowPos(FrmFore.hwnd, -2, 0, 0, 0, 0, 3) Me.Caption = \活动窗体\

End Sub

在工程(Project)菜单打开属性对话框，在对话框中的Starup Object选择FrmMain，然后点击确定。

运行程序时，出现的是第一个窗体，单击显示辅窗体，第二个窗体出现，位于第一个窗体前面。我们分三步来演示这个程序：

一、单击第一个窗体，则第一个窗体到第二个窗体的前面，再单击第二个窗体，第二个窗体又到了前面。

二、这时单击第二个窗体的命令按钮1，然后单击第一个窗体，那么我们可以看到，第一个窗体只被激活，但第二个窗体始终在第一个窗体的前面。

三、最后单击第二个窗体的命令按钮2，此时的情况如同第一步。

Deftype语句

描述：在模块或窗体，为变量和传给过程的参数，设置缺省数据类型，以及为其名称以指定的字符开头的Function和PropertyGet过程，设置返回值类型。 一、语法：

DefType letterrange[,letterrange]

所需的letterrange参数遵循下述语法： letter1[-letter2]

letter1和letter2参数指定设置缺省数据类型的名称范围。每个参数都是指变量，参数和Function过程，或PropertyGet过程名称的首字母，且参数可以是字母表中的任意字母。letterrange中不区分字母的大小写。 二、说明：

Type可以换成下列缩写：

缩写 Bool Byte Int Lng Cur Sng Dbl Date Str Obj Var 数据类型 布尔型 字节型 整型（Integer） 长整型（Long） 货币型（Currency） 单精度型（Single） 双精度型（Double） 日期型（Date） 字符串型（String） Object 变体型（Variant）

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB6.0快速入门与精通(含100例)(5)在线全文阅读。