Codejock Developer Community : CreateCommandBarControl And Click http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 13 Jun 2026 20:09:56 +0000 Wed, 27 Oct 2010 09:52:28 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=17493 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[CreateCommandBarControl And Click : Hello everyone,I&#039;m trying...]]> http://forum.codejock.com/forum_posts.asp?TID=17493&PID=61184&title=createcommandbarcontrol-and-click#61184 Author: MottoDoki
Subject: 17493
Posted: 27 October 2010 at 9:52am


Hello everyone,

I'm trying to use a ControlMarkupLabel on my CommandBar and doing like RibbonSample App Sample (but no ribbon style Embarrassed  ):
Dim ToolBarMenuFile As CommandBar
Dim ControlWS As CommandBarControl
Set ToolBarMenuFile = CommandBars.Add("TBMenu_File", xtpBarTop)
With ToolBarMenuFile
            Set ControlWS = CommandBars.CreateCommandBarControl("CXTPControlMarkupLabel")
            ControlWS.Id = ID_CMDBAR_MDIMAIN_WS
            ControlWS.Caption = "<TextBlock TextAlignment='Center'><Image Margin='0, 0, 0, 0' Cursor='Hand' Source='file://mypicture.ico'/></TextBlock>"
            ControlWS.BeginGroup = True
            ControlWS.Enabled = True
            .Controls.AddControl ControlWS
End With

In that case CommandBars_Execute event never fire.

So i tried something else like that, using external  MarkupLabel and custom control:
Dim ToolBarMenuFile As CommandBar
Dim ControlWS As CommandBarControl
Set ToolBarMenuFile = CommandBars.Add("TBMenu_File", xtpBarTop)
With ToolBarMenuFile
                       mklWS.Caption = "<TextBlock TextAlignment='Center'><Image Margin='0, 0, 0, 0' Cursor='Hand' Source='file://mypicture.ico'/></TextBlock>"
            Set ControlWS = CommandBars.CreateCommandBarControl("CXTPControlCustom")
            ControlWS.Style = xtpButtonIcon
            ControlWS.BeginGroup = True
            ControlWS.Id = ID_CMDBAR_MDIMAIN_WS
            ControlWS.Flags = xtpFlagControlStretched
            ControlWS.Handle = mklWS.hWnd
            .Controls.AddControl ControlWS
EndWith

In this case CommandBars_Execute event fire after 2 click and the first click make the icon to disappear Dead

So if anyone have any idea i will really appreciate thank you

Using CJ 13.4.1 Under XP sp3 And VB6 sp6 Icon Size are 32*32



]]> Wed, 27 Oct 2010 09:52:28 +0000 http://forum.codejock.com/forum_posts.asp?TID=17493&PID=61184&title=createcommandbarcontrol-and-click#61184