Codejock Developer Community : Icons won’t load http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 14 May 2026 04:30:57 +0000 Wed, 19 Oct 2005 09:01:42 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=3040 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Icons won’t load : I SOLVE THIS PROBLEM OF...]]> http://forum.codejock.com/forum_posts.asp?TID=3040&PID=9130&title=icons-wont-load#9130 Author: pcmaker
Subject: 3040
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, "IndicadoresEconó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 deCosto", menu.CommandBar.Controls.Add xtpControlButton, 4022, "ComprobantesContables", -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, "UnidadesTé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]]> Wed, 19 Oct 2005 09:01:42 +0000 http://forum.codejock.com/forum_posts.asp?TID=3040&PID=9130&title=icons-wont-load#9130 <![CDATA[Icons won’t load : No, i guess it is another... 1....]]> http://forum.codejock.com/forum_posts.asp?TID=3040&PID=9128&title=icons-wont-load#9128 Author: Oleg
Subject: 3040
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

]]> Wed, 19 Oct 2005 08:19:36 +0000 http://forum.codejock.com/forum_posts.asp?TID=3040&PID=9128&title=icons-wont-load#9128 <![CDATA[Icons won’t load : IF UNDERSTAND GOOD, YOU TRY...]]> http://forum.codejock.com/forum_posts.asp?TID=3040&PID=9123&title=icons-wont-load#9123 Author: pcmaker
Subject: 3040
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]]> Wed, 19 Oct 2005 07:55:36 +0000 http://forum.codejock.com/forum_posts.asp?TID=3040&PID=9123&title=icons-wont-load#9123 <![CDATA[Icons won’t load : Really, because that is in the...]]> http://forum.codejock.com/forum_posts.asp?TID=3040&PID=9066&title=icons-wont-load#9066 Author: Krenshau
Subject: 3040
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.]]> Sun, 16 Oct 2005 16:13:44 +0000 http://forum.codejock.com/forum_posts.asp?TID=3040&PID=9066&title=icons-wont-load#9066 <![CDATA[Icons won’t load : AddImageList is quite obsolete...]]> http://forum.codejock.com/forum_posts.asp?TID=3040&PID=9063&title=icons-wont-load#9063 Author: Oleg
Subject: 3040
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.

 

]]> Sun, 16 Oct 2005 12:37:51 +0000 http://forum.codejock.com/forum_posts.asp?TID=3040&PID=9063&title=icons-wont-load#9063 <![CDATA[Icons won’t load : I am trying out this product to...]]> http://forum.codejock.com/forum_posts.asp?TID=3040&PID=9060&title=icons-wont-load#9060 Author: Krenshau
Subject: 3040
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

 

]]> Sat, 15 Oct 2005 22:07:06 +0000 http://forum.codejock.com/forum_posts.asp?TID=3040&PID=9060&title=icons-wont-load#9060