http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 11 Jun 2026 19:35:07 +0000 Mon, 30 Jun 2008 06:25:20 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=11253 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=11253&PID=37595&title=bar-height#37595 Author: luisinho
Subject: 11253
Posted: 30 June 2008 at 6:25am

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
]]> Mon, 30 Jun 2008 06:25:20 +0000 http://forum.codejock.com/forum_posts.asp?TID=11253&PID=37595&title=bar-height#37595