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

 

 

 

原址;http://www.jxteacher.com/qxglk/column54462/b2b6350e-c2a5-4c9c-8588-6ac1ff50ff1e.html