VB中子分类技术的应用
2001-02-25 19:10
351 查看
子分类技术的原理:要先取得原先Window Procedure所在的地址,将之记录起来,接着设定所有的消息都先转到我们所写的消息处理过程上来,我们过滤传过来的消息,寻找特定的消息进行处理,其余的送回系统,由系统决定如何处理。等到我们不需要再处理这些特定的消息时,便取消消息的截取,即中止子分类过程。它一般需要三个过程:开始截取,消息处理,中止截取. 程序需要一个模块,在模块中声明如下: 'API函数Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) A s Long Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _ (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long '定义常数Public Const GWL_WNDPROC = (-4) Public Const WM_MOUSEMOVE = &H200 Public Const WM_RBUTTONDOWN = &H204 '全局变量,存放控件标志性数据Public preWinProc As Long '本函数就是用来接收子分类时截取的消息的Public Function wndproc(ByVal hwnd As Long, ByVal Msg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long '截取下来的消息存放在msg参数中. if msg=WM_RBUTTONDOWN then '检测到鼠标右击消息,这里就可以加入我们的处理代码如: msgbox "你好,鼠标右击消息!" '需要注意,如果这儿不加入任何代码,则相当于吃掉了这条消息. else '如果我们不是我们需要处理的消息,则将之送回原来的程序. wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam) endif End Function '以下代码在窗体中: '本例以截取一个combobox控件的消息为例,假设该'控件的名字是:comb1 Private Sub subclass() Dim ret As Long '记录Window Procedure的地址 preWinProc = GetWindowLong(comb1.hwnd, GWL_WNDPROC) '开始截取消息,并将消息交给wndproc过程处理. ret = SetWindowLong(comb1.hwnd, GWL_WNDPROC, AddressOf wndproc) End Sub Private Sub EndSubclass() Dim ret As Long '取消消息截取,结束子分类过程. ret = SetWindowLong(comb1.hwnd, GWL_WNDPROC, preWinProc) End Sub '当要截取其它控件的消息时,只需要将subclass与EndSubclass过程中的comb1.h wnd换成该控件的控件.hwnd即可. '调试过程中注意存盘,因为如果一时不慎会造成死机 |
相关文章推荐
- VB中子分类技术的应用
- JavaMail中Session.getDefaultInstance的应用( 2008-08-20 14:51:30| 分类: java 技术)
- 室内定位技术:分类、方法与应用综述
- 关于DirectX技术的未来和在VB.NET中应用的对话(微软)
- 基于VB.Net的ActiveX技术在地质绘图中的应用
- VB.NET 2003 Windows 应用全程自定义构建技术要点
- MySQL技术分类一:DB应用开发基础整理
- 【国际】日本交易所集团发布关于分布式分类账本技术应用趋势的工作文论
- [VB][测试技术应用]VB与IE交互实现WEB画面的自动测试(用VB填写IE中控件的内容和提交表单)
- 加密技术分类与应用模式
- 信息分类编码技术研究及应用
- 流媒体技术应用分类
- VB之数据报表设计器在多层结构开发的应用---技术在更新,而思路则不变
- 关于DirectX技术的未来和在VB.NET中应用的对话(微软)
- 无线技术分类与应用场景
- 虚拟化技术的应用实施解决方案
- SAS技术应用-以流的方式读取、写入文件
- MySQL主从复制技术与读写分离技术amoeba应用
- 50种强大的CSS技术||struts+spring+hibernate的web应用示例
- 一起谈.NET技术,使用DeeepZoom Composer进行富图像应用的开发(翻译--2)