PB窗口自适应

instance Variables中定义 u_sp_resizer resizer
close事件中加入 destroy u_sp_resizer

resize中加入

If Not IsNull(This.Resizer) And IsValid(This.Resizer) Then
This.Resizer.Resize()
else 
This.Resizer = Create u_sp_resizer

//Register(宿主,控件名,左定位,上定位,右定位,下定位)
//根据窗口缩放
This.Resizer.Register(This, tab_1, True, True, True, True) 

//位置不变,大小不变
This.Resizer.Register(This, tab_1.tabpage_1.sle_2,True, True, False, False) 

End If

Resizer.Register如果放在窗口的open中会有小问题，控件与下右的距离会有误差，放在resize中则不会。
原因:Register会用到window的width,height,在open时heigth并不是一个可用的高度，resize时的窗体高度可用。
实验证明:设计时heigth=1800，open时height=1904,resize时hieght=1952
出现这现象可能和window的title栏和Border未计算高度有关。