模块名称：MDI操作
作者：梦优勿扰
版本：1.0
------------------------------
.版本 2
.子程序 触发事件, 整数型, 公开, 执行一个子程序 Call
.参数 函数地址, 子程序指针
.参数 参数一, 整数型
.参数 参数二, 整数型
.数据类型 窗口结构_, 公开
.成员 结构大小, 整数型
.成员 窗口类型, 整数型
.成员 回调指针, 子程序指针
.成员 附加类, 整数型
.成员 附加窗口, 整数型
.成员 实例句柄, 整数型
.成员 图标句柄, 整数型
.成员 鼠标指针, 整数型
.成员 背景, 整数型
.成员 菜单, 整数型
.成员 类名, 文本型
.成员 主窗口图标句柄, 整数型
.数据类型 矩形结构_, 公开, RECT
.成员 左边, 整数型, , , Left
.成员 顶边, 整数型, , , Top
.成员 右边, 整数型, , , Right
.成员 底边, 整数型, , , Bottom
.数据类型 客户区菜单结构_, 公开
.成员 菜单句柄, 整数型
.成员 菜单ID, 整数型
.数据类型 外部窗口结构_, 公开
.成员 子窗口句柄, 整数型
.成员 外部窗口, 窗口
.数据类型 子窗口结构_, 公开
.成员 类名, 文本型, , , 作为MDI自窗口模板的窗口类的地址
.成员 窗口标题, 文本型
.成员 实例句柄, 整数型
.成员 水平坐标, 整数型
.成员 垂直坐标, 整数型
.成员 宽度, 整数型
.成员 高度, 整数型
.成员 类型, 整数型
.成员 参数, 整数型, , , 一个应用程序定义的32位值. 这是在MDI窗口中共享值的一种方法. 如果你不需要它, 将它设为NULL.
.程序集 MDI操作类, , 公开
.子程序 MDI客户区移动, , 公开, 此命令用于移动客户区
.参数 左边, 整数型, 可空
.参数 顶边, 整数型, 可空
.参数 宽度, 整数型, 可空
.参数 高度, 整数型, 可空
.子程序 层叠窗口, 整数型, 公开, 层叠所有的MDI子窗口。，成功为非零值
.子程序 创建MDI客户区, 整数型, 公开, 成功返回MDI客户区的句柄，失败返回0
.参数 主窗口句柄, 整数型, , 你要设置为MDI父窗口的窗口句柄
.参数 客户区左边, 整数型, 可空, 默认为0
.参数 客户区顶边, 整数型, 可空, 默认为0
.参数 客户区宽度, 整数型, 可空, 默认为主窗口宽度
.参数 客户区高度, 整数型, 可空, 默认为主窗口高度
.参数 图标标识, 整数型, 可空, 子窗口的图标,如果图标标识符无效则使用默认图标
.参数 是否有滚动条, 逻辑型, 可空, 为假或空则没有默认为没有
.参数 菜单序号, 整数型, 可空, 为空或零，则是第一个菜单，在主菜单第几个菜单项加入文件列表菜单，从0开始。比如主菜单有“文件”、“编辑”、“窗口”和“帮助”菜单项，欲加入“窗口”菜单项，则数值设为 2。
.参数 菜单起始索引, 整数型, 可空, 菜单序号的开始位置 默认50000
.参数 子窗口是否独立线程运行, 逻辑型, 可空, 非独立线程会加快子窗口的运行速度。默认为假
.参数 子窗口可否被关闭事件, 子程序指针, 可空, 在窗口被关闭之前产生此事件，用于询问窗口可否被关闭。如果返回假则不允许窗口被关闭，返回真或不返回值允许关闭。
.参数 子窗口将被销毁事件, 子程序指针, 可空, 当窗口将被销毁前产生此事件。窗口被销毁后所有对此窗口及其内部组件的修改都将被作废。如果用复制组件保存的组件数组请自行删除。
.参数 子窗口尺寸被改变事件, 子程序指针, 可空, 当窗口的尺寸被改变后产生此事件。
.参数 子窗口激活状态被改变事件, 子程序指针, 可空, 但子窗口的激活状态被改变是返回两个子窗口句柄参数，参数一=前一个子窗口句柄，参数二=当前活动子窗口句柄。
.参数 子窗口系统按钮命令事件, 子程序指针, 可空, 关闭钮 = 4；z大化钮 =2；最小化钮：1。恢复窗口=3
.子程序 创建MDI子窗口, 整数型, 公开, 返回MDI子窗口句柄
.参数 窗口标题, 文本型, 可空
.参数 位置, 整数型, 可空, 注明：z大化=3
.子程序 垂直平铺窗口, 整数型, 公开, 垂直平铺所有的MDI子窗口。但子窗口平均充满客户区时无效，成功为非零值
.子程序 关闭活动子窗口, 整数型, 公开, 关闭销毁当前激活的MDI子窗口，没有窗口可否关闭事件。，成功为非零值
.子程序 关闭子窗口, , 公开
.参数 句柄, 整数型
.子程序 恢复活动子窗口, , 公开, 恢复当前激活的最小化或z大化MDI子窗口
.子程序 激活子窗口, 整数型, 公开, 成功为非零值
.参数 句柄, 整数型
.参数 位置, 整数型, 可空, 0 隐藏取消激活 1 还原激活 2 最小化激活 3 z大化激活 4 还原 6 最小化取消激活 7 最小化 9 还原激活。
.子程序 排列图标, 整数型, 公开, 全部最小化子窗口重新排列，成功为非零值
.子程序 前一个窗口, 整数型, 公开, 激活的前一个MDI子窗口，成功为非零值
.子程序 取MDI客户区尺寸, 逻辑型, 公开, 不含窗口标题和边界，成功为真，不成功为假，成功返回真
.参数 宽度, 整数型, 参考 可空
.参数 高度, 整数型, 参考 可空
.子程序 取活动子窗口标题, 文本型, 公开, 返回当前活动窗口的标题
.子程序 取活动子窗口尺寸, 逻辑型, 公开, 不含标题和边界，成功为真，否则为假
.参数 宽度, 整数型, 参考 可空
.参数 高度, 整数型, 参考 可空
.子程序 取活动子窗口句柄, 整数型, 公开, 返回活动窗口句柄，成功为非零值
.子程序 取子窗口尺寸, 逻辑型, 公开, 不含标题和边界，成功为真，否则为假
.参数 子窗口句柄, 整数型
.参数 宽度, 整数型, 参考 可空
.参数 高度, 整数型, 参考 可空
.子程序 取子窗口数量, 整数型, 公开
.子程序 取子窗口状态, 整数型, 公开, 关闭钮 = 16；z大化钮 = 3；最小化钮 = 2；恢复窗口 = 0；下一个 = 5
.子程序 设置为子窗口, 整数型, 公开, 要将其他已有的窗口设置为子窗口，请将窗口可视设置为假，这样可避免闪烁。
.参数 窗口, 窗口
.参数 位置, 整数型, 可空
.子程序 水平平铺窗口, 整数型, 公开, 水平平铺所有的MDI子窗口。但子窗口平均充满客户区时无效，成功为非零值
.子程序 下一个窗口, 整数型, 公开, 激活的下一个MDI子窗口，成功为非零值
.子程序 置活动窗口组件, 逻辑型, 公开, 成功为真，否则为假
.参数 组件句柄, 整数型
.参数 左边, 整数型, 可空, 默认为0
.参数 顶边, 整数型, 可空, 默认为0
.参数 宽度, 整数型, 可空, 默认为子窗口客户区宽度
.参数 高度, 整数型, 可空, 默认为子窗口客户区高度
.参数 是否重画, 整数型, 可空, 0或空为不重画，默认为不重画
.参数 是否显示, 逻辑型, 可空
.子程序 置活动子窗口标题, 整数型, 公开, 非零为失败
.参数 标题, 文本型, , 要进行设置的支持库标题
.子程序 置子窗口标题, 整数型, 公开, 非零为失败
.参数 子窗口句柄, 整数型
.参数 标题, 文本型, , 要进行设置的支持库标题
.子程序 z大化活动子窗口, 整数型, 公开, z大化当前子窗口，成功为非零值
.子程序 最小化活动子窗口, 整数型, 公开, 最小化当前子窗口，成功为非零值
18475491832[下载].rar
|
收藏
