比较简单的一种情况:对窗口中的所有控件,处理它们的公共属性。代码如下:
integer li_Count
integer li_index
li_Count = UpperBound(parent.Control[])
For li_index = 1 to li_Count
MessageBox('',parent.control[li_index].tag)
next
上面程序中,替换城如下脚本可以显示每一个控件的名称:
MessageBox('',parent.control[li_index].ClassName())
下面的脚本根据控件的类型做处理:
integer li_Count
integer li_index
li_Count = UpperBound(parent.Control[])
For li_index = 1 to li_Count
choose case parent.control[li_index].TypeOf()
case CommandButton!
MessageBox('','commandbutton name=' + parent.control[li_index].ClassName())
case CheckBox!
//
end choose
next
原址;http://www.jxteacher.com/qxglk/column54462/b2b6350e-c2a5-4c9c-8588-6ac1ff50ff1e.html