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竖直/水平标志

  ic_vh_flag = Upper(ac_vh_flag) //竖直/水平标志

  Choose Case  ic_vh_flag

                 Case 'V' //竖直

                      idrg_left = adrg_1

                      idrg_right = adrg_2

                     //设置宽度

                     This.width = ii_barthickness

                   //以分割条为中民重新定义在左右控件的宽度

                  idrg_left.width = This.x - idrg_left.x

                 idrg_right.width = idrg_rigth.x + idrg_right.width - (This.x + This.width)

                  idrg_right.x = This.x +This.width

                    //以左边控件为基准重新定义分割条及右控件的高度

               This.y = idrg_left.y

                This.Height = idrg_left.Height

              idrg_right.y = idrg_left.y

              idrg_right.Height = idrg_left.Height

          Case 'H' //水平

                      idrg_up = adrg_1

                      idrg_down = adrg_2

                     //设置宽度

                     This.Heigth = ii_barthickness

                     //以分割条为中心重新定义上下控件的高度

                    idrg_up.Height = This.y - idrg_up.y

                   idrg_down.Height = idrg_down.y + idrg_down.Height - (This.y + This.Height)

                    idrg_down.y = This.y + This.Height

                   //以左边控件为基准重新定义分割条及右控件的宽度

                    This.x = idrg_up.x

                    This.width  = idrg_up.width

                    idrg_down.x = idrg_up.x

                    dirg_down.width = idrg_up.width

        Case Else

   End Choose

(4)定义uo_splitbar的用户事件

           ue_lbuttondown :Event ID------pbm_lbuttondown

           ue_mouse move :Event ID ----- pbm_mousemove

           ue_lbuttonup :Event ID ------ pbm_lbuttonup

(5)在uo_splitbar的以下事件中编写脚本

     Constructor 事件

           of_setpointer()

             this.width = ii_barthickness

             this.backcolor = 67108864 // 背景颜色 Button Face

    ue_lbuttondown 事件

           of_setpointer()

           ib_mousedown = True

           This.BackColor = 134217731 //背景颜色 Inactive Title Bar

    ue_mousemove   事件

           integer  li_x, li_y

           //设置鼠标形状

          of_setpointer()

        IF ib_mousedown = False Then Return

               SetPosition(ToToP!)

           Choose Case     ic_vh_flag

                           Case  'V'  //竖直分割条

                           li_x = parent.DyNAMIC  Pointerx()

                          //分割条的位置不能超过左控件的左边框和右控件的右边框

                              IF li_x<= idrg_left.x or li_x > = idrg_right.x + idrg_right.width Then Return

                          //在鼠标移动过程中，将分割条的横坐标设为鼠标的横坐标

                         this.x = li_x

                       Case 'H'  //水平分割条

                          li_y = Parent.DyNAMIC PointerY()

                         //分割条的位置不能超过上控件的上边框和下控件的下边框

                         IF li_y <= idrg_up.y or li_y >= idrg_down.y + idrg_down.height Then Return

                           //在鼠标移动过程中将分割条的纵坐标设为鼠标的纵坐标

                           This.y = li_y

                  Case Else

                         Return

         End  Choose

             ue_lbuttonup 事件

                       If  ib_mousedown = False Then Return Else ib_mousedown = False

                      This.BackColor = 67108864 //背景色

                      Choose Case   ic_vh_flag

                                     Case 'V'

                                           //以分割条为中心得新定义控件

                                          idrg_left.width = This.x  - idrg_left.x

                                         idrg_right.Width = idrg_right.x + idrg_right.Width - (This.x + This.Width)

                                         idrg_right.x + This.x + This.width

                                     Case 'H'

                                          idrg_up.Height = This.y - idrg_up.y

                                          idrg_down.Height = idrg_down.y + dirg_down.Height - (This.y + This.Height)

                                          idrg_down.y = This.y + This.Height

                        End Choose

       使用分割条用户对象

      (1)创建窗口并加入控件

         st_splitbar                   UserObject                                   继承uo_splitbar 创建

         tv_1                               TreeView                                       置于分割条左边的控件

         dw_1                            DataWindow                                置于分割条右边的控件

 (2) 在窗口open事件中编写脚本

     //注册要融合的控件

      st_splitbar.of_setcontrols(tv_1,dw_1,'V')