VB怎样调用API？

杨竹青

▲VB不能直接调用Win API，要先声名然后在调用。  

▲ 声明 API 过程 ，比如声名SetWindowTextA  
首先，在模块的声明部分对过程进行声明：  
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  


▲专门介绍Visual Basic调用API的书：  
1、机械工业出版社的《Visual Basic 5.0 Win32 API 开发人员指南》，作者Dan Appleman，100多元，但是这方面的经典作品。  
2、《Visual Basic开发指南-- Win32 API篇》  
3、《Visual Basic Win32API编程》  
4、《Visual Basic 6.0 API函数开发实例》