【50精币教】怎样创建多个大漠对象实现多线程（不用模块）

707711094

怎样创建多个大漠对象实现多线程（不用模块）
dm.创建 (“dm.dmsoft”, ) 这样创建  最后只有一个窗口在运行 （是否对象呗覆盖了）
怎样给每个对象加上编号
最好能给我个源码

白十二

[e]
.版本 2

.程序集 窗口程序集1
.程序集变量 dm, 对象, , "10", 数组不能为0，你要创建多少个对象就设置多少各数组就可以了

.子程序 __启动窗口_创建完毕

.如果真 (文件是否存在 (取运行目录 () ＋ “\dm.dll”) ＝ 假)
    信息框 (“请把dm查件放在运行目录下面！”, 0, )
    返回 ()
.如果真结束

.如果真 (运行 (“regsvr32 ” ＋ 取运行目录 () ＋ “\dm.dll /s”, 真, ) ＝ 假)
    信息框 (“注册大漠失败，系统没有关闭UAC！”, 0, )
    返回 ()
.如果真结束
输出调试文本 (创建dm对象 (5))
输出调试文本 (dm [1].文本方法 (“Ver”, ))  ' 版本号
清除dm对象 ()

.子程序 创建dm对象, 逻辑型, , 创建对象
.参数 索引, 整数型, , 需要多少个对象索引 就填写多少个对象索引,默认空
.局部变量 i, 整数型

.如果真 (索引 ＝ 0)
    索引 ＝ 1
.如果真结束
.计次循环首 (索引, i)
    .如果真 (dm .创建 (“dm.dmsoft”, ) ＝ 假)
        跳出循环 ()
    .如果真结束

.计次循环尾 ()
.如果 (索引 ＝ i － 1)
    返回 (真)
.否则
    返回 (假)
.如果结束


.子程序 清除dm对象, , , 清除对象
.局部变量 i, 整数型

.计次循环首 (取数组成员数 (dm), i)
    dm .清除 ()
.计次循环尾 ()

[/e]

老艺术家

没用过大漠。 我一直没调用成功过

707711094

我把DM类放在全局变量 就实现不了多线程（应该对象被覆盖了）
DM类放在局部变量就实现了多线程 但是我总不能用一个子程序把脚本写完吧
求教怎样给每个对象创建编号 方便调用而不被覆盖掉
下面是源码  求大神帮忙修改下

源码.rar (853.27 KB, 下载次数: 22)

2013-3-28 10:33 上传

点击文件名下载附件

白十二

然后你要操作多少个线程，就创建多少个对象就可以了

白十二

707711094 发表于 2013-3-28 10:39
我把DM类放在全局变量 就实现不了多线程（应该对象被覆盖了）
DM类放在局部变量就实现了多线程 但是我总 ...

对象设置为数组就可以了啊