www.pudn.com > 2006021801.zip > modCommon.bas

Attribute VB_Name = "modCommon" 
'¹«ÓÃÎļþ 
Public Const GWL_USERDATA = (-21&) 
 
 
Public preWndProc As Long 
Public 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 
Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long 
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long 
Public Declare Function SetfrmFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long 
 
 
Public Const WM_SETTEXT = &HC 
Public Const WM_USER = &H400 
 
 
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
Public Const GWL_WNDPROC = (-4) 
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 
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 SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long 
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long 
 
 
Public Function WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
    On Error Resume Next 
    If (Msg = WM_USER + 112) Then 
        With frmTest 
            If frmTest.WindowState = 1 Then 
                .WindowState = 0 
             
            End If 
            .Visible = True 
            SetfrmFocus frmTest.hwnd 
        End With 
    End If 
    WndProc = CallWindowProc(preWndProc, hwnd, Msg, wParam, lParam) 
End Function