易语言MDI多页面窗口源码

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

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _新建_被选择
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ 子窗口尺寸被改变
           |  |
           |  |------ 子窗口可否被关闭
           |  |
           |  |------ 子窗口将被销毁
           |  |
           |  |------ 子窗口激活状态被改变
           |  |
           |  |------ 子窗口命令按钮事件
           |  |
           |  |------ _层叠_被选择
           |  |
           |  |------ _水平平铺_被选择
           |  |
           |  |------ _垂直平铺_被选择
           |  |
           |  |------ _排列图标_被选择
           |  |
           |  |------ _前一个_被选择
           |  |
           |  |------ _下一个_被选择
           |  |
           |  |------ _最大化_被选择
           |  |
           |  |------ _最小化_被选择
           |  |
           |  |------ _恢复_被选择
           |  |
           |  |------ _关闭_被选择
           |  |
           |  |------ _退出_被选择
           |  |
           |  |------ _更改标题_被选择
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ _载入窗口1_被选择
           |  |
           |  |------ _载入窗口2_被选择
           |  |
           |  |
======MDI窗口类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建MDI客户区
           |  |
           |  |------ 创建MDI子窗口
           |  |
           |  |------ 设置为子窗口
           |  |
           |  |------ MDI客户区移动
           |  |
           |  |------ 取MDI客户区尺寸
           |  |
           |  |------ 排列图标
           |  |
           |  |------ 最大化活动子窗口
           |  |
           |  |------ 最小化活动子窗口
           |  |
           |  |------ 取子窗口数量
           |  |
           |  |------ 恢复活动子窗口
           |  |
           |  |------ 关闭活动子窗口
           |  |
           |  |------ 层叠窗口
           |  |
           |  |------ 垂直平铺窗口
           |  |
           |  |------ 水平平铺窗口
           |  |
           |  |------ 前一个窗口
           |  |
           |  |------ 下一个窗口
           |  |
           |  |------ 取活动子窗口标题
           |  |
           |  |------ 置活动子窗口标题
           |  |
           |  |------ 取活动子窗口句柄
           |  |
           |  |------ 置活动子窗口
           |  |
           |  |------ 取活动子窗口尺寸
           |  |
           |  |------ 置活动窗口组件
           |  |
           |  |
======MDI接口程序集
           |  |
           |  |------ MDI客户区函数回调子程序
           |  |
           |  |------ 子窗口函数回调子程序
           |  |
           |  |------ 主窗口函数回调子程序
           |  |
           |  |------ 取当前活动窗口句柄子程序
           |  |
           |  |------ 执行整数型子程序_
           |  |
           |  |------ 执行逻辑型型子程序_
           |  |
           |  |------ 释放字节流
           |  |
           |  |------ 载入背景图
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _复合管_被选择
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _日期框1_选择日期被改变
           |  |
           |  |------ _颜色选择器1_颜色被改变
           |  |
           |  |------ _窗口1_鼠标左键被放开
           |  |
           |  |
======窗口程序集3
           |  |
           |  |------ _窗口2_尺寸被改变
           |  |
           |  |------ _图片框1_鼠标左键被放开
           |  |
           |  |
======调用的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]------   设置窗口信息1_
           |  |
           |  |---[dll]------   取得窗口信息_
           |  |
           |  |---[dll]------   GdiplusStartup
           |  |
           |  |---[dll]------   GdiplusShutdown
           |  |
           |  |---[dll]------   GdipDeleteGraphics
           |  |
           |  |---[dll]------   GdipCreateFromHWND
           |  |
           |  |---[dll]------   GlobalFree
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   CreateStreamOnHGlobal
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   GdipLoadImageFromStream
           |  |
           |  |---[dll]------   GdipDisposeImage
           |  |
           |  |---[dll]------   GdipDrawImageRect

调用的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命令 设置窗口信息1_, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 窗口句柄, 整数型, , hwnd，欲为其取得信息的窗口的句柄
    .参数 窗口信息值, 整数型, , nIndex，请参考GetWindowLong函数的nIndex参数的说明
    .参数 窗口信息新值, 整数型, , dwNewLong，由nIndex指定的窗口信息的新值

.DLL命令 取得窗口信息_, 整数型, "user32", "GetWindowLongA", , 从指定窗口的结构中取得信息  由nIndex决定。零表示出错。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲为其获取信息的窗口的句柄
    .参数 属性, 整数型, , 欲取回的信息，可以是下述任何一个常数：;GWL_EXSTYLE：扩展窗口样式;GWL_STYLE：窗口样式;GWL_WNDPROC：该窗口的窗口函数的地址;GWL_HINSTANCE：拥有窗口的实例的句柄;GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值;GWL_ID：对话框中一个子窗口的标识符;GWL_USERDATA：含义由应用程序规定;DWL_DLGPROC：这个窗口的对话框函数地址;DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值;DWL_USER：含义由应用程序规定;

.DLL命令 GdiplusStartup, 整数型, "GdiPlus.dll", "GdiplusStartup"
    .参数 token, 整数型, 传址
    .参数 inputbuf, GdiplusStartupInput
    .参数 outputbuf, 整数型

.DLL命令 GdiplusShutdown, 整数型, "GdiPlus.dll", "GdiplusShutdown"
    .参数 token, 整数型

.DLL命令 GdipDeleteGraphics, 整数型, "GdiPlus.dll", "GdipDeleteGraphics"
    .参数 graphics, 整数型

.DLL命令 GdipCreateFromHWND, 整数型, "GdiPlus.dll", "GdipCreateFromHWND"
    .参数 hwnd, 整数型
    .参数 graphics, 整数型, 传址

.DLL命令 GlobalFree, 整数型, , "GlobalFree"
    .参数 hMem, 整数型

.DLL命令 GlobalAlloc, 整数型, , "GlobalAlloc"
    .参数 wFlags, 整数型
    .参数 dwBytes, 整数型

.DLL命令 CreateStreamOnHGlobal, 整数型, "Ole32.dll", "CreateStreamOnHGlobal"
    .参数 hGlobal, 整数型
    .参数 fDeleteOnRelease, 整数型
    .参数 ppstm, 整数型, 传址

.DLL命令 GlobalLock, 整数型, , "GlobalLock"
    .参数 hMem, 整数型

.DLL命令 GlobalUnlock, 整数型, , "GlobalUnlock"
    .参数 hMem, 整数型

.DLL命令 GdipLoadImageFromStream, 整数型, "GdiPlus.dll", "GdipLoadImageFromStream"
    .参数 stream, 整数型
    .参数 image, 整数型, 传址

.DLL命令 GdipDisposeImage, 整数型, "GdiPlus.dll", "GdipDisposeImage"
    .参数 image, 整数型

.DLL命令 GdipDrawImageRect, 整数型, "GdiPlus.dll", "GdipDrawImageRect"
    .参数 graphics, 整数型
    .参数 image, 整数型
    .参数 x, 小数型
    .参数 y, 小数型
    .参数 width, 小数型
    .参数 height, 小数型