创建分割条用户对条
(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竖直/水平标志