How to change toolbar icon

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

   I need to change an icon in the toolbar whenever a Flag within the program is changed. How do I do this?
Thanks

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
rdtcgriffin Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 18 March 2004 Status: Offline Points: 19	Post Options Post Reply Quote rdtcgriffin Report Post Thanks(0) Quote Reply Topic: How to change toolbar icon Posted: 20 April 2004 at 11:18pm
	I need to change an icon in the toolbar whenever a Flag within the program is changed. How do I do this? Thanks

SuperMario Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 14 February 2004 Status: Offline Points: 18057	Post Options Post Reply Quote SuperMario Report Post Thanks(0) Quote Reply Posted: 21 April 2004 at 6:28am
	Change the IconId. For example, say you have set the "Tag" value of your image in an image list to 100, 101, and 102. The you would have the following code: 'Declare constants Const ID_FILE_SAVE = 100 Const ID_FILE_SAVED = 101 Const ID_FILE_NEW = 102 'Add a toolbar and a control to the toolbar Dim Control As CommandBarControl Dim ToolBar As CommandBar Set ToolBar = CommandBars.Add("Standard", xtpBarTop) With ToolBar.Controls Set Control = .Add(xtpControlButton, ID_FILE_SAVE, "Save", -1, False) End With 'Find the control in the toolbar and change the IconId Set Control = CommandBar.FindControl(, ID_FILE_SAVE,,True) If Not Control Is Nothing Then Control.IconId = IF_FILE_SAVED EndIf Edited by SuperMario