PB实例技巧

创建分割条用户对条

(1)创建Standard Visual 用户对象，类型静态文本框(static text)并取名uo_splitbar保存

(2)定义uo_splitbar的实例变量：Instance Variables

//控件

Dragobject          idrg_left,idrg_right

Dragobject         idrg_up,idrg_down

boolean             ib_mousedown = False//鼠标左键按下标志

char                    ic_vh_flag   //竖直/水平标志

integer              ii_barthickness = 20  //条的厚度

(3)定义uo_splitbar的内部函数并编写代码

    of_setpointer()    Return None  //此函数用于设置鼠标形状，代码如下：

// 设置鼠标形状

Choose Case  ic_vh_flag

               Case 'V'

                          This.pointer = "SizeWE!"

               Case 'H'

                          This.pointer = "SizeNS!"

                Case Else

                        This.pointer = "Arrow!"

End Choose

   of_setcontrols()

//参数

value         dragobject                    adrg_1

value         dragobject                    adrg_2

value         character                      ac_vh_flag

//此函数用于注册要融合的控件

//函数功能：注册控件

//参数  adrg_1 分割条左或上控件

//           adrg_2 分割条右或下控件

//           ac_hv_flag竖直/水平标志