Codejock Developer Community : DialogBar Problem in VB.Net http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sun, 14 Jun 2026 22:44:05 +0000 Mon, 06 Apr 2009 10:08:51 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=13895 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[DialogBar Problem in VB.Net : Thank you! Tim ]]> http://forum.codejock.com/forum_posts.asp?TID=13895&PID=47601&title=dialogbar-problem-in-vb-net#47601 Author: TShriver
Subject: 13895
Posted: 06 April 2009 at 10:08am

Thank you!
 
Tim
]]> Mon, 06 Apr 2009 10:08:51 +0000 http://forum.codejock.com/forum_posts.asp?TID=13895&PID=47601&title=dialogbar-problem-in-vb-net#47601 <![CDATA[DialogBar Problem in VB.Net : Hi, By &#034;it&#034; I mean...]]> http://forum.codejock.com/forum_posts.asp?TID=13895&PID=47529&title=dialogbar-problem-in-vb-net#47529 Author: Oleg
Subject: 13895
Posted: 03 April 2009 at 12:56am

Hi,
 
By "it" I mean this line "Me.Controls.Remove(PanelSummary)" add "it" before "DialogBar = CommandBars.AddDialogBar"
]]> Fri, 03 Apr 2009 00:56:25 +0000 http://forum.codejock.com/forum_posts.asp?TID=13895&PID=47529&title=dialogbar-problem-in-vb-net#47529 <![CDATA[DialogBar Problem in VB.Net : Oleg, I&#039;m confused. When...]]> http://forum.codejock.com/forum_posts.asp?TID=13895&PID=47496&title=dialogbar-problem-in-vb-net#47496 Author: TShriver
Subject: 13895
Posted: 02 April 2009 at 8:50am

Oleg,
 
I'm confused.  When you say "Add it before you setup PanelSummary as Dialog Bar", what is the "it" you are referring too?
 
By "it" do you mean I should remove the DialogBar add the child form and then recreate the DialogBar???  I've tried that and other combinations.  Could you be more specific?
 
Thanks,
 
Tim
 
This is the FormLoad part of the code that was attached in the previous post from the RibbonMDI Sample.
 

        Private Sub frmMain_Load(ByVal eventSender As Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
            CreateRibbonBar()
 
            CommandBars.KeyBindings.Add(ID.FCONTROL, System.Convert.ToInt32("N"c), ID.ID_FILE_NEW)
            CommandBars.KeyBindings.Add(ID.FCONTROL, System.Convert.ToInt32("O"c), ID.ID_FILE_OPEN)
            CommandBars.KeyBindings.Add(ID.FCONTROL, System.Convert.ToInt32("S"c), ID.ID_FILE_SAVE)
            CommandBars.KeyBindings.Add(ID.FCONTROL, System.Convert.ToInt32("X"c), ID.ID_EDIT_CUT)
            CommandBars.KeyBindings.Add(ID.FCONTROL, System.Convert.ToInt32("C"c), ID.ID_EDIT_COPY)
            CommandBars.KeyBindings.Add(ID.FCONTROL, System.Convert.ToInt32("V"c), ID.ID_EDIT_PASTE)
            CommandBars.KeyBindings.Add(ID.FCONTROL, System.Convert.ToInt32("A"c), ID.ID_EDIT_SELECT_ALL)
 
            LoadIcons()
 
            Dim StatusBar As XtremeCommandBars.StatusBar = Nothing
            StatusBar = CommandBars.StatusBar
            StatusBar.Visible = True
            StatusBar.AddPane(0)
            StatusBar.AddPane(ID.ID_INDICATOR_CAPS)
            StatusBar.AddPane(ID.ID_INDICATOR_NUM)
            StatusBar.AddPane(ID.ID_INDICATOR_SCRL)
 
            DialogBar = CommandBars.AddDialogBar("TaskPanel", XtremeCommandBars.XTPBarPosition.xtpBarTop)
            DialogBar.Caption = "DialogBar"
            DialogBar.EnableAnimation = True
            DialogBar.Closeable = True
            DialogBar.EnableDocking(XtremeCommandBars.XTPToolBarFlags.xtpFlagAlignTop)
            DialogBar.Resizable = False
            DialogBar.ChildHandle = PanelSummary.Handle.ToInt32
            DialogBar.ShowGripper = False
            DialogBar.SetSize(1800, 48)
 
            RibbonBar().EnableFrameTheme()
 
            CommandBars.Options.KeyboardCuesShow = XtremeCommandBars.XTPKeyboardCuesShow.xtpKeyboardCuesShowWindowsDefault
 
            Dim ctrl As Control
            For Each ctrl In Me.Controls
                If TypeOf ctrl Is MdiClient Then
                    CommandBars.SetMDIClient(ctrl.Handle.ToInt32())
                End If
            Next ctrl
 
            '     Dim Workspace As XtremeCommandBars.TabWorkspace
 
            CommandBars.EnableCustomization(True)

        End Sub

]]> Thu, 02 Apr 2009 08:50:18 +0000 http://forum.codejock.com/forum_posts.asp?TID=13895&PID=47496&title=dialogbar-problem-in-vb-net#47496 <![CDATA[DialogBar Problem in VB.Net : Hi, Add it before you setup...]]> http://forum.codejock.com/forum_posts.asp?TID=13895&PID=47484&title=dialogbar-problem-in-vb-net#47484 Author: Oleg
Subject: 13895
Posted: 02 April 2009 at 5:09am

Hi,
 
Add it before you setup PanelSummary as Dialog Bar
 
Me.Controls.Remove(PanelSummary)
]]> Thu, 02 Apr 2009 05:09:52 +0000 http://forum.codejock.com/forum_posts.asp?TID=13895&PID=47484&title=dialogbar-problem-in-vb-net#47484 <![CDATA[DialogBar Problem in VB.Net : I have migrated our vb6 code to...]]> http://forum.codejock.com/forum_posts.asp?TID=13895&PID=47462&title=dialogbar-problem-in-vb-net#47462 Author: TShriver
Subject: 13895
Posted: 01 April 2009 at 4:28pm

I have migrated our vb6 code to VB.net and have come upon an issue with the DialogBar in an MDI Form.  When an MDIchild is present on the form and the parent is resized, the Child flashes in the upper left of the form until the resize event is complete.  If there is no DialogBar the form resizes without any strange form drawing ghosts. 

In VB6 we used a PictureBox control as the container for the objects.  In VB.net the PictureBox is no longer a container so we have used the Panel control as the container.  Is there a correct way to use the DialogBar in .net or perhaps a work around? At the end of this post I have attached the CodeJock RibbonMDISample with the addition of a DialogBar to illustrate the problem.
 
Thank you for any help!
 
Tim
 
Here is a screen shot before the Resize:
 
Here is a screen shot during the Resize:
 
uploads/20090401_162642_RibbonMDISample.zip
]]> Wed, 01 Apr 2009 16:28:00 +0000 http://forum.codejock.com/forum_posts.asp?TID=13895&PID=47462&title=dialogbar-problem-in-vb-net#47462