Command Bars - Icons won’t load

Print Page | Close Window

Icons won’t load

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Command Bars
Forum Description: Topics Related to Codejock Command Bars
URL: http://forum.codejock.com/forum_posts.asp?TID=3040
Printed Date: 04 November 2025 at 11:13am
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Icons won’t load

Posted By: Krenshau
Subject: Icons won’t load
Date Posted: 15 October 2005 at 10:07pm

I am trying out this product to see if it is something that I should by. So far I think it is great. I am only having one problem. I can't get the icons to show in the toolbar. I got it to work once and I modified the code to instert a (I think it is called) split button with popup. Now the icons won't show, I took it out to see if it would work again and it still won't. I have read much of the help and tutorial for mdi and sdi projects and I must be missing something but I have no idea what it is.

Thank you to anyone that can help me. Below is my code.

Private Sub MDIForm_Load()

    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)

    Set Report = CommandBars.ShowTabWorkspace(True)

    CommandBars.GlobalSettings.App = App

    ' Create Menus

    Dim Control As CommandBarControl
    Dim controlfile As CommandBarPopup, controledit As CommandBarPopup
    Dim controlview As CommandBarPopup
    Dim controlwindow As CommandBarPopup, controlhelp As CommandBarPopup

    Set controlfile = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, _
                                                                       "&File", -1, False)

    With controlfile.commandbar.Controls
    Set Control = .Add(xtpControlButton, ID_REPORT_NEW, "&New", -1, False)

      Set Control = .Add(xtpControlButton, ID_REPORT_OPEN, "&Open", -1, False)

      .Add xtpControlButton, ID_REPORT_CLOSE, "&Close", -1, False
      .Add xtpControlButton, ID_REPORT_SAVE, "&Save", -1, False

      Set Control = .Add(xtpControlButton, ID_FILE_PRINT, "&Print", -1, False)
      Control.BeginGroup = True
      .Add xtpControlButton, ID_FILE_PRINT_SETUP, "Print Set&up...", -1, False

      Set Control = .Add(xtpControlButton, ID_REPORT_EXIT, "&Exit", -1, False)
      Control.BeginGroup = True
    End With

    Set controledit = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, _
                                                                       "&Edit", -1, False)

With controledit.commandbar.Controls
Set Control = .Add(xtpControlButton, ID_EDIT_UNDO, "&Undo", -1, False)

Set Control = .Add(xtpControlButton, ID_EDIT_CUT, "Cu&t", -1, False)
Control.BeginGroup = True

Set Control = .Add(xtpControlButton, ID_EDIT_COPY, "&Copy", -1, False)

Set Control = .Add(xtpControlButton, ID_EDIT_PASTE, "&Paste", -1, False)

    End With

    Set controlview = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, _
                                                                       "&View", -1, False)

    With controlview.commandbar.Controls

      Set Control = .Add(xtpControlButton, ID_VIEW_SEARCH, "&Search", -1, False)

Set Control = .Add(xtpControlButton, ID_VIEW_OPTIONS, "Options", -1, False)
Control.BeginGroup = True

    End With

    Set controlwindow = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, _
                                                                       "&Window", -1, False)

    With controlwindow.commandbar.Controls

      .Add xtpControlButton, ID_FILE_NEW, "&New Window", -1, False
      .Add xtpControlButton, ID_WINDOW_TILE_HORIZANTALLY, "Tile &Horizontally", -1, False
      .Add xtpControlButton, ID_WINDOW_TILE_VERTICALLY, "Tile &Vertically", -1, False
      .Add xtpControlButton, ID_WINDOW_CASCADE, "&Cascade", -1, False
      .Add xtpControlButton, 35000, "&Window List", -1, False

    End With

    Set controlhelp = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, _
                                                                       "&Help", -1, False)

    With controlhelp.commandbar.Controls

      Set Control = .Add(xtpControlButton, ID_HELP_STATICHELP, "&Help", -1, False)

      Set Control = .Add(xtpControlButton, ID_HELP_GETHELP, "&Live Help", -1, False)

Set Control = .Add(xtpControlButton, ID_HELP_ABOUT, "&About", -1, False)
Control.BeginGroup = True

    End With

    ' Create Toolbar

    Dim PEPToolBar As commandbar, ControlColorPopup As CommandBarPopup

    Set PEPToolBar = CommandBars.Add("Standard", xtpBarTop)

    With PEPToolBar.Controls

      .Add xtpControlButton, ID_REPORT_NEW, "&New", -1, False

      .Add xtpControlButton, ID_REPORT_OPEN, "&Open", -1, False

.Add xtpControlButton, ID_REPORT_SAVE, "&Save", -1, False

    Set Control = .Add(xtpControlButton, ID_FILE_PRINT, "&Print", -1, False)

      Control.BeginGroup = True

Set Control = .Add(xtpControlButton, ID_EDIT_CUT, "Cu&t", -1, False)

Control.BeginGroup = True

.Add xtpControlButton, ID_EDIT_COPY, "&Copy", -1, False

      .Add xtpControlButton, ID_EDIT_PASTE, "&Paste", -1, False

    End With

        CommandBars.AddImageList imlToolbarIcons

    '*********************************************************** *********************

    Dim ReportBar As commandbar

    Set ReportBar = CommandBars.Add("Standard", xtpBarTop)

    Set ControlColorPopup = AddButton(ReportBar.Controls, xtpControlSplitButtonPopup, ID_REPORT_TYPE, "Open New Report", False, "", xtpButtonIconAndCaption)
    ControlColorPopup.BeginGroup = True

    ControlColorPopup.commandbar.Controls.Add xtpControlButton, ID_REPORT_OBSV, "Teacher's Observation Report"
    ControlColorPopup.commandbar.Controls.Add xtpControlButton, ID_REPORT_TPAI, "Teacher's Performance Appraisal Report"
    ControlColorPopup.commandbar.Controls.Add xtpControlButton, ID_REPORT_SNAP, "SnapShot Report"
    ControlColorPopup.commandbar.Controls.Add xtpControlButton, ID_REPORT_POR, "Pre-Observation Report"
    ControlColorPopup.Style = xtpButtonIconAndCaption
    CommandBars.AddImageList imlToolbarIcons

    DockRightOf ReportBar, PEPToolBar

    '*********************************************************** *********************

    CommandBars.statusbar.Visible = True

    CommandBars.statusbar.AddPane 0
    CommandBars.statusbar.AddPane ID_INDICATORE_CAPS
    CommandBars.statusbar.AddPane ID_INDICATORE_SCRLKS
    CommandBars.statusbar.AddPane ID_INDICATORE_NUMLCK

    CommandBars.EnableCustomization True

    For Each Control In PEPToolBar.Controls
      If Control.Type = xtpControlButton Then
        Control.Style = xtpButtonCaption
      End If
    Next

    CommandBars.KeyBindings.Add FCONTROL, Asc("N"), ID_REPORT_NEW
    CommandBars.KeyBindings.Add FCONTROL, Asc("O"), ID_REPORT_OPEN
    CommandBars.KeyBindings.Add FCONTROL, Asc("S"), ID_REPORT_SAVE
    CommandBars.KeyBindings.Add FCONTROL, Asc("X"), ID_EDIT_CUT
    CommandBars.KeyBindings.Add FCONTROL, Asc("C"), ID_EDIT_COPY
    CommandBars.KeyBindings.Add FCONTROL, Asc("V"), ID_EDIT_PASTE

    CommandBars.Options.ShowExpandButtonAlways = False

    CommandBars.VisualTheme = xtpThemeOffice2003

    LoadNewDoc

End Sub

Replies:

Posted By: Oleg
Date Posted: 16 October 2005 at 12:37pm

AddImageList is quite obsolete method, better use ImageManager control and use its icons:

Set CommandBars.Icons = ImageManager.Icons.

-------------
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS

Posted By: Krenshau
Date Posted: 16 October 2005 at 4:13pm

Really, because that is in the tutorial and in the sample file for VB. Thank you though. I will try that.

Posted By: pcmaker
Date Posted: 19 October 2005 at 7:55am

IF UNDERSTAND GOOD, YOU TRY TO INSERT ICONS IN A SUB-MENUS, IN FACT, YOU TRY INSERT ICONS THIS WAY:

[iconA] MENU0
[iconB] MENU1 > SUBMENU0
                        > SUBMENU1
                      > SUBMENU2
                      > SUBMENU3
                      > SUBMENU4
                      > SUBMENU n
[iconC] MENU2

AND ICON B WONT SHOW, IS TRUE?
I HAVE THE SAME PROBLEM AND USE THE IMAGEMANAGER NOT FIX IT.

IF SOMEBODY KNOW THEN SOLUTION, PLEASE, TELL US.

THANKS.

Posted By: Oleg
Date Posted: 19 October 2005 at 8:19am

No, i guess it is another...

1. Call Control.IconId = ID_OF_ICON

2. Call Control.Style = xtpButtonIconAndCaption

-------------
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS

Posted By: pcmaker
Date Posted: 19 October 2005 at 9:01am

I SOLVE THIS PROBLEM OF FOLOW WAY:

Set m_paramt = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 4, "Parametros", -1, False)
    With m_paramt.CommandBar.Controls
        Set menu = .Add(xtpControlButtonPopup, 4000, "&Financieros", -1, False)
menu.CommandBar.Controls.Add xtpControlButton, 4001, "Monedas", -1, False
menu.CommandBar.Controls.Add xtpControlButton, 4002, "Indicadores Econ�micos", -1, False
        menu.BeginGroup = True
        Set menu = .Add(xtpControlButtonPopup, 4010, "Geograficos", -1, False)
menu.CommandBar.Controls.Add xtpControlButton, 4011, "Pa�s", -1, False
menu.CommandBar.Controls.Add xtpControlButton, 4012, "Estado", -1, False
menu.CommandBar.Controls.Add xtpControlButton, 4013, "Municipio", -1, False
menu.CommandBar.Controls.Add xtpControlButton, 4014, "Ciudad", -1, False
        menu.BeginGroup = True
        Set menu = .Add(xtpControlButtonPopup, 4020, "Contables", -1, False)
menu.CommandBar.Controls.Add xtpControlButton, 4021, "Centros de Costo", menu.CommandBar.Controls.Add xtpControlButton, 4022, "Comprobantes Contables", -1, False
        menu.BeginGroup = True
        Set menu = .Add(xtpControlButtonPopup, 4030, "Inventario", -1, False)
menu.CommandBar.Controls.Add xtpControlButton, 4031, "Ubicaciones", -1, False
        menu.BeginGroup = True
        Set menu = .Add(xtpControlButtonPopup, 4040, "Obras en Proceso", -1, False)
menu.CommandBar.Controls.Add xtpControlButton, 4041, "Unidades T�cnicas", -1, False
menu.CommandBar.Controls.Add xtpControlButton, 4042, "Provedores", -1, False
        menu.BeginGroup = True
    End With

AND USE Set CommandBars.Icons = ImageManager.Icons