[PB]pb控件的使用样例

//判断按键权限

String s_power
s_power = f_gettabmethod(5) //获取权限字符串

Integer i_total ,i_counter,i_pos
String s_tag
i_total = UpperBound(tab_1.tabpage_list.control)  // object.control[ ] 即为控件数组
u_button ub
For i_counter = 1 To i_total
 If tab_1.tabpage_list.control[i_counter].TypeOf() = UserObject! Then  //通过typeof 来判断 类型
  s_tag  = tab_1.tabpage_list.control[i_counter].tag
  i_pos  = Pos(s_power,s_tag)
  If i_pos > 0 Then
   ub = tab_1.tabpage_list.control[i_counter]
   ub.of_setenabled(true)
  else
   ub = tab_1.tabpage_list.control[i_counter]
   ub.of_setenabled(false)
  ENd If
 End If
Next

 

//另  control[li_index].ClassName()    返回控件的名字