VB6中回调函数的使用方法
出处：网络

关于回调函数

----回调函数（CallbackFunction）是应用程序提供给Windows系统DLL或其它DLL调用的函数，一般用于截获消息、获取系统信息或处理异步事件。应用程序把回调函数的地址指针告诉DLL，而DLL在适当的时候会调用该函数。回调函数必须遵守事先规定好的参数格式和传递方式，否则DLL一调用它就会引起程序或系统的崩溃。
----通常情况下，回调函数采用标准WindowsAPI的调用方式，即__stdcall，当然，DLL编制者可以自已定义调用方式，但客户程序也必须遵守相同的规定。在__stdcall方式下，函数的参数按从右到左的顺序压入堆栈，除了明确指明是指针或引用外，参数都按值传递，函数返回之前自己负责把参数从堆栈中弹出。在VB5中使用函数指针
----假设我们定义了下面的回调函数：
----Public function EnumWindowsProc(ByVal hwnd AsLong,ByVal lParam As Long) As Long
----那么可以用"AddressOfEnumWindowsproc"取得它的地址，在WIN32中，这一地址的长度为32位，由于VB中没有指针的概念，所以函数指针一般都存放在一个Long型变量中，这不会带来任何问题。----在VB5中使用函数指针存在不少限制。首先，函数体必须放到标准的.BAS模块中，而不能放在类模块或窗体代码中；其次，AddressOf只能用于自定义的过程、函数或属性，不能将其用于Declare语句声明的外部函数，也不能用于类型库中的函数；最后，写在AddressOf后面的过程、函数和属性必须与有关的声明和过程在同一个工程中。----AddressOf运算符通常只能出现在函数的参数列表中，一些API函数要求把函数指针存放到一个结构的成员中，并把该结构做为参数传递，此时不能直接把AddressOf得到的结果赋给结构成员，而必须要通过一个包装函数转换一下。下面的FnPtrToLong可以把函数指针转换成Long型：
Function FnPtrToLong(ByVal lngFnPtr As  Long)As Long
FnPtrToLong=lngFnPtr
End Function
下面的代码把EnumWindowsProc的函数指针放入到结构中：
Dim mt as MyType
mt.FnPtr=FnPtrToLong(AddressOfEnumWindowsProc)
使用回调函数的简单例子--枚举窗口
----为了说明回调函数的使用方法，我们先来看一个实现枚举窗口功能的简单例子EnumWnd。
----WIN32API中有一个EnumWindows函数，只要给它提供一个回调函，它就会枚举出系统中所有顶级窗口，每枚举一个窗口调用一次回调函数，利用EnumWindows传递的窗口句柄，回调函数就可以了解这些窗口的标题、类名称、是否可见等信息。EnumWindows函数的声明如下：
----Declare Function EnumWindows Lib "user32"(ByVal lpEnumFunc As Long,_ByVal lParam As Long) As Long
----其中lParam可由应用程序自己任意定义。我们准备把窗口的标题内容显示在一个列表视窗（ListView）中，这个ListView以Report的形式显示，共有两列，分别显示十六进制的窗口句柄和窗口标题（ListView的具体属性值见所附程序的完整代码）。首先给出回调函数EnumWindowsProc的实现代码：
Public Function EnumWindowsProc (ByVal hwnd As Long,ByVal lParam As Long) As Long
Dim tmpstr As String＊128'准备缓冲区
Dim itmX As ListItem
'下面判断是否显示所有窗口，或者只显示可见窗口
If frmEnumWnd.optShowWhat(0).Value=True Or IsWindowVisible(hwnd) Then
GetWindowTexthwnd,tmpstr,127'取回
SetitmX=frmEnumWnd.ListView1.ListItems.Add
(,,"H"＆Hex＄(hwnd))
itmX.SubItems(1)=tmpstr
SetitmX=Nothing
End If
EnumWindowsProc=True
End Function
然后在窗体代码中为cmdEnum添加事件处理函数：
Private Sub cmdEnum_Click()
On Error Resume Next
ListView1.ListItems.Clear'清除原有数据
EnumWindowsAddressOfEnumWindowsProc,
0'传递回调函数的指针给EnumWindows函数
cmdEnum.Caption="重新枚举"
End Sub
----可见在VB5中使用回调函数并不是特别复杂。不过，EnumWnd中的回调函数属于比较简单的情况，因为它不会对系统产生不良影响，我们可以在VB中直接进行调试。下一节的例子中的回调函数要处理Windows系统产生的消息，调试起来要格外小心，如果回调函数中有错误，可能会引起非法操作，致使VB运行环境崩溃，因此应随时注意保存源程序

[返回]

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明