subclass.bas

来自「专业版本的vb防火墙管理程序」· BAS 代码 · 共 25 行

Attribute VB_Name = "SubClass"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/06/11
'描  述：很专业的个人防火墙
'网  站：http://www.mndsoft.com/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
Option Explicit

Public colTrackMouse As New Collection


Public Function procTrackMouse(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error Resume Next
Dim tmItem As New CTrackMouse
Set tmItem = colTrackMouse.Item("TM" & hwnd)
If Not (tmItem Is Nothing) Then procTrackMouse = tmItem.MessageReceived(wMsg, wParam, lParam)
End Function