1,079
社区成员
发帖
与我相关
我的任务
分享在不打开window的情况下，如何取得所有的window中控件的属性
在不打开window的情况下，如何取得所有的window中控件的属性
用FindClassDefinition 可以取得 window的ClassDefinition
其中VariableList 有window的属性 还有控件等
用VariableList 属性可以得到所有的控件列表
单如何取得 VariableList中所有控件的属性 例如 x y width 等等 全部的
用FindClassDefinition 可以取得 window的ClassDefinition
其中VariableList 有window的属性 还有控件等
用VariableList 属性可以得到所有的控件列表
单如何取得 VariableList中所有控件的属性 例如 x y width 等等 全部的
...全文
请发表友善的回复…
发表回复
jhrm 2013-01-21
- 打赏
- 举报
用FindClassDefinition循环取就可以了，只能取pbl中的对象属性，pbd中的除数据窗口外，其它类型对象是取不到的。
wangzi8337 2013-01-21
- 打赏
- 举报
我理解错误 实验成功 可以取到
大哥 谢谢了 你牛b pb的帮助坑爹了
wangzi8337 2013-01-21
- 打赏
- 举报
大哥 lcd_Object.NestedClassList 都是空的 什么都没有
wangzi8337 2013-01-17
- 打赏
- 举报
例如说 w_test 里面有控件 cb_1 ,sle_1
ClassDefinition lcd_Object
ClassDefinition lcd_NestedClassList[]
lcd_Object = FindClassDefinition('w_test',is_LibraryList)
lcd_NestedClassList = lcd_Object.NestedClassList[]
messagebox('',upperbound(lcd_NestedClassList))
这里的messagebox 提示的是 0
wangzi8337 2013-01-17
- 打赏
- 举报
楼上的兄弟 你说的确实是我想解决的问题
但是 我查看 NestedClassList[] 却是空的 没有内容
用upperbound(NestedClassList) 得到的是0
zlf19810306 2013-01-17
- 打赏
- 举报
循环取否则取不到
zlf19810306 2013-01-17
- 打赏
- 举报
long i
for i = 1 to upperbound(lcd_Object.NestedClassList)
lcd_NestedClassList[i] = lcd_Object.NestedClassList[i]
next
wangzi8337 2013-01-17
- 打赏
- 举报
顶起来~~~~~
zlf19810306 2013-01-16
- 打赏
- 举报
差不多就是这样，原来写过一个小程序，把所有的pbl丢进去，然后用ClassDefinition对象，遍历出所有的属性，每个事件，函数里的代码
zlf19810306 2013-01-16
- 打赏
- 举报
用NestedClassList[]获取控件的ClassDefinition对象，然后再查找VariableList[],
说白了就是不断的递归遍历遍历所有的对象的NestedClassList[]，获取ClassDefinition对象
zhangyangziwo 2013-01-16
- 打赏
- 举报
window不开的话，对象不存在，没有办法访问它的属性
可以打开后，将它隐藏嘛
