完全用VB6.0自身功能实现对Windows消息的拦截
p; gHW = Me.hwnd '' 保存窗体的句柄
'' 下面是关键，完成两个工作：1、将我们自己的全局函数替换为新的窗体回调函数
'' 2、保存原来的 VB 默认窗户口函数地址
lpPrevWndProc = SetWindowLong(gHW, GWL_WNDPROC, AddressOf WindowProc)
End Sub
其实，一切就这么简单。有了这种办法，Windows 中需要回调函数的 API 函数我们都可以调用了，有很多的功能我们都可以用 VB 来实现了。注意，我们自定义的回调函数只能是模块中定义的全局函数！不能在窗体中定义。
写出来只是想抛砖引玉，其实有很多功能不需要到处去找控件的。我现在在研究用 VB 6 + DirectX 7/8 写游戏。游戏速度当然不可能达到 C++ 的程度，但是足够应付一些中小型的游戏题材了，比如 RPG 的。这又有很多值得写出来的了。虽然不是什么新鲜的话题，但是其中仍不乏许多的技巧和编程思想。希望对此有研究的朋友能够多多出来交流指点一二。
'' 下面是关键，完成两个工作：1、将我们自己的全局函数替换为新的窗体回调函数
'' 2、保存原来的 VB 默认窗户口函数地址
lpPrevWndProc = SetWindowLong(gHW, GWL_WNDPROC, AddressOf WindowProc)
End Sub
其实，一切就这么简单。有了这种办法，Windows 中需要回调函数的 API 函数我们都可以调用了，有很多的功能我们都可以用 VB 来实现了。注意，我们自定义的回调函数只能是模块中定义的全局函数！不能在窗体中定义。
写出来只是想抛砖引玉，其实有很多功能不需要到处去找控件的。我现在在研究用 VB 6 + DirectX 7/8 写游戏。游戏速度当然不可能达到 C++ 的程度，但是足够应付一些中小型的游戏题材了，比如 RPG 的。这又有很多值得写出来的了。虽然不是什么新鲜的话题，但是其中仍不乏许多的技巧和编程思想。希望对此有研究的朋友能够多多出来交流指点一二。