通俗基础教程
电脑操作教程
电脑怎样拨号上网
如何做个人网页
怎样做局域网
Word教程(文字处理)
图形图象处理入门
经典提高教程
怎样使用代理服务器
如何做无盘工作站
Photoshop教程
Dreamweaver3教程
Flash4&5教程
Firework3教程
Frontpage2000教程
Authware教程
Office2000教程
如何制作动画图片
OICQ&ICQ使用方法

高手学习指南

硬件升级技巧
CGI教程
ASP教程

PHP教程

注册表使用技巧
路由器的设置
网站建设指南
SQL
最近更新:
VB
相关内容

VB中子分类技术的应用
lxtx (龙行天下) (07/12/1999)


    子分类技术的原理:要先取得原先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即可. '调试过程中注意存盘,因为如果一时不慎会造成死机.

用VB5直接控制Excel 97
在Developer/2000中调用VB
在VB中用API实现多媒体
VB6制作Win98风格的工具栏
VB6六问答
利用VB编写屏幕保护程序
VB中Winsock控制的UDP协议的使用
用VB设计一个定时闹钟程序
用VB6实现动态增减控件
优化VB程序
提高VB访问数据库的效率
VB与VC混合编程中处理消息的方法
VB中子分类技术的应用
 
 
 
 
 
 
 
 
教程站
收集整理



月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

月光软件站·版权所有