windecl.bas

此源码为vb圣经编码

Attribute VB_Name = "Declarations"
Option Explicit
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hWnd As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Any) As Long
Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal wndrpcPrev As Long, ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const SWP_NOACTIVATE As Long = &H10
Public Const SWP_DRAWFRAME As Long = &H20
Public Const SWP_NOZORDER As Long = &H4
Public Const SWP_NOSIZE As Long = &H1
Public Const SWP_NOMOVE As Long = &H2

Public Const WM_PAINT As Long = &HF

Public Const GWL_WNDPROC As Long = -4

Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" _
                    (ByVal dwExStyle As Long, _
                     ByVal lpClassName As String, _
                     ByVal lpWindowName As String, _
                     ByVal dwStyle As Long, _
                     ByVal X As Long, ByVal Y As Long, _
                     ByVal nWidth As Long, ByVal nHeight As Long, _
                     ByVal hWndParent As Long, _
                     ByVal hMenu As Long, _
                     ByVal hInstance As Long, lpParam As Any) As Long
Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Declare Function GetFocus Lib "user32" () As Long

Declare Function DrawEdge Lib "user32" (ByVal hDC As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Long
Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As Any) As Long
Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As Any) As Long

Public Const EDGE_SUNKEN As Long = &HA
Public Const EDGE_RAISED As Long = &H5
Public Const BF_RECT As Long = &HF
Public Const SW_SHOW As Long = 5

Public Const WS_CHILD As Long = &H40000000
Public Const WS_CLIPSIBLINGS As Long = &H4000000
Public Const WS_TABSTOP As Long = &H10000
Public Const WS_EX_CLIENTEDGE As Long = &H200

Public Const WM_CTLCOLOREDIT  As Long = &H133
Public Const WM_SETFONT As Long = &H30
Public Const WM_SETFOCUS As Long = &H7
Public Const WM_KEYDOWN As Long = &H100
Public Const WM_MOUSEACTIVATE As Long = &H21
Public Const MA_NOACTIVATE As Long = 3