易语言MDI操作类模块源码

系统结构:创建MDI客户区,创建MDI子窗口,设置为子窗口,MDI客户区移动,取MDI客户区尺寸,排列图标,最大化活动子窗口,最小化活动子窗口,取子窗口数量,恢复活动子窗口,关闭活动子窗口,层叠窗口,垂直平铺窗口,水平平铺窗口,前一个窗口,下一个窗口,取活动子窗口标题,置活动子窗口标题,置子窗口标题,取活动子窗口句柄,激活子窗口,取子窗口状态,关闭子窗口,取活动子窗口尺寸,取子窗口尺寸,置活动窗口组件,子窗口_将被销毁,子窗口_尺寸被改变,子窗口_激活状态被改变,子窗口_命令按钮事件,MDI窗口函数回调子程序,子窗口函数回调子程序,取当前活动窗口句柄子程序,触发事件,取实例句柄_,取窗口矩形_,创建MDI客户区_,显示窗口_,设置窗口信息_,呼叫窗口函数地址_,移动窗口_,载入模块,发送消息_,注册窗口类_,载入鼠标指针_,发送MDI消息_,缺省子窗口函数_,最小化窗口_,取窗口标题_,判断窗口最小化_,判断窗口最大化_,获取菜单,获取子菜单,调用整数型子程序地址_,调用逻辑型子程序地址_,清除菜单_,取客户区矩形_,置父窗口_,系统关于对话框_,激活指定的窗口_,设置窗口标题_,缺省MDI框架窗口消息_,创建MDI子窗口_,创建注册表项_,枚举注册项值_,关闭注册表项_,取活动窗口句柄_,取祖宗窗口_,创建窗口_,载入图标_,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======MDI操作类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建MDI客户区
           |  |
           |  |------ 创建MDI子窗口
           |  |
           |  |------ 设置为子窗口
           |  |
           |  |------ MDI客户区移动
           |  |
           |  |------ 取MDI客户区尺寸
           |  |
           |  |------ 排列图标
           |  |
           |  |------ 最大化活动子窗口
           |  |
           |  |------ 最小化活动子窗口
           |  |
           |  |------ 取子窗口数量
           |  |
           |  |------ 恢复活动子窗口
           |  |
           |  |------ 关闭活动子窗口
           |  |
           |  |------ 层叠窗口
           |  |
           |  |------ 垂直平铺窗口
           |  |
           |  |------ 水平平铺窗口
           |  |
           |  |------ 前一个窗口
           |  |
           |  |------ 下一个窗口
           |  |
           |  |------ 取活动子窗口标题
           |  |
           |  |------ 置活动子窗口标题
           |  |
           |  |------ 置子窗口标题
           |  |
           |  |------ 取活动子窗口句柄
           |  |
           |  |------ 激活子窗口
           |  |
           |  |------ 取子窗口状态
           |  |
           |  |------ 关闭子窗口
           |  |
           |  |------ 取活动子窗口尺寸
           |  |
           |  |------ 取子窗口尺寸
           |  |
           |  |------ 置活动窗口组件
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ 子窗口_将被销毁
           |  |
           |  |------ 子窗口_尺寸被改变
           |  |
           |  |------ 子窗口_激活状态被改变
           |  |
           |  |------ 子窗口_命令按钮事件
           |  |
           |  |------ _新建_被选择
           |  |
           |  |------ _窗口1_尺寸被改变
           |  |
           |  |------ _当前窗口_被选择
           |  |
           |  |
======程序集2
           |  |
           |  |------ MDI窗口函数回调子程序
           |  |
           |  |------ 子窗口函数回调子程序
           |  |
           |  |------ 取当前活动窗口句柄子程序
           |  |
           |  |------ 触发事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取实例句柄_
           |  |
           |  |---[dll]------   取窗口矩形_
           |  |
           |  |---[dll]------   创建MDI客户区_
           |  |
           |  |---[dll]------   显示窗口_
           |  |
           |  |---[dll]------   设置窗口信息_
           |  |
           |  |---[dll]------   呼叫窗口函数地址_
           |  |
           |  |---[dll]------   移动窗口_
           |  |
           |  |---[dll]------   载入模块
           |  |
           |  |---[dll]------   发送消息_
           |  |
           |  |---[dll]------   注册窗口类_
           |  |
           |  |---[dll]------   载入鼠标指针_
           |  |
           |  |---[dll]------   发送MDI消息_
           |  |
           |  |---[dll]------   缺省子窗口函数_
           |  |
           |  |---[dll]------   最小化窗口_
           |  |
           |  |---[dll]------   取窗口标题_
           |  |
           |  |---[dll]------   判断窗口最小化_
           |  |
           |  |---[dll]------   判断窗口最大化_
           |  |
           |  |---[dll]------   获取菜单
           |  |
           |  |---[dll]------   获取子菜单
           |  |
           |  |---[dll]------   调用整数型子程序地址_
           |  |
           |  |---[dll]------   调用逻辑型子程序地址_
           |  |
           |  |---[dll]------   清除菜单_
           |  |
           |  |---[dll]------   取客户区矩形_
           |  |
           |  |---[dll]------   置父窗口_
           |  |
           |  |---[dll]------   系统关于对话框_
           |  |
           |  |---[dll]------   激活指定的窗口_
           |  |
           |  |---[dll]------   设置窗口标题_
           |  |
           |  |---[dll]------   缺省MDI框架窗口消息_
           |  |
           |  |---[dll]------   创建MDI子窗口_
           |  |
           |  |---[dll]------   创建注册表项_
           |  |
           |  |---[dll]------   枚举注册项值_
           |  |
           |  |---[dll]------   关闭注册表项_
           |  |
           |  |---[dll]------   取活动窗口句柄_
           |  |
           |  |---[dll]------   取祖宗窗口_
           |  |
           |  |---[dll]------   _控制窗口状态
           |  |
           |  |---[dll]------   _窗口激活
           |  |
           |  |---[dll]------   创建窗口_
           |  |
           |  |---[dll]------   载入图标_

调用的DLL命令:

.DLL命令 取实例句柄_, 整数型, "kernel32.dll", "GetModuleHandleA", , 获取一个应用程序或动态链接库的模块句柄  如执行成功成功，则返回模块句柄。零表示失败。会设置GetLastError
    .参数 模块名, 整数型, , lpModuleName，指定模块名，这通常是与模块的文件名相同的一个名字。例如，NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD

.DLL命令 取窗口矩形_, 整数型, "user32", "GetWindowRect"
    .参数 窗口句柄, 整数型
    .参数 矩形区域, 矩形结构_

.DLL命令 创建MDI客户区_, 整数型, "user32.dll", "CreateWindowExA"
    .参数 扩展风格, 整数型
    .参数 类名, 文本型, , 刚才注册的类名
    .参数 窗口标题, 整数型
    .参数 风格, 整数型
    .参数 屏幕横坐标, 整数型
    .参数 屏幕纵坐标, 整数型
    .参数 宽度, 整数型
    .参数 高度, 整数型
    .参数 父窗口句柄, 整数型, , 没有就写0
    .参数 菜单句柄, 整数型
    .参数 模块句柄, 整数型
    .参数 参数, 客户区菜单结构_

.DLL命令 显示窗口_, 整数型, "user32.dll", "ShowWindow"
    .参数 窗口句柄, 整数型
    .参数 可视性类型, 整数型, , 1为可视，0=不可视

.DLL命令 设置窗口信息_, 子程序指针, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 窗口句柄, 整数型, , hwnd，欲为其取得信息的窗口的句柄
    .参数 窗口信息值, 整数型, , nIndex，请参考GetWindowLong函数的nIndex参数的说明
    .参数 窗口信息新值, 子程序指针, , dwNewLong，由nIndex指定的窗口信息的新值

.DLL命令 呼叫窗口函数地址_, 整数型, "user32.dll", "CallWindowProcA"
    .参数 前一窗口函数地址, 子程序指针
    .参数 窗口句柄, 整数型
    .参数 消息值, 整数型
    .参数 附加参数1, 整数型
    .参数 附加参数2, 整数型

.DLL命令 移动窗口_, 整数型, "user32.dll", "MoveWindow"
    .参数 窗口句柄, 整数型, , hwnd，欲移动窗口的句柄
    .参数 左侧位置, 整数型, , x，窗口新的左侧位置
    .参数 顶部位置, 整数型, , y，窗口新的顶部位置
    .参数 新宽度, 整数型, , nWidth，窗口的新宽度
    .参数 高宽度, 整数型, , nHeight，窗口的高宽度
    .参数 是否重画, 整数型, , bRepaint，如窗口此时应重画，则设为TRUE（非零）

.DLL命令 载入模块, 整数型, , "LoadLibraryA"
    .参数 模块名, 文本型

.DLL命令 发送消息_, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 整数型, , 具体取决于消息;

.DLL命令 注册窗口类_, 整数型, , "RegisterClassExA"
    .参数 lm, 窗口结构_

.DLL命令 载入鼠标指针_, 整数型, "user32.dll", "LoadCursorA", , 从指定的模块或应用程序实例中载入一个鼠标指针
    .参数 实例句柄, 整数型, , hInstance,参见相关帮助
    .参数 鼠标指针标识, , , lpCursorName,参见相关帮助

.DLL命令 发送MDI消息_, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 子窗口结构_, , 具体取决于消息;

.DLL命令 缺省子窗口函数_, 整数型, , "DefMDIChildProcA"
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wparam, 整数型
    .参数 lparam, 整数型

.DLL命令 最小化窗口_, 整数型, "user32.dll", "CloseWindow", , 非0表示成功，0表示失败
    .参数 窗口句柄, 整数型, , hwnd，欲最小化窗口的窗口句柄

.DLL命令 取窗口标题_, 整数型, "user32", "GetWindowTextA", , 取得一个窗体的标题（caption）文字，或者一个控件的内容（在vb里使用：使用vb窗体或控件的caption或text属性）  复制到lpString的字串长度；不包括空中止字符。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲获取文字的那个窗口的句柄
    .参数 缓冲区, 文本型, , 预定义的一个缓冲区，至少有cch+1个字符大小；随同窗口文字载入
    .参数 缓冲尺寸, 整数型, , lp缓冲区的长度;

.DLL命令 判断窗口最小化_, 逻辑型, "user32.dll", "IsIconic", , 判断窗口是否已最小化
    .参数 窗口句柄, 整数型, , hwnd,待检测窗口的句柄

.DLL命令 判断窗口最大化_, 逻辑型, "user32.dll", "IsZoomed", , 判断窗口是否最大化
    .参数 窗口句柄, 整数型, , hwnd,欲测试的窗口的句柄

.DLL命令 获取菜单, 整数型, "user32.dll", "GetMenu"
    .参数 hwnd, 整数型

.DLL命令 获取子菜单, 整数型, "user32.dll", "GetSubMenu"
    .参数 hmenu, 整数型
    .参数 pos, 整数型

.DLL命令 调用整数型子程序地址_, 整数型, "user32", "CallWindowProcA", , 可以更改成别的常规数据类型，如：整数
    .参数 DefWindowProc, 字节集
    .参数 hWnd, 子程序指针
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 调用逻辑型子程序地址_, 逻辑型, "user32", "CallWindowProcA", , 可以更改成别的常规数据类型，如：整数
    .参数 DefWindowProc, 字节集
    .参数 hWnd, 子程序指针
    .参数 Msg, 逻辑型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 清除菜单_, 整数型, "user32.dll", "DestroyMenu"
    .参数 预删除的菜单, 整数型, , hMenu,欲删除菜单的句柄

.DLL命令 取客户区矩形_, 整数型, "user32", "GetClientRect"
    .参数 窗口句柄, 整数型
    .参数 矩形区域, 矩形结构_

.DLL命令 置父窗口_, 逻辑型, "user32", "SetParent", , 指定一个窗口的新父（在vb里使用：利
    .参数 子窗口句柄, 整数型, , 子窗口的句柄
    .参数 父窗口句柄, 整数型, , hWndChild的新父;

.DLL命令 系统关于对话框_, 整数型, , "ShellAboutA"
    .参数 窗口句柄, 整数型
    .参数 应用程序标题, 文本型
    .参数 其他信息, 文本型
    .参数 图标句柄, 整数型

.DLL命令 激活指定的窗口_, 整数型, "user32", "SetActiveWindow", , 激活指定的窗口　前一个活动窗口的句柄
    .参数 句柄, 整数型, , 待激活窗口的句柄;  

.DLL命令 设置窗口标题_, 整数型, "user32", "SetWindowTextA"
    .参数 窗口句柄, 整数型
    .参数 窗口标题, 文本型

.DLL命令 缺省MDI框架窗口消息_, 整数型, "user32", "DefFrameProcA", , 缺省MDI框架窗口消息进程　
    .参数 hwnd, 整数型
    .参数 hWndMDIClient, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 创建MDI子窗口_, 整数型, "user32", "CreateMDIWindowA", , 建立新的MDI窗口　
    .参数 类名, 文本型
    .参数 窗口标题, 文本型
    .参数 类型, 整数型
    .参数 水平坐标, 整数型
    .参数 垂直坐标, 整数型
    .参数 宽度, 整数型
    .参数 高度, 整数型
    .参数 父窗口句柄, 整数型
    .参数 实例句柄, 整数型
    .参数 参数, 整数型

.DLL命令 创建注册表项_, 整数型, "advapi32", "RegCreateKeyA", , RegCreateKey，在指定的项下创建一个新项。如指定的项已经存在，那么函数会打开现有的项
    .参数 项句柄, 整数型, , hKey，Long，要打开项的句柄，或者一个标准项名
    .参数 项文本, 文本型, , lpSubKey，String，欲创建的新子项。可同时创建多个项，只需用反斜杠将它们分隔开即可。例如level1\level2\newkey
    .参数 返回项句柄, 整数型, 传址, phkResult，Long，指定一个变量，用于装载新子项的句柄

.DLL命令 枚举注册项值_, 整数型, "Advapi32.dll", "RegEnumValueA", , 枚举指定项的值
    .参数 标准项名或句柄, 整数型, , 一个已打开项的句柄，或者指定一个标准项名
    .参数 项索引, 整数型, , 欲获取值的索引。注意第一个值的索引编号为零
    .参数 值名称, 文本型, 传址, 用于装载位于指定索引处值名的一个缓冲区
    .参数 值名称长度, 整数型, 传址, 用于装载lpValueName缓冲区长度的一个变量。一旦返回，它会设为实际载入缓冲区的字符数量
    .参数 保留参数, 整数型, , 未用；设为零
    .参数 类型, 整数型, 传址, 用于装载值的类型代码的变量
    .参数 数据缓冲区, 文本型, 传址, 用于装载值数据的一个缓冲区
    .参数 数据缓冲区长度, 整数型, 传址, 用于装载lpData缓冲区长度的一个变量。一旦返回，它会设为实际载入缓冲区的字符数量

.DLL命令 关闭注册表项_, 整数型, "advapi32.dll", "RegCloseKey", , 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 关闭项句柄, 整数型, , hKey，要关闭的项句柄

.DLL命令 取活动窗口句柄_, 整数型, "user32", "GetActiveWindow", , 获得活动窗口的句柄

.DLL命令 取祖宗窗口_, 整数型, "user32.dll", "GetAncestor"
    .参数 窗口句柄, 整数型
    .参数 标志, 整数型, , gaFlags

.DLL命令 _控制窗口状态, 整数型, , "ShowWindow", , 控制窗口的状态（在vb里使用：针对vb窗体及控件，请使用对应的vb属性） 成功:返回TRUE（非零），失败:返回FALSE（零）
    .参数 hwnd, 整数型, , 窗口句柄，要向这个窗口应用由命令
    .参数 nCmdShow, 整数型, , 为窗口指定的一个命令。请用下述任何一个常数:0 隐藏取消激活  1 还原激活 2 最小化激活 3 最大化激活 4 还原 6 最小化取消激活 7 最小化 9 还原激活

.DLL命令 _窗口激活, 整数型, , "SetActiveWindow", , 激活指定的窗口，返回前一个活动窗口的句柄
    .参数 hwnd, 整数型, , 待激活窗口的句柄

.DLL命令 创建窗口_, 整数型, "user32.dll", "CreateWindowExA"
    .参数 扩展风格, 整数型
    .参数 类名, 文本型, , 刚才注册的类名
    .参数 窗口标题, 文本型
    .参数 风格, 整数型
    .参数 屏幕横坐标, 整数型
    .参数 屏幕纵坐标, 整数型
    .参数 宽度, 整数型
    .参数 高度, 整数型
    .参数 父窗口句柄, 整数型, , 没有就写0
    .参数 菜单句柄, 整数型
    .参数 模块句柄, 整数型
    .参数 参数, 整数型

.DLL命令 载入图标_, 整数型, "user32.dll", "LoadIconA", , 从指定的模块或应用程序实例中载入一个图标
    .参数 实例句柄, 整数型, , hInstance,参见相关帮助
    .参数 图标标识, , , lpIconName,作为一个字串，指定欲载入的图标资源