动态数量的按钮均匀排布在窗口的高度上

SYzenghao

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_按钮	按钮	0
集_按钮_lock	线程许可证

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

InitializeCriticalSection (集_按钮_lock)
加入成员 (集_按钮, 按钮1)

子程序名	返回值类型	公开	备 注
__启动窗口_尺寸被改变

变量名	类 型	静态	数组	备 注
i	整数型
窗口高	整数型
按钮数量	整数型
按钮高	整数型
总按钮高	整数型
顶边偏移	整数型
按钮间隔	整数型
窗口中心Y	整数型
按钮总高度的一半	整数型
当前按钮顶边	整数型

窗口高 ＝ _启动窗口.取用户区高度 () － 20
EnterCriticalSection (集_按钮_lock)
按钮数量 ＝ 取数组成员数 (集_按钮)
按钮高 ＝ 窗口高 ÷ 按钮数量
如果真 (按钮高 ＞ 120)  ' // 按钮最大高度
按钮高 ＝ 120
总按钮高 ＝ 按钮高 × 按钮数量
顶边偏移 ＝ (窗口高 － 总按钮高) ÷ 2
窗口中心Y ＝ 窗口高 ÷ 2
按钮总高度的一半 ＝ 总按钮高 ÷ 2
计次循环首 (取数组成员数 (集_按钮), i)
集_按钮 [i].高度 ＝ 按钮高
当前按钮顶边 ＝ 窗口中心Y － 按钮总高度的一半 ��� (i － 1) × 按钮高
集_按钮 [i].顶边 ＝ 当前按钮顶边
计次循环尾 ()
LeaveCriticalSection (集_按钮_lock)
按钮2.顶边 ＝ 窗口高 ÷ 2

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
按钮20	按钮
i	整数型

i ＝ i ＋ 1
复制窗口组件 (按钮1, 按钮20)
按钮20.左边 ＝ 0
按钮20.顶边 ＝ 0
按钮20.可视 ＝ 真
按钮20.标题 ＝ 到文本 (i)
按钮20.标记 ＝ “Button” ＋ 到文本 (i)
事件转移 (按钮20, 按钮1)
加入成员 (集_按钮, 按钮20)
SendMessageA (_启动窗口.取窗口句柄 (), 5, 0, 左移 (高度, 16) ＋ 宽度)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
a	按钮

a ＝ 取事件组件 ()
调试输出 (a.标题, a.标记)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_按钮, 按钮, , "0"<br /> .程序集变量 集_按钮_lock, 线程许可证<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> InitializeCriticalSection (集_按钮_lock)<br /> 加入成员 (集_按钮, 按钮1)<br /> <br /> <br /> .子程序 __启动窗口_尺寸被改变<br /> .局部变量 i, 整数型<br /> .局部变量 窗口高, 整数型<br /> .局部变量 按钮数量, 整数型<br /> .局部变量 按钮高, 整数型<br /> .局部变量 总按钮高, 整数型<br /> .局部变量 顶边偏移, 整数型<br /> .局部变量 按钮间隔, 整数型<br /> .局部变量 窗口中心Y, 整数型<br /> .局部变量 按钮总高度的一半, 整数型<br /> .局部变量 当前按钮顶边, 整数型<br /> <br /> <br /> 窗口高 ＝ _启动窗口.取用户区高度 () － 20<br /> <br /> EnterCriticalSection (集_按钮_lock)<br /> <br /> 按钮数量 ＝ 取数组成员数 (集_按钮)<br /> 按钮高 ＝ 窗口高 ÷ 按钮数量<br /> .如果真 (按钮高 ＞ 120)  ' // 按钮最大高度<br />     按钮高 ＝ 120<br /> .如果真结束<br /> 总按钮高 ＝ 按钮高 × 按钮数量<br /> 顶边偏移 ＝ (窗口高 － 总按钮高) ÷ 2<br /> 窗口中心Y ＝ 窗口高 ÷ 2<br /> 按钮总高度的一半 ＝ 总按钮高 ÷ 2<br /> .计次循环首 (取数组成员数 (集_按钮), i)<br />     集_按钮 <i>.高度 ＝ 按钮高<br />     当前按钮顶边 ＝ 窗口中心Y － 按钮总高度的一半 ＋ (i － 1) × 按钮高<br />     集_按钮 <i>.顶边 ＝ 当前按钮顶边<br /> .计次循环尾 ()<br /> <br /> LeaveCriticalSection (集_按钮_lock)<br /> <br /> <br /> 按钮2.顶边 ＝ 窗口高 ÷ 2<br /> <br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 按钮20, 按钮<br /> .局部变量 i, 整数型, 静态<br /> <br /> i ＝ i ＋ 1<br /> 复制窗口组件 (按钮1, 按钮20)<br /> 按钮20.左边 ＝ 0<br /> 按钮20.顶边 ＝ 0<br /> 按钮20.可视 ＝ 真<br /> 按钮20.标题 ＝ 到文本 (i)<br /> 按钮20.标记 ＝ “Button” ＋ 到文本 (i)<br /> 事件转移 (按钮20, 按钮1)<br /> 加入成员 (集_按钮, 按钮20)<br /> SendMessageA (_启动窗口.取窗口句柄 (), 5, 0, 左移 (高度, 16) ＋ 宽度)<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 按钮<br /> <br /> a ＝ 取事件组件 ()<br /> 调试输出 (a.标题, a.标记)

放飞梦想321

感谢分享，很给力！~

小磊88

很实用，就喜欢这样的资料。

光影魔术

感谢分享，正好需要

396384183

学习学习

一指温柔

感谢分享，很给力！~

豆豆灰常开心

下个学习一下

year1970

感谢分享，学习一下

查过

感谢您对论坛的支持！

pipicool

学习一下