易语言窗口自适应改变大小模块源码 [db:版本]

易语言窗口自适应改变大小模块源码

系统结构:设置窗口自适应改变大小,内部窗口消息处理,FindWindowEx,GetWindowRect,SetWindowPos,SetWindowLong,CallWindowProc,ClipCursor,GetClientRect,GetParent,ScreenToClient,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======程序集2
| |
| |------ 设置窗口自适应改变大小
| |
| |------ 内部窗口消息处理
| |
| |
======调用的Dll
| |
| |---[dll]------ FindWindowEx
| |
| |---[dll]------ GetWindowRect
| |
| |---[dll]------ SetWindowPos
| |
| |---[dll]------ SetWindowLong
| |
| |---[dll]------ CallWindowProc
| |
| |---[dll]------ ClipCursor
| |
| |---[dll]------ GetClientRect
| |
| |---[dll]------ GetParent
| |
| |---[dll]------ ScreenToClient

调用的DLL命令:

.DLL命令 FindWindowEx, 整数型, "user32.dll", "FindWindowExA", , ,
.参数 父句柄, 整数型
.参数 子句柄, 整数型
.参数 类名, 文本型
.参数 标题, 文本型

.DLL命令 GetWindowRect, 整数型, "user32.dll", "GetWindowRect", , 公开,
.参数 hwnd, 整数型
.参数 Rect, RECT

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

.DLL命令 SetWindowLong, 整数型, "user32.dll", "SetWindowLongA", , 改变指定窗口的属性，函数也将指定的一个32位值设置在窗口的额外存储空间的指定偏移位置。
.参数 hWnd, 整数型, , 窗口句柄及间接给出的窗口所属的类。
.参数 nIndex, 整数型, , 指定将设定的大于等于0的偏移值。
.参数 dwNewLong, 子程序指针, , 指定的替换值。

.DLL命令 CallWindowProc, 整数型, "user32.dll", "CallWindowProcA", , 呼叫窗口函数地址
.参数 lpPrevWndFunc, 整数型, , 前一窗口函数地址
.参数 hWnd, 整数型, , 窗口句柄
.参数 Msg, 整数型, , 消息值
.参数 wParam, 整数型, , 附加参数1
.参数 lParam, 整数型, , 附加参数2

.DLL命令 ClipCursor, 逻辑型, "user32", "ClipCursor"
.参数 矩形, RECT

.DLL命令 GetClientRect, 逻辑型, "user32", "GetClientRect"
.参数 hWnd, 整数型, , 0
.参数 lpRect, RECT, , 0

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

.DLL命令 ScreenToClient, 逻辑型, "user32", "ScreenToClient"
.参数 hWnd, 整数型, , 0
.参数 lpPoint, 坐标, , 0