怎样用VB在应用程序中调用API

由于 API 过程存在于 Visual Basic 应用程序之外的文件中，在使用时必须指定过程的位置和调用参数。可以用 Declare 语句提供这类信息。在声明了 API 过程之后，可以把它当做 Visual Basic 自己的过程使用。
如果在 Visual Basic 中直接调用 API，那么 Visual Basic 环境下固有的安全机制将受到不利影响。这意味着在测试和调试程序时可能会遇到更多的系统故障。为了减少这种危险，在声明 API 过程、传递参数和指定类型的时候务必要小心。无论在什么情况下，一定要经常保存已经完成的工作。API 可以提供不同凡响的功能，但是要用好它也不容易。
下例将演示如何调用 Windows API 中的过程。调用函数 SetWindowText 来改变一个窗体的标题栏。当然，在实际应用中，通常总是利用 Visual Basic 的 Caption 属性来改变标题栏。该示例的目的在于说明如何声明并调用过程。
声明 API 过程
首先，在模块的声明部分对过程进行声明：
Private Declare Function SetWindowText Lib "user32" _
Alias "SetWindowTextA" (ByVal hwnd As Long, _
ByVal lpString As String) As Long
过程的精确语法定义可以用 API Viewer 应用程序找到，在 Win32api.txt 文件中也可以找到它。如果将 Declare 放在 Form 或者 Class 模块内，那么必须在它的前面加上 Private 关键字。同一个 API 过程在一个工程中只需声明一次；然后可以任意调用。


调用 API 过程
在声明了函数之后，调用它的方式与标准的 Visual Basic 函数相同。在下例中，Form Load 事件调用了上面声明的过程。
Private Sub Form_Load()
SetWindowText Form1.hWnd, "Welcome to VB"
End Sub
在运行这段代码时，函数首先使用 hWnd 属性确定要修改标题栏的窗口（Form1.hWnd），然后将标题栏修改为“Welcome to VB”。
需要牢记的是：Visual Basic 不能验证传递到 API 过程的值是否正确。如果传递了错误的值，那么过程将出错，并可能因此导致 Visual Basic 应用程序停止运行。这样就不得不重新加载和启动应用程序。在测试 API 过程时千万要小心，一定要经常地保存自己的工作。
极少数 API 调用能够识别缺省的 Variant 数据类型。最好声明具体的变量类型并使用 Option Explicit，这样，API 的可靠性要高得多。