轻松的语言沙漠模块，如何编写多线程操作思路，

.version 2

. 支持库规范

. 支持库iext

.Support库EThread

. 子例程分配线程

. 局部变量计数

. 本地变量条目数，整数

. 局部变量ID，文本，“ 0”

. 局部变量模拟器的昵称，文本类型

调试输出（“分配线程”）

调试输出（超级列表框1.取表号（））

. 第一个计数周期（超级列表框1.表条目数（），正在计数）

昵称=超级列表框1.取标题（计数-1易语言线程安全调用，0）

调试输出（模拟器昵称）

模拟器ID =拆分文本（模拟器昵称，“-”，）

调试输出（ID）

调试输出（ID [2]）

调试输出（“分配线程2”）

创建沙漠对象（至整数（模拟器ID [2]））

处理事件（）

. 计数周期结束（）

. 子例程创建沙漠对象

. 参数i，整数

. 局部变量模拟器句柄，整数

. 局部变量Simulator的内部句柄，整数，“ 0”

. 局部变量计数，整数类型

. 局部变量表条目索引，整数易语言线程安全调用，“ 0”

. 局部变量表条目，整数类型

. 局部变量沙漠对象，整数

. 局部变量标题标识符，整数

. 如果（ld. 判断运行状态（i，1）=否）

ld. 修改配置（i，“ 400”，“ 640”，“ 160”，“ 2”，“ 2048” 、、、、、、、、、、）

ld. 修改标题（将“ Thunderbolt Simulator-” +更改为文本（i））

次朱延迟（1000）

ld. 启动模拟器（i，0）

调试输出（“部分”，即“几个正在启动”）

. 否则

调试输出（“模拟器已经成功启动，不需要重新启动”）

. 如果结束

超级列表框标题（i，“启动成功”，1）

朱继发（2000）

句柄= window_fetch句柄（、、、“ Thunderbolt Simulator-” +到文本（i））

dmd_thread信息[i]. 窗口句柄= window_fuzzy遍历窗口（模拟器句柄“ RenderWindow”，模拟器的内部句柄）

调试输出（dmd_thread信息[i] .window句柄）

次朱延迟（1000）

. if（dmd_thread信息[i]. 沙漠. 创建对象（）= true）

初始化（i）

调试输出（“编号”，i，“ a”）

. 否则

调试输出（“无法创建对象”）

. 如果结束

. 子程序初始化

. 参数i，整数

. 局部变量句柄，整数

. 局部变量Desert，沙漠中文版

初始化COM库（）

Da Mo = dmd_thread信息[i]. 大漠

Da Mo.设置全局路径（以运行目录（）+“ \发送一封信”）

绑定（i）

. 子例程绑定

. 参数i，整数

. 局部变量句柄，整数

. 局部变量Desert，沙漠中文版

Da Mo = dmd_thread信息[i]. 大漠

. If（Da Mo. Bind（dmd_thread info [i]. window handle，“ dx.graphic.opengl”，“ dx.mouse.position.lock.api | dx.mouse.position.lock.message | dx.mouse.clip .lock.api | dx.mouse.input.lock.api | dx.mouse.state.api | dx.mouse.api | dx.mouse.cursor“，” dx.keypad.input.lock .api | dx.keypad .state.api | dx.keypad.api“，0）= 1）

Procedure_delay（500）

达莫a. window_set状态（dmd_thread信息[i]. 窗口句柄，1）

Procedure_delay（300）

dmd_Thread信息[i]. 运行状态=“绑定成功”

调试输出（“绑定成功”）

. 如果为true（编辑框1. 内容=“ 0”）

启动线程（＆邮件控件，i，dmd_thread信息[i] .thread句柄）

. 如果真的结束了

. 如果为true（编辑框1.内容=“ 1”）

分配我（i）

启动线程（＆邮件控件，i，dmd_thread信息[i] .thread句柄）

. 如果真的结束了

. 否则

调试输出（“绑定失败”）

调试输出（句柄）

调试输出（i）

. 如果结束

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/tongxinshuyu/article-160692-1.html