pb中对控件如何使用数组

作者：达通兴电脑科技公司(www.study01job.com) 郭宝利

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

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