本帖最后由 【微凉清风】 于 2011-1-20 18:23 编辑

易语言的子类化文章太少了,本人文笔也不好哈,看看VB得吧,别说英文看不懂,看不懂你的易语言水平永远不会提高!一,初识子类

当你还不碰过子类的时候,你看到这个标题,定会问:"啥叫子类?".因为你知道我定会为你解答.(阴险哪~~~),因为鄙人文才不好,不知如何以最详细最能理解的方式为你解答,所以到网上偷了一段,还请各位笑纳:

子类处理,是一种功能强大的技术,它的作用是对发送到窗口的消息进行处理,我们完全可以用自己定制的一个窗口函数替代它，并保留指向默认窗口函数的指针，当一个消息到达窗口时，自制的窗口函数会拦截它并进行识别处理，对不能识别或不需进行特别处理的消息，就通过指向默认窗口函数的指针传递给默认的窗口函数进行处理，这样便扩充了默认窗口函数的功能。这种用定制的窗口函数代替默认的窗口函数，拦截并处理到达窗口的消息的技术，我们就称之为“子类处理”，定制的函数我们称之为“回调函数”。

上面解释可能较复杂,但是我们现在也没必要完全搞懂它,因为有了实例这一切就自然明白了.

首先,在使用子类的时候,我们需要用到三个API函数,它们分别是 GetWindowLong, SetWindowLong, CallWindowProc(没吓到你吧?),这三个函数不难,可以说是很简单,有了它们,我们实现子类化成为可能,先来看看 GetWindowLong API函数的原型:

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

前面的我都不说了,只看参数:

ByVal hwnd As Long ,不用我说了吧?传句柄的(问:谁的句柄? 答:当然是你要子类的那个窗口的句柄啦)

ByVal nIndex As Long ,咳咳,这个嘛,需要传递一个常量,至于传递什么样的常量,咱们用前段时间学习的API分析大法分析下不就OK了么?(嘿~~聪明)

第二个参数具体传递什么样的参数,根据这个API的名称进行分析(问:为什么啊? 答:倒,API的常量一般都和API名字有很大关联的,难道还分析你的名字不成么?),首先是  Get = G, Window = W, Long = L,合成以后就是 GWL_ ,OK ,打开API 浏览器,转到常量,输入 GWL_ 四个字符看看?有没?没有我马上玩游戏去~~~~~~~~~~

Public Const GWL_EXSTYLE = (-20)

Public Const GWL_HINSTANCE = (-6)

Public Const GWL_HWNDPARENT = (-8)

Public Const GWL_ID = (-12)

Public Const GWL_STYLE = (-16)

Public Const GWL_USERDATA = (-21)

Public Const GWL_WNDPROC = (-4)

很多哈,但是实现子类的时候我们只需要一个,那就是 GWL_WNDPROC,至于其它的常量我建议大家看看MSDN,如果你看不懂的话可以参考下我以前发的关于一篇大量使用 GetWindowLong 和 SetWindowLong 两个API函数的文章,地址是: http://www.vbgood.com/viewthread.php?tid=46956&highlight= (建议学完该段API介绍再看)

然后,我们再看看 SetWindowLong 原型:

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

参数:

ByVal hwnd As Long ,句柄,还是句柄

ByVal nIndex As Long ,好奇的你可能已经发现了这个参数和 GetWindowLong 的第二个参数一样的耶?那么恭喜你,是一样的,包括传递的参数都是一样的,如果你不服气你去试下有没有 SWL_ 开头的常量.^_^

ByVal dwNewLong As Long ,这个嘛~~, 参数的名称已经说明这是一个 New(新的)Long(长整形),当然这里的长整形是指一个地址 Address , you know ?

前段时间我们知道了 Get 与 Set 的区别,那就是一个获取,一个设置,当然这个也不例外.再来看看 CallWindowProc 这个API的原型:

Public 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

参数:

ByVal lpPrevWndFunc As Long ,这个,我先试着拆分看看意思, Prev 的意思可能是 Previous(原始的), Wnd 自然是 Window(窗口) 意思咯,最后一个 Func 应该是 Function(函数),看看前面的 lp ,如果你会匈牙利命名法的话可以很明显看出来,该参数应该传一个指针,当然VB默认不支持指针,所有的指针类型都是以Long代替(注:貌似在32位系统中指针本来就是一个四字节的整形变量).那么这个参数的意思就是需要传递一个原始窗口指针,至于为什么,在这会可能说不清楚,咱们接着往下看.

ByVal hWnd As Long , 啥也不说了,句柄呗.

ByVal Msg As Long, 消息撒.至于传什么,那就接着往下看

ByVal wParam As Long , 还是那句老话,根据 Msg 消息来定,前篇API教程中我们说过 SendMessage 后面二个参数的具体定义,本次这些也一样

ByVal lParam As Long , 同 wParam 解释一样

这个API的用途就是把已处理的消息按 lpPrevWndFunc(原窗口消息地址) 返回给该地址.

好了,这段算是介绍完了,可能你还处于云山雾里,不过别担心,我能让你吃亏吗?哈哈哈~~~~~

二,回调函数

在调用过程时指定的自定义函数被称为回调函数。回调函数(通常简称为“回调”)能够对过程提供的数据执行指定的操作。回调函数的参数集必须具有规定的形式，这是由使用回调函数的 API 决定的。关于需要什么参数，如何调用它们，请参阅 API 文档。

从上面一段文字描述中我们可以看出,回调函数说白了就是一段自定义的过程函数,至于是什么样的自定义函数,那都是由API来决定的.那么有人会问:咱们这个实现子类化的回调函数是怎么定义的呢?问的好,当然,我还是那句老话,如果你有MSDN的话,建议看看.这里我们实现的子类的回调函数是下面这种样子:

Function WindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

怎么样?(网友: 好复杂啊 答:不会吧?这都复杂?那我介绍一个容易记住的方法,把 SendMessage API中的几个参数拿过来用就行了,是不是发现它们都是一样的?然后把最后一个参数改成 Byval ???? Long 就行了),可见这个回调函数和 SendMessage 好像啊,几乎差不多,不过要注意的是: SendMessage 最后一个参数是 lParam As Any,当然 SendMessage 的最后一个参数也可以改成 Byval lParam As Long,当然这里是根据你的需要去定的.

OK,该了解了我们都了解的差不多了?现在该是我们实际操作的时候了,打开VB6,新建标准EXE,然后新建一个标准模块.

注意哦:用VB进行子类是危险的,你要时刻记得保存你的VB文档,否则你写了半天的代码会因为突然崩溃而没保存,到那时就别怪我没提醒你哦.哈哈~~~~~~

提示:在VB中进行子类时,默认只能在标准模块中进行

三,实际操作的机会来了

在 Form1 中的代码:

Private Sub Form_Load()

pWndProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)

SetWindowLong Me.hwnd, GWL_WNDPROC, AddressOf WindowProc

End Sub

Private Sub Form_Unload(Cancel As Integer)

SetWindowLong Me.hwnd, GWL_WNDPROC, pWndProc

End Sub

在 Module1 中的代码:

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public 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 pWndProc As Long

Public Function WindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Debug.Print Hex$(Msg)

WindowProc = CallWindowProc(pWndProc, hwnd, Msg, wParam, lParam)

End Function

就这么一点代码就能实现VB中的子类,可以说是比较简单的,先来看看 Module1 中的代码,至于API函数和常量的声明我就不说了.

首先我们声明了一个 Public pWndProc As Long 变量,这里主要是把它当然指针来使用,这里我们再看看 Form1 中的代码:

pWndProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)  ,可见窗口初始时先获取当前窗口的消息地址,然后再使用 SetWindowLong Me.hwnd, GWL_WNDPROC, AddressOf WindowProc 把地址指向模块中的 WindowProc 回调函数,我们在分析 SetWindowLong, 前面两个参数我就不说了,后面一个用到了 Addressof 函数,这个函数的功能就是返回一个函数的地址.再看看 SetWindowLong 最后一个参数, dwNewLong 肯定与一个新的参数有关,而这里正是指向我们参数自定义的函数地址.

我们不可能 SetWindowLong Me.hwnd, GWL_WNDPROC, WindowProc 这样传递是吧?这样直接把函数当做一个参数是不对的,而第三个参数正好是一新地址,所以我们通过 AddressOf WindowProc 该回调函数地址设置成当前窗口的消息地址,这样我们就能通过 WindowProc 回调函数处理我们的消息了.

接着看 WindowProc 回调函数里的代码:

Debug.Print Hex$(Msg) 这句意思是以十六进制的方式查看当前的消息情况.当然你可以运行该代码,然后你将鼠标移动到Form1窗体上,这时在立即窗口就会显示相应的消息数据.

WindowProc = CallWindowProc(pWndProc, hwnd, Msg, wParam, lParam) 这句的意思是把不需要处理的消息返回给系统,前面我们分析过 CallWindowProc 函数,后面四个参数我就不多说了,它们都是按照回调函数中的参数原样返回就行了,主要看第一个参数. CallWindowProc 的第一个参数上面分析时说明为一个地址,这个地址必须是原有的.通过 Form_Load 中的代码我们就可以看出,先是通过 GetWindowLong 获取Form1窗口的默认消息地址,然后再通过 SetWindowLong 把消息的流通地址转到我们的回调函数中,然后通过回调函数处理,当不需要时需要再通过 CallWindowProc 返回给窗体默认的消息地址就行了.

再看 Form_Unload 中的代码,这是一个还原,主要是当我们退出时不在处理窗体默认的消息时应该返回给系统,这里是需要注意的,否则程序可能会出现异常.

说了这么多,可能有些人还不太怎么明白,不过不要紧,以后多多接触这方面的例子就自然会明白了.好了,我来拟个运行顺序,希望大家能够明白它们的运行机制.

首先,窗体加载时,我们使用

pWndProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)

保存当前窗体的默认消息地址, 然后再通过

SetWindowLong Me.hwnd, GWL_WNDPROC, AddressOf WindowProc

把当前窗体的默认消息地址设置到我们的回调函数地址处,然后我们就可以通过回调消息来控制当前窗体的消息了

WindowProc = CallWindowProc(pWndProc, hwnd, Msg, wParam, lParam)

当消息不用时,我们就要把这个消息返还给系统.该参数只按原路照写就行了.这里切记,如果少了这个函数,程序接不到相应的消息会死掉的

SetWindowLong Me.hwnd, GWL_WNDPROC, pWndProc

最后不用时咱们就把地址返还给系统.当然有时缺少这一句不会出现什么问题,但是以良好的SDK编程规则来说,最好把这句写上.

OK,这段似乎较复杂,不过不要紧,先苦后甜嘛,等你熟练使用子类的时候,你的Windows 编程功力就更上一层楼.

休闲时间广告: 您曾经是否为无法处理窗口的消息而烦恼?您曾经是否看到别人漂亮的自绘菜单而羡慕?您曾经是否因为自己的窗口功能太单一而忧郁?现在好了,赶快学习VB子类吧,有了它,一切都会好起来的.赶快拿起电话定购吧: 电话:110

上面广告纯属虚构,如有雷同,算我倒霉.其实子类的好处不止这些,当然也有很多很多,下面我会举一些例子来说明子类的好处.

四,理论,实操一起抓

1,让你发消息关不掉我

首先新建标准EXE,然后新建一个标准模块:

在 Form1 中加入以下代码

Private Sub Form_Load()

pWndProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)

SetWindowLong Me.hwnd, GWL_WNDPROC, AddressOf WindowProc

End Sub

Private Sub Form_Unload(Cancel As Integer)

SetWindowLong Me.hwnd, GWL_WNDPROC, pWndProc

End Sub

然后再在 Module1 中加入以下代码:

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public 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_CLOSE = &H10

Public pWndProc As Long

Public Function WindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

If Msg = WM_CLOSE Then '处理 WM_CLOSE 窗口关闭消息

WindowProc = 1

Exit Function

End If

WindowProc = CallWindowProc(pWndProc, hwnd, Msg, wParam, lParam)

End Function

其它代码我就不说了,主要是看回调函数中的那几段处理代码. 首先通过 Msg 参数判断当前激发的消息,先前说过,Windows 的所以消息都是以 WM_ 开头的,大家可以找找看.如果是我们要拦截的消息时,那么用下面代码

WindowProc = 1

Exit Function

两句搞定, WindowProc = 1 返回为 True,意思是该消息处理完成,然后 Exit Function 自然是退出该函数,这句代码的意思说白了就是不让执行下面的 CallWindowProc,如果你给CallWindowProc执行了,消息也就自然返回给程序了,当程序接到WM_CLOSE,自然就会退出了.所以说白了,子类拦截消息就是不让执行 CallWindowProc.应该很简单吧??

好了,运行起来试试(别忘了保存)?如果你的VB崩溃了,说明你的代码有误,请仔细检查下.找一个利用 SendMessage 发送WM_CLOSE消息关闭窗口程序试试,发现无法正常关闭你的窗口吧?(注:别拿 Windows 任务管理器试,因为它不单单只是 SendMessage. 如果你实在拿不出什么工具来试,可以自己写个 SendMessage me.hWnd, WM_CLOSE, 0, 0 试试)

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有帐号？注册

x