VB5中回调函数的使用方法

关于回调函数
----回调函数（CallbackFunction）是应用程序提供给Windows系统DLL或其它DLL调用的函数，一般用于截获消息、获取系统信息或处理异步事件。应用程序把回调函数的地址指针告诉DLL，而DLL在适当的时候会调用该函数。回调函数必须遵守事先规定好的参数格式和传递方式，否则DLL一调用它就会引起程序或系统的崩溃。
----通常情况下，回调函数采用标准WindowsAPI的调用方式，即__stdcall，当然，DLL编制者可以自已定义调用方式，但客户程序也必须遵守相同的规定。在__stdcall方式下，函数的参数按从右到左的顺序压入堆栈，除了明确指明是指针或引用外，参数都按值传递，函数返回之前自己负责把参数从堆栈中弹出。

在VB5中使用函数指针
----假设我们定义了下面的回调函数：

----Public function EnumWindowsProc(ByValhwndAsLong,ByVallParamAsLong)AsLong

----那么可以用"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(AddressOf EnumWindowsProc)
使用回调函数的简单例子--枚举窗口
----为了说明回调函数的使用方法，我们先来看一个实现枚举窗口功能的简单例子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
　GetWindowText hwnd, tmpstr, 127 '' 取 回
　Set itmX = frmEnumWnd.ListView1.ListItems.Add
(, , "H" ＆ Hex ＄(hwnd))
　itmX.SubItems(1) = tmpstr
　Set itmX = Nothing
　End If
　EnumWindowsProc = True
　End Function
　然后在窗体代码中为cmdEnum添加事件处理函数：
　Private Sub cmdEnum_Click()
　On Error Resume Next
　ListView1.ListItems.Clear '' 清 除 原 有 数 据
　EnumWindows AddressOf EnumWindowsProc,
0 '' 传 递 回 调 函 数 的 指 针 给EnumWindows 函 数
　cmdEnum.Caption = " 重 新 枚 举"
　End Sub
----可见在VB5中使用回调函数并不是特别复杂。不过，EnumWnd中的回调函数属于比较简单的情况，因为它不会对系统产生不良影响，我们可以在VB中直接进行调试。下一节的例子中的回调函数要处理Windows系统产生的消息，调试起来要格外小心，如果回调函数中有错误，可能会引起非法操作，致使VB运行环境崩溃，因此应随时注意保存源程序。