TC官方合作论坛

标题: 一个简单的线程跨空间调用对象例子 [打印本页]
作者: 陌上青衣。    时间: 2013-4-10 14:45
标题: 一个简单的线程跨空间调用对象例子




  1. 空间 跨空间对象调用测试

  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    时间: 2013-4-10 14:57
这个先收藏
作者: chenxiaoman    时间: 2013-4-10 15:03
板凳
作者: zhmap    时间: 2013-4-10 16:19
这个例子好啊,收下来了,谢谢分享
作者: jianqiumy    时间: 2013-4-11 02:45
来学习,版主辛苦了!!!
作者: 455720650    时间: 2013-4-22 23:36
回复一下
作者: jianqiumy    时间: 2013-5-12 16:10
[code]空间 跨空间对象调用测试

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

谢谢老师,多开问题解决了~~~~~问题一多开代码有点问题,问题二xy定义问题~~
作者: lw8808    时间: 2013-8-16 08:13
猛滴很
作者: hou123456    时间: 2014-5-21 10:17
貌似不懂  先收
作者: bbq2015    时间: 2015-1-26 16:31
谢谢分享。
作者: 188126464    时间: 2015-9-22 13:12
+++++++++++++++++
作者: 步步攀升510    时间: 2016-8-19 23:06
李佳航股份



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1