declare语句

1.语法

VB里的说明语句（Declare），仅支持动态链结库（DLL）的子程序和无变量函数。

VB程序要使用DLL中的函数，首先必须要有特殊的声明，用Declare声明语句在窗体级或模块级或全局模块的代码声明段进行声明，将动态链接库中的函数声明到VB中，供VB程序调用。

语句格式为：

Declare Sub 过程名 Lib [ Alias " 别名] （[ByVal 参数 AS 类型]），

或

Declare Function 函数名 Lib [Alias " 别名]（[ByVal 参数 AS 类型]） AS 类型

在声明中首先用Declare关键字表示声明DLL中的函数。

2.例子

（1）sub例子

Private Declare Sub WTSFreeMemory _    

        Lib "wtsapi32.dll" _    

(ByVal pMemory As Long)

（2）function例子

Private Declare Function WTSQuerySessionInformation _    

         Lib "wtsapi32.dll" Alias "WTSQuerySessionInformationA" _    

        (ByVal hServer As Long, _     

         ByVal SessionId As Long, _   

         ByVal WTSInfoClass As WTS_INFO_CLASS, _     

        ByRef ppBuffer As Long, _     

       ByRef pBytesReturned As Long) _

As Long