上传一个子类化类模块,使用内嵌汇编技术实现了单类模块化(VB6.0)

Option Explicit

'单类模块实现子类化消息拦截示例
'
'嗷嗷叫的老马 收藏与整理
'
'紫水晶工作室 http://www.m5home.com/

Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" ( _
ByRef Destination As Any, _
ByRef Source As Any, _
ByVal Length As Long)

Private Const WM_MOUSEMOVE As Long = &H200
Private Type myXY
mX As Integer
mY As Integer
End Type

Dim WithEvents oSubClass As cSubclass

Private Sub Form_Load()
Set oSubClass = New cSubclass '对象实例化
oSubClass.AddWindowMsgs Me.hWnd '挂上自己
End Sub

Private Sub Form_Unload(Cancel As Integer)
oSubClass.DeleteWindowMsg Me.hWnd '解除子类化
Set oSubClass = Nothing '销毁对象
End Sub

Private Sub oSubClass_MsgCome(ByVal bBefore As Boolean, bHandled As Boolean, lReturn As Long, lng_hWnd As Long, uMsg As Long, wParam As Long, lParam As Long)
'消息直接在这里处理即可
If bBefore Then '消息被默认窗体过程处理前
Select Case uMsg
Case WM_MOUSEMOVE
Dim mXY As myXY

Call CopyMemory(mXY, lParam, 4) '取出坐标.
Label1.Caption = mXY.mX & "/" & mXY.mY
End Select
End If
End Sub