以下代码源于 :
/*
以下代码以通过测试,没有一点问题了。
*/
string ls_name
ClassDefinition cd
window w
ls_name = "w_main"
cd=FindClassDefinition(ls_name)
if not isvalid(cd) then
messagebox("","找不到该对象的定义类图")
return
end if
w = create using ls_name
long n,ll_count
ll_count = upperbound(w.control)
for n = 1 to ll_count
messagebox('',w.control[n].classname())
/*
做你想做的事;(众多开发语言,虽形式有所不同,但其根本是一样的,所以抓问题之根本就可以了)
*/
end for
destroy w
- 184270428
- (华哥)