submain.bas

一款漂亮的控件。 快

Attribute VB_Name = "SubMain"
Public NextProcs As Long
Public Nodef As Boolean

Public Const GWL_WNDPROC = (-4)
Public Const WM_NCACTIVATE = &H86
Public Const WM_NCRBUTTONUP = &HA5
Public Const GW_CHILD = 5
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_WINDOWEDGE = &H100
Public Const WS_EX_TOOLWINDOW = &H80
Public Const WS_EX_TOPMOST = &H8
Public Const WS_EX_PALETTEWINDOW = (WS_EX_WINDOWEDGE Or WS_EX_TOOLWINDOW Or WS_EX_TOPMOST)

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal wndrpcPrev As Long, ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Public Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Public Declare Function UpdateWindow Lib "user32" (ByVal hWnd As Long) As Long

Public Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long
    
    On Error Resume Next
    Select Case hWnd
        'if it's our window then pass information on message
        Case FrmMain.hWnd
             FrmMain.ProcMsg hWnd, uMsg, wParam, lParam, 0&
    End Select
    
    'check if we want to pass the message or eat it.
    If Nodef = True Then
        WindowProc = CallWindowProc(NextProcs, hWnd, uMsg, wParam, ByVal lParam)
    Else
        Nodef = True
    End If
End Function