这是我做的单选 复选 看对你有用不
空间 第一个
整型 线程句柄//线程执行方法
逻辑型 是否暂停,单选框,复选框
功能 逻辑型 开始_点击()
线程句柄=线程.开启("第一个.主线程","")
//开启线程方法(并而扩展也只能扩展一个 总共只能有二个线程,线程.扩展开启《“窗口.标题名”,“参数”》)
返回 真
功能结束
功能 逻辑型 退出_点击()
辅助.退出()
线程.关闭(线程句柄)
返回 真
功能结束
功能 逻辑型 单选框() //这里是接收线程开启时传入的参数
如果(单选框.获得状态("单选1")==真)
辅助.消息框("单选1你好")
否则
如果(单选框.获得状态("单选2")==真)
辅助.消息框("单选2你好")
否则
如果(单选框.获得状态("单选3")==真)
辅助.消息框("单选3你好")
否则
如果(单选框.获得状态("单选4")==真)
辅助.消息框("单选4你好")
如果结束
如果结束
如果结束
如果结束
辅助.等待(2000)
返回 真
功能结束
功能 逻辑型 复选框()
如果(复选框.获得状态("复选1")==真)
辅助.消息框("复1你好")
辅助.等待(2000)
如果结束
如果(复选框.获得状态("复选2")==真)
辅助.消息框("复2你好!")
辅助.等待(2000)
如果结束
如果(复选框.获得状态("复选3")==真)
辅助.消息框("复3你好!")
辅助.等待(2000)
如果结束
如果(复选框.获得状态("复选4")==真)
辅助.消息框("复4你好!")
辅助.等待(2000)
如果结束
返回 真
功能结束
功能 逻辑型 按钮2_点击()
如果(!是否暂停)
线程.暂停(线程句柄)
是否暂停=真
否则
线程.恢复(线程句柄)
是否暂停=假
如果结束
返回 真
功能结束
功能 整型 主线程()
循环(真)
第一个.单选框()
辅助.等待(2000)
第一个.复选框()
辅助.等待(2000)
循环结束
返回 0
功能结束
空间结束 |