Hi,
i need to change the height of a TabToolBar, i did not a property to set the height, it change the height automatically when i put an object in the container.
Sample
Private Sub Form_Load()
Dim TabTool As TabToolBar
Dim Tab1 As TabControlItem
Dim Tab2 As TabControlItem
Dim CtrlCustom As CommandBarControlCustom
CB.DeleteAll 'its the commandbars control
Set TabTool = CB.AddTabToolBar("TABTOOL") 'i need a tab control
Set Tab1 = TabTool.InsertCategory(0, "tab 0") 'with some tabs
Set Tab2 = TabTool.InsertCategory(1, "tab 1")
Set CtrlCustom = TabTool.Controls.Add(xtpControlCustom, 0, "") 'i need to put an object inside each tab
CtrlCustom.Category = "tab 0"
CtrlCustom.Handle = Text1.hWnd
Set CtrlCustom = TabTool.Controls.Add(xtpControlCustom, 1, "") 'another time
CtrlCustom.Category = "tab 1"
CtrlCustom.Handle = Text2.hWnd
'height is automatically sets to the maximun height of the controls inside (text1.height)
TabTool.MinimumWidth = Form1.Width 'no more controls over the command bar, only a tab control
'i can not define the height of the command bar
TabTool.UpdateTabs
'after load the form, the user can resize the form and i need to resize the command bar as a percent of the form
'changing then height of the tab i can set the height of the objects inside (textboxes or something else)
End Sub
'Thanks
|