Question

VB怎么调用API函数

哪位大虾能给个详细的实例教程

Answer 1

'先在第一行声明API函数，再在sub函数里调用，举两个例子：
'Sleep函数延迟一定时间
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '声明，在最顶端第一行声明
Private Sub Command1_Click()
Me.Caption = "Your system will sleep 5 sec."
'延迟 5000 毫秒，即5秒
Sleep 5000 '调用
Me.Caption = ""
End Sub

'再举一个例子
'Beep函数，发出警报响声
'在窗体代码的最顶端第一行声明
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Beep 800, 2000 ' 调用，800 赫兹， 2 秒
End Sub

Answer 2

首先你得 知道你要调用的 API的函数名称

比如建立一个 可以直接点住窗体就能拖拽的窗体

你需要定义这两个API

ReleaseCapture
SendMessage
需要放在模块里, 不能放在窗体里

Declare Function ReleaseCapture Lib "user32" () As Long

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

然后在用的时候

在窗体的 MouseDown 事件里写这个

ReleaseCapture
SendMessage form1.hwnd, &HA1, 2, 0&

就成了

Answer 3

与其学看视频，还不如看文字的教程，学API不是操作的问题，是理解的问题，看视频是不行的

Answer 4

在百度上查"api大全"，可找到所有API的使用方法。