VB的子类处理应用两例

　子类处理，熟悉API函数的VB爱好者们一定不会感到陌生，它又称为“子类化”或“子类派生”，是一种功能强大的技术。在应用它之前，我们需要先对之原理进行简单的了解：在WINDOWS中，每一个窗口都有一个默认的窗口函数，它的作用是对发送到窗口的消息进行处理。在VB中，这个默认的窗口函数不是直接公开的，它提供了对VB中的事件进行处理的代码，当接受到一条WINDOWS消息时，这个窗口函数就会响应并产生一个VB事件，换言之，这个窗口函数隐藏了消息处理的细节，用一个VB事件来响应一条WINDOWS消息。然而，VB没有提供对所有WINDOWS消息的支持，许多WINDOWS消息都不会生成一个VB事件，但这不能说是VB的缺点，恰是VB的优点，放弃对那些程序员并不常用的消息的支持，在功能强大和性能稳定之间做了很好的平衡。而且，幸运的是，尽管这个幕后主宰是默认的，但它不是唯一的，我们完全可以用自己定制的一个窗口函数替代它，并保留指向默认窗口函数的指针，当一个消息到达窗口时，自制的窗口函数会拦截它并进行识别处理，对不能识别或不需进行特别处理的消息，就通过指向默认窗口函数的指针传递给默认的窗口函数进行处理，这样便扩充了默认窗口函数的功能。这种用定制的窗口函数代替默认的窗口函数，拦截并处理到达窗口的消息的技术，我们就称之为“子类处理”，定制的函数我们称之为“回调函数”。子类处理的方法主要有三种：忽略消息并传递给默认的窗口函数；截获消息，执行特定操作后，传递给默认的窗口函数或传递给默认的窗口函数处理后，对返回值进行控制；截获消息，执行特定操作并禁止默认的窗口函数对之进行处理。我们将通过下面两个实例对之进行简要说明。

一、实现无标题栏窗口的拖动

　　大家都知道，按住窗口的标题栏可以拖动窗口。可如果窗口没有标题栏，怎样拖动它呢?那就按在窗口的客户区上吧，只要让窗口觉得是按在了标题栏上就可以了。

　　首先需要在一个模块文件Modulel内输入以下代码，(我们自制的回调函数必须在模块文件中声明，不可将其放到类模块中，也不能附加到窗体中)：

　　下面声明的是子类处理中最重要的三个函数。

　　SetWindowLong函数使用GWL_WNDPROC索引将默认的窗口函数替换成我们自制的回调函数，回调函数的地址由AddressOf操作符得到。SetWindowsLong函数返回值为默认的窗口函数的地址。

　　Declare Function SetWindowLong Lib“user32"Alias“SetWindowLingA"(ByValhwnd As Long,ByVal nIndex As Long,By Val dwNewLong As Long)As Long 　　DefWindowProc函数调用默认的窗口函数对消息进行处理，并返回消息处理的指定返回值。

　　Declare Function DefWindowProc Lib“user32"Alias “DefWindowProcA"(ByValhwnd As Long,ByVal wMsg As Long,ByVal wParam As Interger,ByVal lParam As Long)As Long
　　CallWindowProc函数传递消息到指定的窗口函数(窗口函数地址由lpPrevWndFunc参数给定)，并返回消息处理的指定返回值。
　　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 proroc As Long
　　Public Const WM_NCHITTEST=＆H84
　　Public Const HTCAPTION=2
　　Public Const HTCLIENT=1
　　Public Const GWL_WNDPROC=(－4)

　　回调函数WindowProc结构如下，共有四个参数，第一个参数是窗口句柄，第二个参数是消息编号，第三、四个参数是32位整数，它们根据不同的消息而不同。

　　本例中，当鼠标在窗口内进行了一个按下或松开的操作时，WINDOWS会向窗口发出一条WM_NCHITTEST消息(该消息用于判断窗口的非客户区域的什么部分包含了鼠标指针)，回调函数在收到WM_NCHITTEST消息后，首先调用窗口的默认函数进行处理，然后判断返回值，如果是HTCLIENT(表示鼠标指针在客户区内)，就改变它，使之返回HTCAPTION(表示鼠标指针在标题栏内)，这样，当我们在窗口的客户区内按住鼠标移动时，窗口就会傻呼呼地以为按在了标题框内，当然就跟着我们的鼠标动了。

　　Function WindowProc(ByVal hwnd As Long, ByVal msg As Long,ByVal wParam As Long,ByVal lParam As Long)As Long
　　Dim rv As Long
　　If msg=WM_NCHITTEST Then
　　rv=DefWindowProc(hwnd,msg,wParam,lParam)
　　If rv=HTCLIENT Then
　　WindowProc=HTCAPTION
　　Else
　　WindowProc=rv
　　End If
　　将其他的消息传递给默认的窗口函数进行处理。
　　Else
　　WindowProc=CallWindowProc(proroc,hwnd,msg,wParam,lParam)
　　End If
　　在Forml内输入如下代码：
　　Private Sub Form_load()
　　proroc=SetWindowLong(hwnd,GWL_WNDPROC,AddressOf WindowProc)
　　End Sub
　　一定要记得在窗口卸载之前恢复默认的窗口函数，否则……您试一试就知道了。
　　Private Sub Form_Unload(Cancel As Integer)
　　Dim rv As Long
　　rv=SetWindowLong(hwnd,GWL_WNDPROC,proroc)End Sub 156 二、规模文本框的关联菜单

　　大家都知道,文本框控件有自己的关联菜单(上有剪切、复制、全选之类的命令)，这无疑为我们在编程时提供了便利。可是，有利必有弊，当我们需要给文本框提供一些定制命令，并把它们加到一个自定义的关联菜单中时，默认的关联菜单给我们带来了不便(在文本框内单击右键时，会先后弹出两个关联菜单)。如何防止默认的关联菜单弹出呢?

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有