ActiveBar+ActiveSizer

用ActiveBar做菜单、工具栏等
用ActiveSizer加载应用窗体
­
使用以下代码将ActiveSizer拼到窗体中去
Me.ActiveBar21.AutoSizeChildren = ddASClientArea
Me.ActiveBar21.ClientAreaControl = Me.ActiveSizer1
Me.ActiveBar21.RecalcLayout
­
使用以下代码加载应用窗体
If Not Me.ActiveSizer1.SubForm Is Nothing Then Unload Me.ActiveSizer1.SubForm
Me.ActiveSizer1.SubForm = New Form2
为保证new Form成功，尽量不要将复杂的代码写在onLoad事件，应妥善设置方法和属性使得Form生成后尽快完成参数交换及数据处理。
­
在每次新显现ActiveBar的Band之后使用以下代码重绘窗体
Me.ActiveBar21.RecalcLayout