易语言 标题上添加两个按钮 代码检查
发布网友
发布时间：2023-11-04 20:43
共1个回答
热心网友
时间：2024-11-20 21:00
窗口—_启动窗口，窗口1（两个按钮“上”，“下”+ 无边框）
DLL命令—GetSystemMetrics
窗口程序集1：
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_位置被改变
移动按钮窗口 ()
.子程序 __启动窗口_创建完毕
载入 (窗口1, _启动窗口, 假)
移动按钮窗口 ()
.子程序 __启动窗口_尺寸被改变
移动按钮窗口 ()
.子程序 移动按钮窗口
.局部变量 x
.局部变量 y
.局部变量 标题栏高度, 整数型
.局部变量 边界宽度, 整数型
.局部变量 按钮宽度, 整数型
.局部变量 按钮高度, 整数型
.局部变量 框架宽度, 整数型
标题栏高度 ＝ GetSystemMetrics (#SM_CYCAPTION)
框架宽度 ＝ GetSystemMetrics (#SM_CXFRAME)
边界宽度 ＝ GetSystemMetrics (#SM_CYBORDER)
按钮宽度 ＝ GetSystemMetrics (#SM_CXSIZE)
按钮高度 ＝ GetSystemMetrics (#SM_CYSIZE)
窗口1.宽度 ＝ 50
窗口1.高度 ＝ 20
y ＝ 顶边 ＋ 边界宽度 ＋ 标题栏高度 － 窗口1.高度
x ＝ 左边 ＋ 宽度 － 按钮宽度 × 5 － 框架宽度
y ＝ 顶边 ＋ 6
窗口1.左边 ＝ x
窗口1.顶边 ＝ y
窗口程序集2：
.版本 2
.程序集 窗口程序集2
.子程序 _按钮1_被单击
_启动窗口.高度 ＝ 35
.子程序 _窗口1_尺寸被改变
按钮1.宽度 ＝ 宽度
按钮1.高度 ＝ 高度
.子程序 _按钮2_被单击
_启动窗口.高度 ＝ 250
