易语言 标题上添加两个按钮 代码检查

程序集—窗口程序集1,窗口程序集2,窗口程序集3
窗口—_启动窗口,窗口1,窗口4
DLL命令—GetSystemMetrics

窗口程序集1:

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_位置被改变

移动按钮窗口 ()

.子程序 __启动窗口_创建完毕

载入 (窗口1, _启动窗口, 假)
移动按钮窗口 ()
载入 (窗口4, _启动窗口, 假)
移动按钮窗口 ()

.子程序 __启动窗口_尺寸被改变

移动按钮窗口 ()

.子程序 移动按钮窗口
.局部变量 x
.局部变量 y
.局部变量 标题栏高度, 整数型
.局部变量 边界宽度, 整数型
.局部变量 按钮宽度, 整数型
.局部变量 按钮高度, 整数型
.局部变量 框架宽度, 整数型

标题栏高度 = GetSystemMetrics (#SM_CYCAPTION)
框架宽度 = GetSystemMetrics (#SM_CXFRAME)
边界宽度 = GetSystemMetrics (#SM_CYBORDER)
按钮宽度 = GetSystemMetrics (#SM_CXSIZE)
按钮高度 = GetSystemMetrics (#SM_CYSIZE)
窗口1.宽度 = 按钮宽度
窗口4.宽度 = 按钮宽度
窗口1.高度 = 按钮高度 - 框架宽度
窗口4.高度 = 按钮高度 - 框架宽度
y = 顶边 + 边界宽度 + 标题栏高度 - 窗口1.高度
x = 左边 + 宽度 - 按钮宽度 × 4 - 框架宽度
y = 顶边 + 6
窗口1.左边 = x
窗口1.顶边 = y

窗口程序集2:
.版本 2

.程序集 窗口程序集2

.子程序 _按钮1_被单击

_启动窗口.高度 = 35

.子程序 _窗口1_尺寸被改变

按钮1.宽度 = 宽度
按钮1.高度 = 高度

窗口程序集3:
.版本 2

.程序集 窗口程序集3

.子程序 _按钮1_被单击

_启动窗口.高度 = 250

.子程序 _窗口1_尺寸被改变

按钮1.宽度 = 宽度
按钮1.高度 = 高度

DLL命令:
.版本 2

.DLL命令 GetSystemMetrics, 整数型, "user32", "GetSystemMetrics", , 返回与windows环境有关的信息 取决于具体的常数索引
.参数 索引, 整数型

我运行后第二个按钮无法再标题显示,却在_启动窗口的中间显示。高手指点。

程序集—窗口程序集1,窗口程序集2
窗口—_启动窗口,窗口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
温馨提示:答案为网友推荐,仅供参考