在使用PB的Tab控件时，如果设置Multiline=true，当所有标签页不能同时显示出来时会多行显示。在添加标签页或Tab控件尺寸发生改变时，系统会自动调整各标签页的位置，但当使用CloseTab删除标签页时，PB不会自动调整各标签页的位置，这样就会造成界面的不美观。
要解决该问题，只需对Multiline属性重置即可。
以下是笔者自定义的of_closetab函数，建立在Tab控件祖先中，你可以使用of_closetab代替PB自带的closetab函数，你也可以以类似的代码重载closetab函数。
/*******************************************************************
函数名称：of_closetab()
参数: auo_tabpage userobject 要删除标签页
返回值： integer 是否成功(1表示成功,-1表示失败)
功能描述：删除指定标签页
创建人： 康剑民
创建日期：2006-08-14
版本号： V1.0
*******************************************************************/
integer li_return
li_return = this.closetab(auo_tabpage)
if this.multiline then
this.setredraw(false)
this.multiline = false
this.multiline = true
this.setredraw(true)
end if
return li_return
写作日期：2007-02-10
| 网站地图 |