举个例子:
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
这个函数的返回值为long,一共四个long值
其中,hwnd为句柄,如用目前窗口句柄,则为me.hwnd,nindex的值是只能在几个数值中选取,例如选取GWL_WNDPROC,它的值是(-4),nindex设为-4,那么dwnewlong应为目标函数地址,这个值可用addressof获得。
这样,调用这个函数时,方法如下:
dim rc as long
rc=setwindowlong(me.hwnd,(-4),addressof myproc)
myproc函数应放在标准模块中。并且针对不同的api,其参数和返回值都有严格规定。