易语言窗口单元信息模块源码 [db:版本]

窗口单元信息模块易语言源码

系统结构:GetUnitBasicInfo,CreateFunctionalControl,功能函数窗口消息预处理,CreateContainerControl,WinProc,容器窗口消息预处理,转发消息至容器窗口,NotifyEvent,NotifySys,保存窗口单元信息,取结构地址_hUnit,取结构地址_hWnd,取结构地址_hChild,NotifyDeleteUnit,CreateWindowEx,LoadImage,DeleteObject,SetWindowLong,GetWindowLong,GetObject,CopyImage,CreateCompatibleDC,GetSysColorBrush,FillRect,SelectObject,BitBlt,DeleteDC,SendMessage,CreateBitmap,CallWindowProc,SetWindowPos,GetKeyState,CopyMemory,BeginPaint,EndPaint,SetProp,GetProp,GetStockObject,GetParent,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ GetUnitBasicInfo
| |
| |------ CreateFunctionalControl
| |
| |------ 功能函数窗口消息预处理
| |
| |------ CreateContainerControl
| |
| |------ WinProc
| |
| |------ 容器窗口消息预处理
| |
| |------ 转发消息至容器窗口
| |
| |------ NotifyEvent
| |
| |------ NotifySys
| |
| |------ 保存窗口单元信息
| |
| |------ 取结构地址_hUnit
| |
| |------ 取结构地址_hWnd
| |
| |------ 取结构地址_hChild
| |
| |------ NotifyDeleteUnit
| |
| |
======调用的Dll
| |
| |---[dll]------ CreateWindowEx
| |
| |---[dll]------ LoadImage
| |
| |---[dll]------ DeleteObject
| |
| |---[dll]------ SetWindowLong
| |
| |---[dll]------ GetWindowLong
| |
| |---[dll]------ GetObject
| |
| |---[dll]------ CopyImage
| |
| |---[dll]------ CreateCompatibleDC
| |
| |---[dll]------ GetSysColorBrush
| |
| |---[dll]------ FillRect
| |
| |---[dll]------ SelectObject
| |
| |---[dll]------ BitBlt
| |
| |---[dll]------ DeleteDC
| |
| |---[dll]------ SendMessage
| |
| |---[dll]------ CreateBitmap
| |
| |---[dll]------ CallWindowProc
| |
| |---[dll]------ SetWindowPos
| |
| |---[dll]------ GetKeyState
| |
| |---[dll]------ CopyMemory
| |
| |---[dll]------ BeginPaint
| |
| |---[dll]------ EndPaint
| |
| |---[dll]------ SetProp
| |
| |---[dll]------ GetProp
| |
| |---[dll]------ GetStockObject
| |
| |---[dll]------ GetParent

调用的DLL命令:

.DLL命令 CreateWindowEx, 整数型, "user32.dll", "CreateWindowExA"
.参数 dwExStyle, 整数型
.参数 lpClassName, 文本型
.参数 lpWindowName, 文本型
.参数 dwStyle, 整数型
.参数 X, 整数型
.参数 Y, 整数型
.参数 nWidth, 整数型
.参数 nHeight, 整数型
.参数 hWndParent, 整数型
.参数 uID, 整数型
.参数 hInstance, 整数型
.参数 lpParam, 整数型

.DLL命令 LoadImage, 整数型, "user32", "LoadImageA"
.参数 hInst, 整数型
.参数 lpsz, 整数型
.参数 un1, 整数型
.参数 n1, 整数型
.参数 n2, 整数型
.参数 un2, 整数型

.DLL命令 DeleteObject, 整数型, "gdi32", "DeleteObject"
.参数 hObject, 整数型, ,

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA"
.参数 hWnd, 整数型
.参数 nIndex, 整数型
.参数 dwNewLong, 整数型

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA"
.参数 hwnd, 整数型
.参数 nIndex, 整数型

.DLL命令 GetObject, 整数型, "gdi32", "GetObjectA"
.参数 hObject, 整数型
.参数 nCount, 整数型
.参数 lpObject, BITMAP

.DLL命令 CopyImage, 整数型
.参数 hImage, 整数型
.参数 uType, 整数型
.参数 cxDesired, 整数型
.参数 cyDesired, 整数型
.参数 fuFlags, 整数型

.DLL命令 CreateCompatibleDC, 整数型, , "CreateCompatibleDC"
.参数 hdc, 整数型

.DLL命令 GetSysColorBrush, 整数型, "user32", "GetSysColorBrush"
.参数 nIndex, 整数型

.DLL命令 FillRect, 整数型, "user32", "FillRect"
.参数 hdc, 整数型
.参数 lpRect, RECT, 传址
.参数 hBrush, 整数型

.DLL命令 SelectObject, 整数型, , "SelectObject"
.参数 hdc, 整数型
.参数 hgdiobj, 整数型

.DLL命令 BitBlt, 整数型, , "BitBlt"
.参数 hdcDest, 整数型
.参数 nXDest, 整数型
.参数 nYDest, 整数型
.参数 nWidth, 整数型
.参数 nHeight, 整数型
.参数 hdcSrc, 整数型
.参数 nXSrc, 整数型
.参数 nYSrc, 整数型
.参数 dwRop, 整数型

.DLL命令 DeleteDC, 整数型, "gdi32", "DeleteDC"
.参数 设备描述句柄, 整数型

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA"
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.DLL命令 CreateBitmap, 整数型, "gdi32", "CreateBitmap"
.参数 nWidth, 整数型
.参数 nHeight, 整数型
.参数 nPlanes, 整数型
.参数 nBitCount, 整数型
.参数 lpBits, 整数型

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA"
.参数 lpPrevWndFunc, 整数型
.参数 hWnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.DLL命令 SetWindowPos, 整数型, "user32", "SetWindowPos"
.参数 hwnd, 整数型
.参数 hWndInsertAfter, 整数型
.参数 x, 整数型
.参数 y, 整数型
.参数 cx, 整数型
.参数 cy, 整数型
.参数 wFlags, 整数型

.DLL命令 GetKeyState, 短整数型, "user32", "GetKeyState"
.参数 nVirtKey, 整数型

.DLL命令 CopyMemory, , "kernel32", "RtlMoveMemory"
.参数 lpBuffer, 整数型, 传址
.参数 Source, 整数型
.参数 Length, 整数型

.DLL命令 BeginPaint, 整数型, "user32", "BeginPaint"
.参数 hwnd, 整数型
.参数 lpPaint, PAINTSTRUCT, 传址

.DLL命令 EndPaint, 整数型, "user32", "EndPaint"
.参数 hwnd, 整数型
.参数 lpPaint, PAINTSTRUCT, 传址

.DLL命令 SetProp, 整数型, "user32", "SetPropA"
.参数 hwnd, 整数型
.参数 lpString, 文本型
.参数 hData, 整数型

.DLL命令 GetProp, 整数型, "user32", "GetPropA"
.参数 hwnd, 整数型
.参数 lpString, 文本型

.DLL命令 GetStockObject, 整数型, "gdi32", "GetStockObject"
.参数 nIndex, 整数型

.DLL命令 GetParent, 整数型, "user32", "GetParent"
.参数 hwnd, 整数型