何谓子类化（subclassing）Visual Basic 6子类化的实现Visual Basic .NET子类化的实现小结
1. 何谓子类化（subclassing）&
　　众所周知，Windows是一个基于消息的系统，消息在Windows的对象之间进行着传递。子类化和Windows的钩子机制存在于消息系统之中，我们可以利用这些机制来操纵、修改甚至丢弃那些在操作系统或是进程中传递的消息，以求改变系统的一些行为。子类化技术用来截取窗口或控件之间的消息，当然是消息在到达目的窗口之前完成的操作。这些被截获的消息既可以保留也可以修改它们的状态，之后就继续发送到目的地。子类化技术实现了一些正常情况下无法实现的功能，试想鼠标右键单击TextBox，系统默认弹出Undo、Cut、Copy、Paste等菜单，我们就可以利用子类化技术来改变这个系统菜单。&
　　简单的说，子类化就是创建一个新的窗口消息处理过程，并将其插入到原先的默认窗口消息处理过程之前。&
　　子类化分为三类：实例子类化（instance subclassing）—从窗口或控件的单一实例截获消息，这种子类化技术最普遍；全局子类化（global subclassing）—能够截获从相同的窗口类创建出来的多个窗口或控件的消息；超类化（superclassing）—和全局子类化很类似，区别在于可以应用在新的窗口类上面。&
2. Visual Basic 6子类化的实现&
　　在Visual Basic 6子类化的实现中我将通过一段代码的实例来介绍这一技术在VB6中的应用。现在很多开发社区中经常谈到的一个话题就是界面开发如何Skin，这种技术有很多解决方式，如使用可以贴图的控件或使用第三方开发的换肤ActiveX控件。其实Skin技术需要处理的是WM_DRAWITEM、WM_MEASUREITEM、WM_NCPAINT消息，这些消息的主要用途就是可以重画控件和窗口的非客户区。想要对这些VB6无法处理的消息进行编程就必须用到子类化，这些消息都会被发送到能够自绘的控件的窗口上，因此下面的例子就是利用窗口子类化来重画Button控件。&
①创建工程&
　　启动Visual Basic 6同时创建一个标准EXE工程。&
②窗口布局&
　　在FORM1上放置3个Button控件，并将前两个Button的Style属性设置为1-Graphical，因为只有Style属性设置为Graphical的Button才可以Owner-drawn。&
③在窗体中录入代码
Code highlighting produced by Actipro CodeHighlighter (freeware)/--&Private Sub Command3_Click()
'通过Enabled属性的控制，来显示重画控件在Unenabled状态时的效果
If Command1.Enabled Then
Command1.Enabled = False
Command1.Enabled = True
Private Sub Form_Load()
'安装子类化入口
Call Init(Me.hWnd)
Private Sub Form_Unload(Cancel As Integer)
'卸载子类化
Call Terminate(Me.hWnd)
④加入一个模块并录入代码
Option Explicit
' -- 引用Win32Api –
'得到默认的窗口消息处理过程的地址需要的API
Private Declare Function GetWindowLong Lib &user32& Alias &GetWindowLongA& (ByVal hWnd As Long, ByVal nIndex As Long) As Long
'设置一个新的窗口消息处理过程的地址需要的API
Private Declare Function SetWindowLong Lib &user32& Alias &SetWindowLongA& (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'给指定的窗口消息处理过程传递消息需要的API
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
Private Declare Sub CopyMemory Lib &kernel32& Alias &RtlMoveMemory& (Destination As Any, Source As Any, ByVal Length As Long)
Const GWL_WNDPROC = (-4&)
Dim PrevWndProc&
Private Const WM_DESTROY = &H2
Private Const WM_DRAWITEM = &H2B
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
'WM_DRAWITEM需要处理的结构体
Private Type DRAWITEMSTRUCT
CtlType As Long
CtlID As Long
itemID As Long
itemAction As Long
itemState As Long
hwndItem As Long
hdc As Long
rcItem As RECT
itemData As Long
' Owner draw 常量
Private Const ODT_BUTTON = 4
' Owner draw 动作
Private Const ODA_DRAWENTIRE = &H1
Private Const ODA_SELECT = &H2
Private Const ODA_FOCUS = &H4
' Owner draw 状态
Private Const ODS_SELECTED = &H1
Private Const ODS_GRAYED = &H2
Private Const ODS_DISABLED = &H4
Private Const ODS_CHECKED = &H8
Private Const ODS_FOCUS = &H10
'得到指定窗口的文本
Private Declare Function GetWindowText Lib &user32& Alias &GetWindowTextA& (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
'GDI相关API函数，重画Button时使用
Private Declare Function SelectObject Lib &gdi32& (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function CreateSolidBrush Lib &gdi32& (ByVal crColor As Long) As Long
Private Declare Function DeleteObject Lib &gdi32& (ByVal hObject As Long) As Long
Private Declare Function GetSysColor Lib &user32& (ByVal nIndex As Long) As Long
Const COLOR_SCROLLBAR = 0
Const COLOR_BACKGROUND = 1
Const COLOR_ACTIVECAPTION = 2
Const COLOR_INACTIVECAPTION = 3
Const COLOR_MENU = 4
Const COLOR_WINDOW = 5
Const COLOR_WINDOWFRAME = 6
Const COLOR_MENUTEXT = 7
Const COLOR_WINDOWTEXT = 8
Const COLOR_CAPTIONTEXT = 9
Const COLOR_ACTIVEBORDER = 10
Const COLOR_INACTIVEBORDER = 11
Const COLOR_APPWORKSPACE = 12
Const COLOR_HIGHLIGHT = 13
Const COLOR_HIGHLIGHTTEXT = 14
Const COLOR_BTNFACE = 15
Const COLOR_BTNSHADOW = 16
Const COLOR_GRAYTEXT = 17
Const COLOR_BTNTEXT = 18
Const COLOR_INACTIVECAPTIONTEXT = 19
Const COLOR_BTNHIGHLIGHT = 20
Private Declare Function FillRect Lib &user32& (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
Private Declare Function FrameRect Lib &user32& (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
Private Declare Function CreatePen Lib &gdi32& (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
Const PS_SOLID = 0
Const PS_DASH = 1 ' -------
Const PS_DOT = 2 ' .......
Const PS_DASHDOT = 3 ' _._._._
Const PS_DASHDOTDOT = 4 ' _.._.._
Const PS_NULL = 5
Const PS_INSIDEFRAME = 6
Const PS_USERSTYLE = 7
Const PS_ALTERNATE = 8
Const PS_STYLE_MASK = &HF
Private Declare Function MoveToEx Lib &gdi32& (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long
Private Declare Function LineTo Lib &gdi32& (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Type POINTAPI
Private Declare Function DrawText Lib &user32& Alias &DrawTextA& (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Private Const DT_SINGLELINE = &H20
Private Const DT_CENTER = &H1
Private Const DT_VCENTER = &H4
Private Declare Function SetTextColor Lib &gdi32& (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function SetBkMode Lib &gdi32& (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Private Const TRANSPARENT = 1
' – 声明结束 --
Private Sub DrawButton(ByVal hWnd As Long, ByVal hdc As Long, rct As RECT, ByVal nState As Long)
Dim P As POINTAPI
Dim s As String
Dim hbr As Long
Dim hpen As Long
hbr = CreateSolidBrush(GetSysColor(COLOR_BTNFACE)) 'RGB(231, 231, 231)
SelectObject hdc, hbr
FillRect hdc, rct, hbr
DeleteObject hbr
'画文字时背景为透明状
SetBkMode hdc, TRANSPARENT
'得到Button的Caption
s = String$(255, & &)
GetWindowText hWnd, s, 255
s = Trim$(s)
'根据Button的Enabled状态进行重画
If (nState And ODS_DISABLED) = ODS_DISABLED Then
'画外围灰框
hbr = CreateSolidBrush(RGB(132, 130, 132))
SelectObject hdc, hbr
FrameRect hdc, rct, hbr
DeleteObject hbr
'画内侧3D效果-&亮色
hpen = CreatePen(PS_SOLID, 1, RGB(255, 255, 255))
SelectObject hdc, hpen
MoveToEx hdc, rct.Left + 1, rct.Top + 1, P
LineTo hdc, rct.Right - 1, rct.Top + 1
MoveToEx hdc, rct.Left + 1, rct.Top + 1, P
LineTo hdc, rct.Left + 1, rct.Bottom - 1
DeleteObject hpen
'画内侧3D效果-&暗色
hpen = CreatePen(PS_SOLID, 1, RGB(189, 190, 189))
SelectObject hdc, hpen
MoveToEx hdc, rct.Left + 1, rct.Bottom - 2, P
LineTo hdc, rct.Right - 1, rct.Bottom - 2
MoveToEx hdc, rct.Right - 2, rct.Top + 1, P
LineTo hdc, rct.Right - 2, rct.Bottom - 1
DeleteObject hpen
'画阴影文字
rct.Left = rct.Left + 1
rct.Right = rct.Right + 1
rct.Bottom = rct.Bottom + 1
rct.Top = rct.Top + 1
SetTextColor hdc, GetSysColor(COLOR_BTNHIGHLIGHT)
DrawText hdc, s, LenB(StrConv(s, vbFromUnicode)), rct, DT_CENTER Or DT_SINGLELINE Or DT_VCENTER
rct.Left = rct.Left - 1
rct.Right = rct.Right - 1
rct.Bottom = rct.Bottom - 1
rct.Top = rct.Top - 1
SetTextColor hdc, GetSysColor(COLOR_GRAYTEXT)
DrawText hdc, s, LenB(StrConv(s, vbFromUnicode)), rct, DT_CENTER Or DT_SINGLELINE Or DT_VCENTER
'按下Button时重画
If (nState And ODS_SELECTED) = ODS_SELECTED Then
'画内部区域颜色
hbr = CreateSolidBrush(RGB(156, 186, 222))
SelectObject hdc, hbr
FillRect hdc, rct, hbr
DeleteObject hbr
'画外围灰框
hbr = CreateSolidBrush(RGB(99, 125, 165))
SelectObject hdc, hbr
FrameRect hdc, rct, hbr
DeleteObject hbr
'画内侧3D效果-&亮色
hpen = CreatePen(PS_SOLID, 1, RGB(123, 158, 206))
SelectObject hdc, hpen
MoveToEx hdc, rct.Left + 1, rct.Top + 1, P
LineTo hdc, rct.Right - 1, rct.Top + 1
MoveToEx hdc, rct.Left + 1, rct.Top + 1, P
LineTo hdc, rct.Left + 1, rct.Bottom - 1
DeleteObject hpen
'画内侧3D效果-&暗色
hpen = CreatePen(PS_SOLID, 1, RGB(181, 203, 231))
SelectObject hdc, hpen
MoveToEx hdc, rct.Left + 1, rct.Bottom - 2, P
LineTo hdc, rct.Right - 1, rct.Bottom - 2
MoveToEx hdc, rct.Right - 2, rct.Top + 1, P
LineTo hdc, rct.Right - 2, rct.Bottom - 1
DeleteObject hpen
rct.Left = rct.Left + 1
rct.Right = rct.Right + 1
rct.Bottom = rct.Bottom + 1
rct.Top = rct.Top + 1
SetTextColor hdc, GetSysColor(COLOR_BTNTEXT)
DrawText hdc, s, LenB(StrConv(s, vbFromUnicode)), rct, DT_CENTER Or DT_SINGLELINE Or DT_VCENTER
'Button得到焦点时重画
If (nState And ODS_FOCUS) = ODS_FOCUS Then
'画内部区域颜色
hbr = CreateSolidBrush(RGB(173, 203, 239))
SelectObject hdc, hbr
FillRect hdc, rct, hbr
DeleteObject hbr
'画外围灰框
hbr = CreateSolidBrush(RGB(107, 138, 181))
SelectObject hdc, hbr
FrameRect hdc, rct, hbr
DeleteObject hbr
'画内侧3D效果-&亮色
hpen = CreatePen(PS_SOLID, 1, RGB(198, 223, 247))
SelectObject hdc, hpen
MoveToEx hdc, rct.Left + 1, rct.Top + 1, P
LineTo hdc, rct.Right - 1, rct.Top + 1
MoveToEx hdc, rct.Left + 1, rct.Top + 1, P
LineTo hdc, rct.Left + 1, rct.Bottom - 1
DeleteObject hpen
'画内侧3D效果-&暗色
hpen = CreatePen(PS_SOLID, 1, RGB(132, 174, 222))
SelectObject hdc, hpen
MoveToEx hdc, rct.Left + 1, rct.Bottom - 2, P
LineTo hdc, rct.Right - 1, rct.Bottom - 2
MoveToEx hdc, rct.Right - 2, rct.Top + 1, P
LineTo hdc, rct.Right - 2, rct.Bottom - 1
DeleteObject hpen
SetTextColor hdc, GetSysColor(COLOR_BTNTEXT)
DrawText hdc, s, LenB(StrConv(s, vbFromUnicode)), rct, DT_CENTER Or DT_SINGLELINE Or DT_VCENTER
'画外围灰框
hbr = CreateSolidBrush(RGB(132, 130, 132))
SelectObject hdc, hbr
FrameRect hdc, rct, hbr
DeleteObject hbr
'画内侧3D效果-&亮色
hpen = CreatePen(PS_SOLID, 1, RGB(255, 255, 255))
SelectObject hdc, hpen
MoveToEx hdc, rct.Left + 1, rct.Top + 1, P
LineTo hdc, rct.Right - 1, rct.Top + 1
MoveToEx hdc, rct.Left + 1, rct.Top + 1, P
LineTo hdc, rct.Left + 1, rct.Bottom - 1
DeleteObject hpen
'画内侧3D效果-&暗色
hpen = CreatePen(PS_SOLID, 1, RGB(189, 190, 189))
SelectObject hdc, hpen
MoveToEx hdc, rct.Left + 1, rct.Bottom - 2, P
LineTo hdc, rct.Right - 1, rct.Bottom - 2
MoveToEx hdc, rct.Right - 2, rct.Top + 1, P
LineTo hdc, rct.Right - 2, rct.Bottom - 1
DeleteObject hpen
SetTextColor hdc, GetSysColor(COLOR_BTNTEXT)
DrawText hdc, s, LenB(StrConv(s, vbFromUnicode)), rct, DT_CENTER Or DT_SINGLELINE Or DT_VCENTER
'新的窗口消息处理过程，将被插入到默认处理过程之前
Private Function SubWndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim di As DRAWITEMSTRUCT
If Msg = WM_DESTROY Then Terminate (hWnd)
'处理自画消息
If Msg = WM_DRAWITEM Then
CopyMemory di, ByVal lParam, Len(di)
'判断是自画Button
If di.CtlType = ODT_BUTTON Then
DrawButton di.hwndItem, di.hdc, di.rcItem, di.itemState
'不返回VB的默认Button绘制过程
SubWndProc = 1
Exit Function
'调用默认的窗口处理过程
SubWndProc = CallWindowProc(PrevWndProc, hWnd, Msg, wParam, lParam)
End Function
'子类化入口
Public Sub Init(hWnd As Long)
PrevWndProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf SubWndProc)
'子类化出口
Public Sub Terminate(hWnd As Long)
Call SetWindowLong(hWnd, GWL_WNDPROC, PrevWndProc)
' -- 模块结束 -- '
3. Visual Basic .NET子类化的实现&
　　.NET中使用子类化技术要比VB6中简单，因为微软在.NET中已经提供了接口，不需要我们再自己SetWindowLong了，我们做的是Overrides（覆盖） WndProc过程即可。&
　　Overrides Protected Sub WndProc( ByRef m As Message )参数m实现了Windows的消息类型。&
　　下面的例子将演示如何将About加入窗口的系统菜单。&
①创建工程&
　　创建一个VB.NET的Windows Application工程。&
②录入代码
Code highlighting produced by Actipro CodeHighlighter (freeware)/--&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菜单在系统菜单中
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
'类化窗口--覆盖WndProc过程
If m.Msg = WM_SYSCOMMAND Then
If m.WParam.ToInt32 = 2002 Then
MsgBox(&About Context&, vbInformation, &About...&)
'调用窗口默认的处理过程
MyBase.WndProc(m)
　　子类化技术可以让我们实现一些使用VB在正常条件下无法完成的任务，而且通过这些技术可以更为深入的学习Windows编程，成为VB开发人员中的高手。
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：2263次
排名：千里之外
转载：12篇
(2)(1)(1)(4)(4)(3)扫二维码下载作业帮
1.75亿学生的选择
下载作业帮安装包
扫二维码下载作业帮
1.75亿学生的选择
&在VB中是什么意思?怎么用!我是菜鸟,谁能给我详细的解答,感激不尽...
扫二维码下载作业帮
1.75亿学生的选择
主要就是连接字符串用,比如说(显示123456)：Dim a As Stringa = "123" & "456"MsgBox a定义的时候当Long类型使用,以下两句表达意思相同.Dim a As LongDim a&用于16进制赋值,表达形式：&H加16进制数,比如表示16进制的3D(结果是十进制的61).Dim a As Longa = &H3DMsgBox a常量后表示Long的后缀,以下两种表达形式相同：Const a As Long = 123Const a = 123&'&'也是一个字符,比如说显示'&'.MsgBox "&"我知道的就这么多了.
为您推荐：
其他类似问题
扫描下载二维码里面类的概念是什么
类是定义同一类所有对象的变量和方法的蓝图或原型。
例如，可以建立一个定义包含当前档位等实例变量的自行车类。这个类也定义和提供了实例方法（变档、刹车）的实现。
实例变量的值由类的每个实例提供。因此，当你创建自行车类以后，必须在使用之前对它进行实例化。当创建类的实例时，就建立了这种类型的一个对象，然后系统为类定义的实例变量分配相关信息。然后可以调用对象的实例方法实现一些功能。相同类的实例共享相同的实例方法。
除了实例变量和方法，类也可以定义类变量和类方法。可以从类的实例中或者直接从类中访问类变量和方法。类方法只能操作类变量 - 不必访问实例变量或实例方法。
系统在第一次在程序中遇到一个类时为这个类建立它的所有类变量的拷贝 - 这个类的所有实例共享它的类变量。
你可能会注意到对象和类的说明很相似。实际上，类和对象之间的差别经常是一些困惑的起源。在现实世界中很明显，类不是它描述的对象 - 自行车的蓝图不是自行车。但是在软件中就有点难区分类和...
类是定义同一类所有对象的变量和方法的蓝图或原型。
例如，可以建立一个定义包含当前档位等实例变量的自行车类。这个类也定义和提供了实例方法（变档、刹车）的实现。
实例变量的值由类的每个实例提供。因此，当你创建自行车类以后，必须在使用之前对它进行实例化。当创建类的实例时，就建立了这种类型的一个对象，然后系统为类定义的实例变量分配相关信息。然后可以调用对象的实例方法实现一些功能。相同类的实例共享相同的实例方法。
除了实例变量和方法，类也可以定义类变量和类方法。可以从类的实例中或者直接从类中访问类变量和方法。类方法只能操作类变量 - 不必访问实例变量或实例方法。
系统在第一次在程序中遇到一个类时为这个类建立它的所有类变量的拷贝 - 这个类的所有实例共享它的类变量。
你可能会注意到对象和类的说明很相似。实际上，类和对象之间的差别经常是一些困惑的起源。在现实世界中很明显，类不是它描述的对象 - 自行车的蓝图不是自行车。但是在软件中就有点难区分类和对象。着部分是由于软件对象只是现实世界的电子模型或抽象念。但是也由于很多人用“对象”指类和它们的实例这两者。
对象提供了模型化和信息隐藏的好处。类提供了可重用性的好处。自行车制造商一遍一遍地重用相同的蓝图来制造大量的自行车。软件程序员用相同的类，即相同的代码一遍一遍地建立对象。
类是面向对象编程特有的,但VB中的类不支持继承，只有接口进行方法的重写，所以局限性突现.
其他答案（共1个回答）
Class，别的不知道！
问的好，加精！
的代码存储在模块中。模块有三种类型：窗体、标准和类。
简单的应用程序可以只有一个窗体，应用程序的所有代码都驻留在窗体模块...
唱吧，带上耳机，效果还算不错的卡拉OK；
chameleon 利用摄像头，全透明背景和环境融为一体的时钟；
SkyView 利用摄像头和GPS定位，任何时候知道...
类型声明字符 (!) 表示 Single
将单精度浮点变量存储为 32 位 (4 字节) 浮点数，对于负数，其范围为 -3. 到 -1.40...
声明 ShellExecute 函数；在 form 上建立 label、line 控件各一个(myHttp、Line1)，再仿照以下代码，即可打开浏览器登录
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区}