第3个回答 推荐于2016-03-29
' 声明 API 过程 ,比如声名SetWindowTextA
'首先,在模块的声明部分对过程进行声明:
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
'调用 API 过程:在声明了函数之后,调用它的方式与标准的 Visual Basic 函数相同。
'在下例中,Form Load 事件调用了上面声明的过程。
Private Sub Form_Load()
Call 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函数开发实例》本回答被提问者采纳