窗口程序集名 | 保 留 | 保 留 | 备 注 |
窗口程序集_启动窗口 | | | |
变量名 | 类 型 | 数组 | 备 注 |
许可证 | 线程许可证 | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
句柄数组 | 整数型 | | 0 |
真句柄数组 | 整数型 | | 0 |
i | 整数型 | | |
j | 整数型 | | |
插入索引 | 整数型 | | |
矩形 | 精易_矩形 | | |
当前索引 | 整数型 | | |
许可证 =
线程_创建许可证 ()窗口_模糊遍历窗口 (,
“WTWindow”,
“”, 句柄数组
)
计次循环首 (取数组成员数 (句柄数组
), i
)

矩形 =
窗口_取位置和大小 (句柄数组
[i
])
如果真 (矩形.右边 = 380
且 矩形.底边 = 250
)
重定义数组 (真句柄数组, 真,
取数组成员数 (真句柄数组
) + 1
)

当前索引 =
取数组成员数 (真句柄数组
)

真句柄数组
[当前索引
] = 句柄数组
[i
]

计次循环尾 ()
计次循环首 (取数组成员数 (真句柄数组
), j
)
插入索引 = 超级列表框1.
插入表项 (, , , , ,
)
超级列表框1.
置标题 (插入索引, 0,
到文本 (真句柄数组
[j
]))
计次循环尾 ()_启动窗口.标题 = 编辑框1.内容
计次循环首 (超级列表框1.
取表项数 (), i
)
启动线程 (&子线程_处理, i, id
)
计次循环尾 ()变量名 | 类 型 | 静态 | 数组 | 备 注 |
句柄 | 整数型 | | |
编辑框数组 | 整数型 | | 0 |
按钮数组 | 整数型 | | 0 |
线程_初始化COM库 ()程序_延时 (2000
)超级列表框1.
置标题 (索引 - 1, 1,
到文本 (索引
))
句柄 =
到整数 (超级列表框1.
取标题 (索引 - 1, 0
))
窗口_枚举子窗口 (句柄, 编辑框数组,
“Edit”)超级列表框1.
置标题 (索引 - 1, 1,
到文本 (编辑框数组
[1
]))
窗口_置控件内容 (编辑框数组
[1
],
到文本 (索引
))
程序_延时 (2000
)调试输出 (索引, 句柄, 编辑框数组
)超级列表框1.
置标题 (索引 - 1, 1,
“完成” +
到文本 (索引
))
程序_延时 (2000
)线程_进入许可区 (许可证
)窗口_枚举子窗口 (句柄, 按钮数组,
“Button”)超级列表框1.
置标题 (索引 - 1, 1,
到文本 (按钮数组
[1
]))
程序_延时 (2000
)鼠标_消息 (按钮数组
[1
], 2, 2, 1, 1
)线程_退出许可区 (许可证
)线程_取消COM库 ()