2011-06-15 回答
我想楼主要的并非 按钮数组变量,而是真的“到按钮()”,虽然不是太必要,但也有他的用处!
.版本 2
.子程序 _按钮1_被单击
.局部变量 按钮变量, 按钮
.局部变量 计次, 整数型
.' 如果真 (到按钮1 (“按钮1”, 按钮变量))
' 按钮变量.标题 = “啦!”
.如果真结束
.' 如果真 (到按钮1 (“按钮2”, 按钮变量))
' 按钮变量.标题 = “啦啦!”
.如果真结束
计次 = 1
.判断循环首 (到按钮1 (“按钮” + 到文本 (计次), 按钮变量))
' 按钮变量.左边= 计次 × 100
按钮变量.标题 = 取重复文本 (计次, “啦”) + “!”
计次 = 计次 + 1
.判断循环尾 ()
.子程序 _按钮2_被单击
.局部变量 n
.局部变量 计次, 整数型
.局部变量 按钮变量, 按钮, , "0"
n = 到按钮2 (按钮变量)
.计次循环首 (n, 计次)
按钮变量 [计次].标题 = 取重复文本 (计次, “啦”) + “!”
.计次循环尾 ()
.子程序 到按钮1, 逻辑型
.参数 按钮名称, 文本型, , 注:按钮名称并不是按钮标题!
.参数 按钮变量, 按钮, 参考, 必须是参考,否不能正确返回数据!
.局部变量 bhwnd, 整数型
bhwnd = 寻找组件 (_启动窗口, 按钮名称, “按钮”, , )
.如果真 (bhwnd ≠ 0)
按钮变量 = 取所找到组件 (bhwnd, 0)
清除组件寻找句柄 (bhwnd)
返回 (真)
.如果真结束
返回 (假)
.子程序 到按钮2, 整数型
.参数 按钮变量, 按钮, 参考 数组, 必须是参考,否不能正确返回数据!
.局部变量 bhwnd, 整数型
.局部变量 n, 整数型
.局部变量 i, 整数型
bhwnd = 寻找组件 (_启动窗口, , “按钮”, , )
.如果真 (bhwnd ≠ 0)
n = 取找到组件数目 (bhwnd)
' 重定义数组 (按钮变量, 假, n)‘错误的方式,我也不知为什么!
.计次循环首 (n, i)
加入成员 (按钮变量, 取所找到组件 (bhwnd, i - 1))
' 按钮变量 [n] = 取所找到组件 (bhwnd, i - 1)‘错误的方式,我也不知为什么!
.计次循环尾 ()
清除组件寻找句柄 (bhwnd)
返回 (n)
.如果真结束
返回 (0)