VB高级编程初探(子类技术SUBCLASS与消息捕获).docVIP

VB高级编程初探（子类技术SUBCLASS与消息捕获） 关键词： VB高级编程初探（子类技术SU ?? ?????????????????????????????????????? 一、前言 很早以前就想写一篇关于子类技术（SubClass）的文章，不过由于时间有限没有深入研究。这段时间由于工作需要用子类实现了大量的Windows消息捕获，正好今天有人问到鼠标滚动事件的捕获问题（这个问题我将在文末给出一个较简洁的方法），因此决定写这篇文章，希望对大家有些帮助。 我们都知道VB有其局限性，我们也常常在试探通过某种方法拓展其应用范围，正如我在以前讲到过的如何在VB中使用隐藏的指针操作函数，如何突破限制使用TOM对象等等。今天讲到的子类技术正是突破VB局限的又一有力工具。 二、子类（SubClass）技术简介 众所周知，Windows是一个基于消息的系统，消息在Windows的对象之间进行着传递。子类（SubClass）和Windows的钩子（Hook）机制存在于消息系统之中，我们可以利用这些机制来操纵、修改甚至丢弃那些在操作系统或是进程中传递的消息，以求改变系统的一些行为。 子类（SubClass）技术用来拦截窗口或控件之间的消息，当然是消息在到达目的窗口之前完成的操作。这些被拦截的消息既可以保留也可以修改它们的状态，之后就继续发送到目的地。子类技术实现了一些正常情况下无法实现的功能，试想鼠标右键单击TextBox，系统默认弹出Undo、Cut、Copy、Paste等菜单，我们就可以利用子类技术来改变这个系统菜单。 简单的说，子类（SubClass）技术就是创建一个新的窗口消息处理过程，并将其插入到原先的默认窗口消息处理过程之前。对于有点OO知识的人来说，这个名称很好理解，因为它继承了上级窗口的一些属性和方法并且加入了自己特有的内容。同样的，超类（SuperClass）技术与之相对，它通过改变父类的特性以求改变其派生类的共同特性，这里不是我们的讨论重点，因此略过。 子类技术的原理：要先取得原先Window Procedure所在的地址，将之记录起来，接着设定所有的消息都先转到我们所写的消息处理过程上来，我们过滤传过来的消息，寻找特定的消息进行处理，其余的送回系统，由系统决定如何处理。等到我们不需要再处理这些特定的消息时，便取消拦截，即中止子类过程。它一般需要三个过程：开始拦截，消息处理，中止拦截。 三、磨刀霍霍：API准备 ?????? 通常要实现子类技术需要对Windows消息机制有较深入的理解，同时对于相关API有较好的掌握。常用API如下： ?????????? RegisterClass或RegisterClassEx：该函数为随后在调用Createwindow函数和CreatewindowEx函数中使用的窗口注册一个窗口类； ?????????? UnregisterClass：删除一个窗口类，清空该类所需的内存； ?????????? DefWindowProc：该函数调用缺省的窗口过程来为应用程序没有处理的任何窗口消息提供缺省的处理。该函数确保每一个消息得到处理。调用DefWindowProc函数时使用窗口过程接收的相同参数； ?????????? GetMessage：该函数从调用线程的消息队列里取得一个消息并将其放于指定的结构； ?????????? TranslateMessage：该函数将虚拟键消息转换为字符消息； ?????????? DispatchMessage：该函数调度一个消息给窗口程序，通常调度从GetMessage取得的消息； ?????????? ShowWindow：用于设置窗口的状态，其中包括窗口的隐藏、显示、最小化、最大化、激活等； ?????????? UpdateWindow：立即更新窗口内需要更新的任何部分； ?????????? CreateWindowEx：该函数创建一个具有扩展风格的重叠式窗口、弹出式窗口或子窗口，其他与CreateWindow函数相同； ?????????? CallWindowProc：该函数CallWindowProc将消息信息传送给指定的窗口过程； ?????????? SetWindowLong，GetWindowLong：用于获取或设置与窗口有关的信息； ?????????? PostQuitMessage：将一条消息投递到指定窗口的消息队列； ?????????? DestroyWindow：清除指定的窗口以及下属所有子窗口与包容窗口。 这里主要对核心的SetWindowLong和CallWindowProc两个函数进行详细讲解，其他函数的说明请参见MSDN： 1、?SetWindowLong函数：该函数将改变指定窗口的特殊属性。 声明如下：