|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我用的是TC2.1版本 代码如下:空间 数组测试
整型 线程句柄
逻辑型 是否暂停
功能 整型 线程方法()
字符型 返回值=系统.枚举("Notepad",1)
字符型[] 字符句柄集=字符型[1]
逻辑型 是否成功=字符串.分割(返回值,"|",字符句柄集)
整型 c1,i=0
数组.大小(字符句柄集,c1)
循环(i<c1)
数组测试.向窗口发送内容(字符句柄集[1])
i=1+1
循环结束
返回 0
功能结束
功能 整型 向窗口发送内容(字符型 字符句柄)
字符型 返回值=系统.枚举("字符句柄",3)
字符型[] 字符句柄集=字符型[1]
逻辑型 是否成功=字符串.分割(返回值,"|",字符句柄集)
整型 c1,i=0,句柄
数组.大小(字符句柄集,c1)
循环(i<c1)
如果(窗口.类名(转换.字符型转整型(字符句柄集[1],0)) =="Edit")
句柄=转换.字符型转整型(字符句柄集[1],0)
跳出
如果结束
循环结束
窗口.提交按键(句柄,13)
窗口.提交字符串(句柄,"你好"+转换.整型转字符型(句柄))
窗口.提交按键(句柄,13)
返回 0
功能结束
功能 逻辑型 开始_点击()
线程句柄=线程.开启("数组测试.线程方法")
返回 真
功能结束
功能 逻辑型 按钮0_点击()
如果(!是否暂停)
线程.暂停(线程句柄)
是否暂停=真
否则
线程.恢复(线程句柄)
是否暂停=假
如果结束
返回 真
功能结束
功能 逻辑型 退出_点击()
线程.关闭(线程句柄)
返回 真
功能结束
空间结束
|
|