使用VB进行子类化

原创 2003年09月14日 19:06:00

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

摘要

这里我们讨论一下如何使用VB进行子类化,以及VB6VB.NET的子类化实现的异同。

 

目录

1. 何谓子类化(subclassing

2. Visual Basic 6子类化的实现

3. Visual Basic .NET子类化的实现

4. 小结

 

1. 何谓子类化(subclassing

众所周知,Windows是一个基于消息的系统,消息在Windows的对象之间进行着传递。子类化和Windows的钩子机制存在于消息系统之中,我们可以利用这些机制来操纵、修改甚至丢弃那些在操作系统或是进程中传递的消息,以求改变系统的一些行为。

子类化技术用来截取窗口或控件之间的消息,当然是消息在到达目的窗口之前完成的操作。这些被截获的消息既可以保留也可以修改它们的状态,之后就继续发送到目的地。子类化技术实现了一些正常情况下无法实现的功能,试想鼠标右键单击TextBox,系统默认弹出UndoCutCopyPaste等菜单,我们就可以利用子类化技术来改变这个系统菜单。

简单的说,子类化就是创建一个新的窗口消息处理过程,并将其插入到原先的默认窗口消息处理过程之前。

子类化分为三类:实例子类化(instance subclassing)—从窗口或控件的单一实例截获消息,这种子类化技术最普遍;全局子类化(global subclassing)—能够截获从相同的窗口类创建出来的多个窗口或控件的消息;超类化(superclassing)—和全局子类化很类似,区别在于可以应用在新的窗口类上面。

 

2. Visual Basic 6子类化的实现

Visual Basic 6子类化的实现中我将通过一段代码的实例来介绍这一技术在VB6中的应用。下面的例子将演示如何将About加入窗口的系统菜单。

①创建工程

启动Visual Basic 6同时创建一个标准EXE工程。

 

②在窗体中录入代码

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long

Private Declare Function InsertMenu Lib "user32" Alias "InsertMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long

 

Private Const MF_BYCOMMAND = &H0&

Private Const MF_BYPOSITION = &H400&

Private Const MF_STRING = &H0&

Private Const MF_SEPARATOR = &H800&

 

 

Private Sub Form_Load()

InsertMenu GetSystemMenu(Me.hWnd, False), 0, MF_BYPOSITION Or MF_SEPARATOR, 2001, ""

InsertMenu GetSystemMenu(Me.hWnd, False), 0, MF_BYPOSITION Or MF_STRING, 2002, "About Me(&A)"

'安装子类化入口

Call Init(Me.hWnd)

End Sub

 

Private Sub Form_Unload(Cancel As Integer)

卸载子类化

Call Terminate(Me.hWnd)

End Sub

 

③加入一个模块并录入代码

Option Explicit

                   

Private Declare Function SetWindowLong Lib "user32" Alias _

        "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex _

        As Long, ByVal dwNewLong As Long) As Long

       

Private 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

       

Const GWL_WNDPROC = (-4&)

 

Dim PrevWndProc&

 

Private Const WM_SYSCOMMAND = &H112

Const WM_DESTROY = &H2

子类化入口

Public Sub Init(hWnd As Long)

  PrevWndProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf SubWndProc)

End Sub

子类化出口

Public Sub Terminate(hWnd As Long)

  Call SetWindowLong(hWnd, GWL_WNDPROC, PrevWndProc)

End Sub

新的窗口消息处理过程,将被插入到默认处理过程之前

Private Function SubWndProc(ByVal hWnd As Long, ByVal Msg As Long, _

                            ByVal wParam As Long, ByVal lParam As Long) _

                            As Long

If Msg = WM_DESTROY Then Terminate (Form1.hWnd)

 

If wParam = 2002 Then

   MsgBox "我是40Star", vbInformation, "hia..hia..."

End If

调用默认的窗口处理过程

SubWndProc = CallWindowProc(PrevWndProc, hWnd, Msg, wParam, lParam)

End Function

' -- 模块结束 -- '

 

但是,需要指出的是不正确的子类化是非常危险的,将导致一个General Protection FaultGPF)错误,致使VB应用立即崩溃。

 

3. Visual Basic .NET子类化的实现

.NET中使用子类化技术要比VB6中简单,因为微软在.NET中已经提供了接口,不需要我们再自己SetWindowLong了,我们做的是Overrides(覆盖) WndProc过程即可。

Overrides Protected Sub WndProc( ByRef m As Message )

参数m实现了Windows的消息类型。

下面的例子将同样演示如何将About加入窗口的系统菜单。

①创建工程

创建一个VB.NETWindows Application工程。

 

②录入代码

Public Class Form1

    Inherits System.Windows.Forms.Form

 

中间隐去了.NET自动生成的代码

‘ – 引用Win32Api – ‘

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As IntPtr, ByVal bRevert As Int32) As Int32

Private Declare Function InsertMenu Lib "user32" Alias "InsertMenuA" (ByVal hMenu As Int32, ByVal nPosition As Int32, ByVal wFlags As Int32, ByVal wIDNewItem As Int32, ByVal lpNewItem As String) As Int32

 

Private Const MF_BYCOMMAND = &H0&

Private Const MF_BYPOSITION = &H400&

Private Const MF_STRING = &H0&

Private Const MF_SEPARATOR = &H800&

Private Const WM_SYSCOMMAND = &H112

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        InsertMenu(GetSystemMenu(Me.Handle, False), 0, MF_BYPOSITION Or MF_SEPARATOR, 2001, "")  '加入一条分割线

GetSystemMenu(Me.Handle, False)是得到系统菜单的句柄,第二个参数为True的话不能改变系统菜单,所以要设为False

        InsertMenu(GetSystemMenu(Me.Handle, False), 0, MF_BYPOSITION Or MF_STRING, 2002, "About Me(&A)") '加入About me菜单在系统菜单中

    End Sub

子类化窗口--覆盖WndProc过程

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

        If m.Msg = WM_SYSCOMMAND Then

            If m.WParam.ToInt32 = 2002 Then

                MsgBox("我是40Star", vbInformation, "hia..hia...")

            End If

        End If

        调用窗口默认的处理过程

        MyBase.WndProc(m)

    End Sub

End Class

 

4. 小结

子类化技术可以让我们实现一些使用VB在正常条件下无法完成的任务,而且通过这些技术可以更为深入的学习Windows编程,成为VB开发人员中的高手。

VB.net 中 ADODB的RecordSet 的使用实例说明

首先需要引用: ado VB ADODB中的RecordSet.Open打开记录的两个参数adOpenKeyset、adLockBatchOptimistic的详细说明: 这两个参数当时弄明...
  • jsjpanxiaoyu
  • jsjpanxiaoyu
  • 2015年06月07日 21:21
  • 4753

VB.net学习笔记(十二)继承中的构造、事件、共享方法、共享事件

Private mNames As Generic.Dictionary(Of NameType, String) Public Overloads Property Name(ByVal ...
  • dzweather
  • dzweather
  • 2013年08月13日 22:38
  • 5141

浅谈VB6中的自定义类的使用

[SHR]浅谈VB6中的自定义类的使用    PS:除非特别声明,本文所说VB指的是VB6,而非VB.NET。    大家都知道,VB是一种半面向对象(也有人称之为“伪面向对象”)的语言,...
  • chinajobs
  • chinajobs
  • 2015年06月30日 11:28
  • 2568

什么是VB进行子类化及简单介绍

目录 何谓子类化(subclassing)Visual Basic 6子类化的实现Visual Basic .NET子类化的实现小结 1. 何谓子类化(subclassing)   ...
  • aliealie
  • aliealie
  • 2017年04月17日 20:29
  • 550

浅谈VB6.0使用子类化

基础知识:Windows的消息驱动机制     子类化,对于各位高手来说easy到不得了了,不用我说,基本可以绕路了。但是对于一些新手来说确实很陌生的,基本上在网上也没有什么系统的资料。那么,我就趁...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2012年04月22日 17:43
  • 4704

VB 子类化重绘ListBox

  • 2014年12月30日 14:06
  • 26KB
  • 下载

VB6中单类模块子类化类,不需要再在标准模块中写消息处理过程了,作者PctGL

  • 2012年12月17日 22:03
  • 11KB
  • 下载

VB6.0 【GDI+ 前言之子类化】

如果你曾经在 Windows 环境下编过程序,有时候就会发现:有一个现成的窗口,几乎有你所需要的全部功能,但还不完全一样。如果你需要一个具有过滤特殊字符功能的 Edit 控件。当然最直接的方法就是自己...
  • xyzt1989
  • xyzt1989
  • 2014年06月19日 19:42
  • 399

子类化GetOpenFileName/GetSaveFileName, 以及钩子函数OFNHookProc的使用的简要说明

子类化GetOpenFileName/GetSaveFileName, 以及钩子函数OFNHookProc的使用的简要说明
  • chenlycly
  • chenlycly
  • 2016年12月09日 13:45
  • 435

combox内编辑框和列表框的子类化

  • 2011年04月24日 17:04
  • 20KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用VB进行子类化
举报原因:
原因补充:

(最多只允许输入30个字)