VB.NET Declare语句

发布时间：2020-12-17 07:42:35 所属栏目：百科来源：网络整理

导读：本文是看了网上很多零碎的知识点总结而成，要感谢广大网友的智慧 Declare语句用于在模块级别中声明对动态链接库 (DLL) 中外部过程的引用。语法 1 [ Public | Private ] DeclareSub name Lib" libname " [ Alias" aliasname " ] [ ( [ arglist ] ) ] 语法 2

本文是看了网上很多零碎的知识点总结而成，要感谢广大网友的智慧

Declare语句

用于在模块级别中声明对动态链接库 (DLL) 中外部过程的引用。

语法 1

[Public|Private]DeclareSubnameLib"libname"[Alias"aliasname"] [([arglist])]

语法 2

[Public|Private]DeclareFunctionnameLib"libname"[Alias"aliasname"] [([arglist])] [Astype]

Declare语句的语法包含下面部分：

部分	描述
Public	可选的。用于声明对所有模块中的所有其它过程都可以使用的过程。
Private	可选的。用于声明只能在包含该声明的模块中使用的过程。
Sub	可选的（但Sub或Function二者需选其一）。表示该过程没有返回值。
Function	可选的（但Sub或Function二者需选其一）。表示该过程会返回一个可用于表达式的值。
name	必需的。任何合法的过程名。注意动态链接库的入口处（entry points）区分大小写。
Lib	必需的。指明包含所声明过程的动态链接库或代码资源。所有声明都需要Lib子句。
libname	必需的。包含所声明的过程动态链接库名或代码资源名。
Alias	可选的。表示将被调用的过程在动态链接库 (DLL) 中还有另外的名称。当外部过程名与某个关键字重名时，就可以使用这个参数。当动态链接库的过程与同一范围内的公用变量、常数或任何其它过程的名称相同时，也可以使用Alias。如果该动态链接库过程中的某个字符不符合动态链接库的命名约定时，也可以使用Alias。
aliasname	可选的。动态链接库或代码资源中的过程名。如果首字符不是数字符号 (#)，则aliasname是动态链接库中该过程的入口处的名称。如果首字符是 (#)，则随后的字符必须指定该过程的入口处的顺序号。
arglist	可选的。代表调用该过程时需要传递的参数的变量表。
type	可选的。Function过程返回值的数据类型；可以是 Byte、布尔、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（只支持变长）或 Variant，用户定义类型，或对象类型。

arglist参数的语法以及语法各个部分如下：

[Optional] [ByVal|ByRef] [ParamArray]varname[( )] [Astype]

部分	描述
Optional	可选的。表示参数不是必需的。如果使用该选项，则arglist中的后续参数都必需是可选的，而且必须都使用Optional关键字声明。如果使用了ParamArray，则任何参数都不能使用Optional。
ByVal	可选的。表示该参数按值传递。
ByRef	表示该参数按地址传递。ByRef是 Visual Basic 的缺省选项。
ParamArray	可选的。只用于arglist的最后一个参数，表示最后的参数是一个Variant元素的Optional的数组。使用ParamArray关键字可以提供任意数目的参数。ParamArray关键字不能与ByVal、ByRef或Optional一起使用。
varname	必需的。代表传给该过程的参数的变量名；遵循标准的变量命名约定。
( )	对数组变量是必需的。指明varname是一个数组。
type	可选的。传递给该过程的参数的数据类型；可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（只支持变长）、Object、Variant、用户自定义的类型或对象类型。

说明

对Function过程而言，过程的数据类型决定其返回值的数据类型。可以在arglist之后使用As子句来指定函数返回值的数据类型。在arglist中，可以使用As子句来指定任何传给该过程的参数的数据类型。不单可以指定为任何标准数据类型，还可以在arglist中指定As Any来禁止类型检查，从而允许将任意数据类型传递给该过程。

空圆括号表示该Sub或Function过程没有参数，且 Visual Basic 应确保不会传递任何参数。在下面的示例中，First不带任何参数。如果对First的调用中使用了参数，就会产生错误：

Declare Sub First Lib "MyLib" ()

如果带参数表，则每次调用该过程时都要检查参数的个数和类型。在下面的示例中，First有一个Long参数：

Declare Sub First Lib "MyLib" (X As Long)

注意在Declare语句的参数表中不能有定长的字符串；只有变长的字符串才能传给过程。定长的字符串可以作为过程参数使用，但在传递前都要被转换为变长的字符串。

注意当所调用的外部过程需要一个值为 0 的字符串时，就要使用vbNullString常数。该常数与零长度字符串 ("") 是不相同的。

关于VB.NET使用Alias子句：

Declare语句中的Alias子句是一个可选的部分，用户可以通过它所标识的别名对动态库中的函数进行引用。例如，在下面的语句中，声明了一个在VB中名为MyFunction的函数，而它在动态库Mydll.dll中最初的名字是MyFunctionX。

PrivateDeclareFunctionMyFunctionLib"Mydll.dll"_Alias"MyFunctionX"()AsLong

需要注意的是，Alias子句中的函数名是大小写敏感的，也就是说，必须与函数在生成时的声明（如在C源文件中的声明）一致。这是因为32位动态库与16位动态库不同，其中的函数名是区分大小写的。同样道理，如果没有VB.NET使用Alias子句，那么在 Function（或Sub）后的函数名也是区分大小写的。

通常在以下几种情况时需要VB.NET使用Alias子句：

1.处理使用字符串的系统Windows API过程

如果调用的系统Windows API过程要使用字符串，那么声明语句中必须增加一个Alias 子句，以指定正确的字符集。包含字符串的系统Windows API函数实际有两种格式：ANSI和Unicode（关于ANSI和Unicode两种字符集的区别将在后面详细阐述）。因此，在Windows头文件中，每个包含字符串的函数都同时有ANSI版本和Unicode版本。例如，下面是SetWindowText函数的两种C语言描述。可以看到，第一个描述将函数定义为SetWindowTextA，尾部的"A" 表明它是一个ANSI函数：

 
 
  
  WINUSERAPIBOOLWINAPISetWindowTextA(HWNDhWnd,LPCSTRlpString);

第二个描述将它定义为 SetWindowTextW，尾部的"W" 表明它是一个 Unicode 函数：

  
  WINUSERAPIBOOLWINAPISetWindowTextW(HWNDhWnd,LPCWSTRlpString);

因为两个函数实际的名称都不是"SetWindowText"，要引用正确的函数就必须增加一个Alias子句：

  
  PrivateDeclareFunctionSetWindowTextLib"user32"_ 
  
  Alias"SetWindowTextA"(ByValhwndAsLong,ByVal_ 
  
  lpStringAsString)AsLong

应当注意，对于VB中使用的系统WindowsAPI函数，应该指定函数的ANSI版本，因为只有WindowsNT才支持Unicode版本，而Windows95不支持这个版本。仅当应用程序只运行在WindowsNT平台上的时候才可以使用Unicode版本。

2.函数名是不标准的名称

有时，个别的DLL过程的名称不是有效的标识符。例如，它可能包含了非法的字符（如连字符），或者名称是VB的关键字（如GetObject）。在这种情况下，可以使用Alias关键字。例如，操作环境DLLs中的某些过程名以下划线开始。尽管在VB标识符中允许使用标识符，但是下划线不能作为标识符的第一个字符。为了使用这种过程，必须先声明一个名称合法的过程，然后VB.NET使用Alias子句引用过程的真实名称：

  
  DeclareFunctionlopenLib"kernel32"Alias"_lopen"_ 
  
  (ByVallpPathNameAsString,ByValiReadWrite_ 
  
  AsLong)AsLong

在上例中，lopen是VB中使用的过程名称。而_lopen则是动态连接库中可以识别的名称。

3.使用序号标识DLL过程

除了使用名称之外，还可以使用序号来标识DLL过程。某些动态连接库中不包含过程的名称，在声明它们包含的过程时必须使用序号。同使用名称标识的DLL过程相比，如果使用序号，在最终的应用程序中消耗的内存将比较少，而且速度会快些。但是，一个具体的API的序号在不同的操作系统中可能是不同的。例如GetWindowsDirectory在Win95下的序号为432，而在WindowsNT4.0下为338。总而言之，如果希望应用程序能够在不同的操作系统下运行，那么最好不要使用序号来标识API过程。如果过程不属于API，或者应用程序使用的范围很有限，那么使用序号还是有好处的。

要使用序号来声明DLL过程，Alias子句中的字符串需要包含过程的序号，并在序号的前面加一个数字标记字符(#)。例如，Windowskernel中的GetWindowsDirectory函数的序号为432；可以用下面的语句来声明该DLL过程：

  
  DeclareFunctionGetWindowsDirectoryLib"kernel32"_ 
  
  Alias"#432"(ByVallpBufferAsString,_ 
  
  ByValnSizeAsLong)AsLong

在这里，可以使用任意的合法名称作为过程的名称，VB将用序号在DLL中寻找过程。

为了得到要声明的过程的序号，可以使用Dumpbin.exe等实用工具（Dumpbin.exe是Microsoft VisualC++提供的一个实用工具，它的使用说明可以参见VC的文档）。利用Dumpbin，可以提取出.dll文件中的各种信息，例如DLL中的函数列表，它们的序号以及与代码有关的其它信息。

　　要声明一个DLL过程，首先需要在代码窗口的"通用（General）"部分增加一个VB.NET Declare语句。如果该过程返回一个值，应将其声明为Function：

　　
　　DeclareFunctionpublicnameLib"libname"[Alias"alias"] 
　　[([[ByVal]variable[Astype] 
　　[,[ByVal]variable[Astype]]...])]AsType

　　如果过程没有返回值，可将其声明为Sub：

　　
　　DeclareSubpublicnameLib"libname" 
　　[Alias"alias"] 
　　[([[ByVal]variable[Astype] 
　　[,[ByVal]variable[Astype]]...])]

　　缺省情况下，在标准模块中声明的DLL过程，可以在应用程序的任何地方调用它。在其它类型的模块中定义的DLL过程则是模块私有的，必须在它们前面声明Private关键字，以示区分。下面分别介绍声明语句的各个组成部分。

　　VB.NET Declare语句中的Lib子句用来告诉Visual Basic如何找到包含过程的.dll文件。如果引用的过程属于Windows核心库（User32、Kernel32或GDI32），则可以不包含文件扩展名，如：

　　
　　DeclareFunctionGetTickCountLib"kernel32"Alias"GetTickCount"()AsLong

　　对于其它动态连接库，可以在Lib子句指定文件的路径：

　　
　　DeclareFunctionlzCopyLib"c:windowslzexpand.dll"_ 
　　(ByValSAsInteger,ByValDAsInteger)AsLong

　　如果未指定libname的路径，Visual Basic将按照下列顺序查找该文件：
　　◆.exe文件所在的目录
　　◆当前目录
　　◆Windows系统目录
　　◆Windows目录
　　◆Path环境变量中的目录

　　下表中列出了常用的操作系统环境库文件。

　　动态链接库描述
　　◆Advapi32.dll高级API服务，支持大量的API（其中包括许多安全与注册方面的调用）
　　◆Comdlg32.dll通用对话框API库
　　◆Gdi32.dll图形设备接口API库
　　◆Kernel32.dllWindows32位核心的API支持
　　◆Lz32.dll32位压缩例程
　　◆Mpr.dll多接口路由器库
　　◆Netapi32.dll32位网络API库
　　◆Shell32.dll32位ShellAPI库
　　◆User32.dll用户接口例程库
　　◆Version.dll版本库
　　◆Winmm.dllWindows多媒体库
　　◆Winspool.drv后台打印接口，包含后台打印API调用。

　　以上介绍VB.NET Declare语句对于Windows的系统API函数，可以利用VB提供的工具API Viewer查找某一函数及其相关数据结构和常数的声明，并复制到自己的程序中。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!