一个简单的线程跨空间调用对象例子

陌上青衣。

1. 空间 跨空间对象调用测试
   
2. 
   
3. dm=数组[0]
   
4. 功能 开始_点击()
   
5. 线程.开启("跨空间对象调用测试.主线程","")
   
6. 功能结束
   
7. 功能 主线程()
   
8. 返回值=系统.枚举("记事本",0)
   
9. 句柄数组
   
10. if(字符串.查找字符串(返回值,"|")<=0)
    
11. help.messagebox("请打开记事本")
    
12. 返回 假
    
13. endif
    
14. 字符串.分割(返回值,"|",句柄数组)
    
15. 数组大小
    
16. 数组空间.大小(句柄数组,数组大小)
    
17. for(i=0;i<数组大小;i++)
    
18. dm=数组空间.重定义(dm,true,i+1)
    
19. dm[i]=com("dm.dmsoft")
    
20. 合并字符=句柄数组[i]&"|"&i
    
21. 线程.开启("子空间1.子空间线程",合并字符)
    
22. endfor
    
23. 功能结束
    
24. 功能 退出_点击()
    
25. 辅助.退出()
    
26. 功能结束
    
27. 空间结束
    
28. //.........子空间部分........
    
29. 空间 子空间1
    
30. 功能 子空间线程(参数)
    
31. 合并数组
    
32. 字符串.分割(参数,"|",合并数组)
    
33. hwnd=合并数组[0]
    
34. i=合并数组[1]
    
35. 对象=跨空间对象调用测试.dm[i]
    
36. //注意看这句,和以前同空间调用是不一致的,也就是说对象也是可以赋值的
    
37. help.messagebox(对象.ver())
    
38. dmret=对象.BindWindow(hwnd,"dx","dx","dx",0)
    
39. if(dmret==0)
    
40. help.messagebox("绑定失败!")
    
41. 返回 假
    
42. endif
    
43. 对象.SetWindowSize(hwnd,200,450)
    
44. //....其他操作
    
45. 功能结束
    
46. 空间结束

复制代码

jsdai

这个先收藏

chenxiaoman

板凳

zhmap

这个例子好啊,收下来了,谢谢分享

jianqiumy

来学习,版主辛苦了!!!

455720650

回复一下

jianqiumy

[code]空间 跨空间对象调用测试

dm=数组[0]
功能 开始_点击()
线程.开启("跨空间对象调用测试.主线程","")
功能结束
功能 主线程()
返回值=系统.枚举("记事本",0)
句......
陌上青衣。 发表于 2013-4-10 14:45:15

谢谢老师,多开问题解决了~~~~~问题一多开代码有点问题,问题二xy定义问题~~

lw8808

猛滴很

hou123456

貌似不懂  先收

bbq2015

谢谢分享。