VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB5中回调函数的使用方法
发表评论(0)作者:, 平台:, 阅读:11283, 日期:2000-03-29
读了贵报10月5日第38期上《用VB5对Windows95任务栏提示区进行编程》一文后,很受启发。不过,由于不知道回调函数的使用方法,该文作者转而采用VB的MouseMove事件函数来处理提示区发出的消息,这种处理方法不太好,因为在实际应用中,应用程序自身可能需要处理鼠标移动事件,这样,两种完全不同的事件对应着同一个处理函数,该函数有可能无法区分事件的类型,致使程序出现异常行为。为了正确地对任务栏提示区编程,我们需要自已定义提示区发出的消息值,而不应使用Windows现有的各种消息,又因为VB没有提供处理自定义消息的手段,我们需要利用回调函数对窗口进行子类派生,自行处理自定义消息。


关于回调函数

回调函数(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运行环境崩溃,因此应随时注意保存源程序。