VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb教程之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运行环境崩溃,因此应随时注意保存源程序。

相关教程