VB6中指针技术、回调函数



VB6中回调函数的使用方法

http://www.bianceng.cn/vbjc/sfjs/sf11.htm

文章中，有一个用回调函数控制窗口--枚举窗口

----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运行环境崩溃，因此应随时注意保存源程序

Visual Basic 中操作指针的技术及应用

http://www.nkbiox.com/down/papers/61.pdf

在文章中

2.5 使用指针引用和操作对象

如果用set语句将一个对象（如窗体对象）的引用赋值给一个对象变量，则该对象的引用次数会自动加1，如果一个对象还有引用存在，他就不会销毁。通过指针变量，而不是对象变量来“引用”对象就不会使引用次数自动递增，可以操作这个对象。但这种“引用”是非法的，所以用后必须销毁该引用。

有实例代码

vb实现回调函数

https://bbs.bccn.net/thread-308877-1-9.html

不幸的是VB中不能将函数作为参数，先理解 Implements 语句，

VB6.0的事件、回调函数等

http://www.cnblogs.com/flyingfish/archive/2008/02/27/1084080.html

事件像匿名广播，而回调像一次握手。

获取VB类模块成员函数指针

http://www.itdadao.com/articles/c15a414634p0.html

在VB代码中必须将回调函数放到标准的.BAS模块中，不可放在窗体模块中，也不能将其附加到类模块中。

回调函数是一个以参数形式传递给另一个函数的函数。并且该回调函数必须等另一个函数执行完才会被调用。被调用时另一个函数是回调函数的父函数。

delegate有什么作用？

http://book.77169.org/ask10/ask163246.htm

委托是一种引用类型，它引用类型的 Shared 方法或对象的实例方法。任何具有匹配参数类型和返回类型的过程均可用来创建此委托类的实例。然后就可以通过委托实例来调用过程。

哎呀，这个Delegate可以就是函数指针嘛！（尽管跟传统的有点不同）。什么委托，那是微软自己创造出来的美式汉语，反正什么意思我不懂。

这么说吧，用Delegate有如下好处： 1、安全。保证不会让某个函数把某个通过AddressOf得到的函数地址当作一个普通的整数使用，更不会让你在调用某个过程的时候在本来要给出一个函数地址的参数上随便给了某个（没有意义的）整数，造成回调时调用了某个非法的地址。 2、还是安全。如果你仅仅使用AddressOf得到的函数地址作为回调的依据，那么编译程序就没有办法对这个回调函数进行参数类型匹配检查。或者说你可以随便指定一个函数作为回调函数，而根本不用管它是否适合。如果参数的数量和类型不对，回调时很可能会崩溃。用Delegate呢，你可以规定这个回调函数的类型，也就是说，当赋给一个具体的回调函数时必须通过类型/参数检查。换句话说，上面所说的因为参数问题而造成的崩溃就不会出现了。 3、依然是安全，当然还有方便和易懂。