Icons in Toolbar

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hello

I'm trying to understand how you are loading icons in your toolbar.
Let's say the example TabbedToolbar.vbp
Where are the icons come from?

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
lexicon Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 26 January 2007 Status: Offline Points: 46	Post Options Post Reply Quote lexicon Report Post Thanks(0) Quote Reply Topic: Icons in Toolbar Posted: 13 November 2007 at 7:10am
	Hello I'm trying to understand how you are loading icons in your toolbar. Let's say the example TabbedToolbar.vbp Where are the icons come from?

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 13 November 2007 at 11:29am
	See ImageManager.Icons.LoadIcon App.Path & "\Icons\App.ico", ID_TAB_ICON, xtpImageNormal line.
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS

lexicon Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 26 January 2007 Status: Offline Points: 46	Post Options Post Reply Quote lexicon Report Post Thanks(0) Quote Reply Posted: 13 November 2007 at 2:01pm
	I'm running this code and i take 2 toolbars Dim ToolBar As CommandBar Set ToolBar = CommandBars.Add("Standard", xtpBarTop) CommandBars.Options.LargeIcons = 1 AddControl ToolBar.Controls, xtpControlButton, 100, "&New", False, "Create a new document" AddControl ToolBar.Controls, xtpControlButton, 101, "&Open", False, "Open an existing document" AddControl ToolBar.Controls, xtpControlButton, 102, "&Save", False, "Save the active document" AddControl ToolBar.Controls, xtpControlButton, 103, "&Save All", False, "Save all documents" AddControl ToolBar.Controls, xtpControlButton, 104, "Cu&t", True, "Cut the selection and put it on the Clipboard" AddControl ToolBar.Controls, xtpControlButton, 105, "&Copy", False, "Copy the selection and put it on the Clipboard" ' AddControl ToolBar.Controls, xtpControlButton, ID_VIEW_PROPERTIES, "Properties", True ' AddControl ToolBar.Controls, xtpControlButton, ID_HELP_ABOUT, "About", True Set CommandBars.Icons = ImageManager.Icons CommandBars.Options.UseDisabledIcons = True UseDisabledIcons = True CommandBars.Options.SetIconSize True, 32, 32 CommandBars.Options.ShowExpandButtonAlways = False CommandBars.VisualTheme = xtpThemeOffice2003 Can you tell me how the first toolbar created?

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 14 November 2007 at 1:00am
	This code creates only one toolbar. check that you call it only once.
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS

lexicon Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 26 January 2007 Status: Offline Points: 46	Post Options Post Reply Quote lexicon Report Post Thanks(0) Quote Reply Posted: 14 November 2007 at 2:52am
	This is the code that creates 2 toolbars, the 1st is empty Private Sub Form_Load() Dim ToolBar As CommandBar Set ToolBar = CommandBars.Add("Standard", xtpBarTop) CommandBars.Options.LargeIcons = 1 AddControl ToolBar.Controls, xtpControlButton, 100, "��", True AddControl ToolBar.Controls, xtpControlButton, 107, "��", True AddControl ToolBar.Controls, xtpControlButton, 108, "��", True AddControl ToolBar.Controls, xtpControlButton, 103, "��", True AddControl ToolBar.Controls, xtpControlButton, 104, "��", True AddControl ToolBar.Controls, xtpControlButton, 105, "��", True AddControl ToolBar.Controls, xtpControlButton, 106, "��", True AddControl ToolBar.Controls, xtpControlButton, 109, "��", True AddControl ToolBar.Controls, xtpControlButton, 110, "��", True Set CommandBars.Icons = ImageManager.Icons CommandBars.Options.UseDisabledIcons = True UseDisabledIcons = True CommandBars.Options.SetIconSize True, 32, 32 CommandBars.Options.ShowExpandButtonAlways = False CommandBars.VisualTheme = xtpThemeOffice2003 End Sub

ijwelch Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 20 June 2006 Status: Offline Points: 262	Post Options Post Reply Quote ijwelch Report Post Thanks(0) Quote Reply Posted: 15 November 2007 at 11:34pm
	The first empty bar is the default 'menubar', created automatically. You need to call CommandBars.DeleteAll at the start of your code to remove it.