Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Command Bars
  New Posts New Posts RSS Feed - Icons won’t load
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Icons won’t load
 Post Reply Post Reply
Author
Message
  Topic Search Topic Search  Topic Options Topic Options
Krenshau View Drop Down
Groupie
Groupie
Avatar

Joined: 15 October 2005
Location: United States
Status: Offline
Points: 49 		Post Options Post Options   Thanks (0) Thanks(0)   Quote Krenshau Quote  Post ReplyReply Direct Link To This Post Topic: Icons won’t load
    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

 
Back to Top
Oleg View Drop Down
Admin Group
Admin Group


Joined: 21 May 2003
Location: United States
Status: Offline
Points: 11234 		Post Options Post Options   Thanks (0) Thanks(0)   Quote Oleg Quote  Post ReplyReply Direct Link To This Post 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
Back to Top
Krenshau View Drop Down
Groupie
Groupie
Avatar

Joined: 15 October 2005
Location: United States
Status: Offline
Points: 49 		Post Options Post Options   Thanks (0) Thanks(0)   Quote Krenshau Quote  Post ReplyReply Direct Link To This Post 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.
Back to Top
pcmaker View Drop Down
Groupie
Groupie
Avatar

Joined: 05 May 2005
Location: Venezuela
Status: Offline
Points: 23 		Post Options Post Options   Thanks (0) Thanks(0)   Quote pcmaker Quote  Post ReplyReply Direct Link To This Post 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.


Edited by pcmaker
Back to Top
Oleg View Drop Down
Admin Group
Admin Group


Joined: 21 May 2003
Location: United States
Status: Offline
Points: 11234 		Post Options Post Options   Thanks (0) Thanks(0)   Quote Oleg Quote  Post ReplyReply Direct Link To This Post 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
Back to Top
pcmaker View Drop Down
Groupie
Groupie
Avatar

Joined: 05 May 2005
Location: Venezuela
Status: Offline
Points: 23 		Post Options Post Options   Thanks (0) Thanks(0)   Quote pcmaker Quote  Post ReplyReply Direct Link To This Post 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

Edited by pcmaker
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.180 seconds.