PB对控件如何使用数组

比较简单的一种情况：对窗口中的所有控件，处理它们的公共属性。代码如下：
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