mdglobals.bas

很美的窗口控件,让你的系统界面接近WINDOWS界面...不信你

Attribute VB_Name = "mdGlobals"
'==============================================================================
' mdGlobals.bas
'
'   Subclassing Thunk (SuperClass V2) Project Samples
'   Copyright (c) 2002 by Vlad Vissoultchev <[e-mail]>
'
'   Menu hook impl encapsulation
'
' Modifications:
'
' 2002-10-28    WQW     Initial implementation
'
'==============================================================================
Option Explicit

Public g_oMenuHook      As cHookingThunk
Public g_oMenuHookImpl  As cMenuHook
Public g_oCurrentMenu   As ctxHookMenu

#If DebugMode Then
    Public g_lObjCount          As Long
    
    Public Sub DebugInit(sDebugID As String, sModule As String)
        g_lObjCount = g_lObjCount + 1
        sDebugID = g_lObjCount & " " & sModule & " " & Timer
    End Sub
    
    Public Sub DebugTerm(sDebugID As String)
        Debug.Print "DebugTerm: " & sDebugID
    End Sub
#End If