Codejock Developer Community : VB.NET upgrade of VB6 application

Codejock Developer Community : VB.NET upgrade of VB6 application http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 30 Apr 2026 16:00:22 +0000 Wed, 05 Oct 2005 01:09:10 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=3001 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[VB.NET upgrade of VB6 application : Add this Dim ctrl As ControlFor...]]> http://forum.codejock.com/forum_posts.asp?TID=3001&PID=8971&title=vb-net-upgrade-of-vb6-application#8971 Author: Oleg
Subject: 3001
Posted: 05 October 2005 at 1:09am

Add this

Dim ctrl As Control
For Each ctrl In Controls
If (ctrl.GetType Is GetType(System.Windows.Forms.MdiClient)) Then
CommandBars.SetMDIClient(ctrl.Handle.ToInt32)
End

]]> Wed, 05 Oct 2005 01:09:10 +0000 http://forum.codejock.com/forum_posts.asp?TID=3001&PID=8971&title=vb-net-upgrade-of-vb6-application#8971 <![CDATA[VB.NET upgrade of VB6 application : Command Bars ActiveX works fine...]]> http://forum.codejock.com/forum_posts.asp?TID=3001&PID=8955&title=vb-net-upgrade-of-vb6-application#8955 Author: olofh
Subject: 3001
Posted: 04 October 2005 at 10:44am

Command Bars ActiveX works fine when IsMDiContainer property of main form is set to False; however, the menu does not display if set to True.

I created a simple test Windows Application project using Visual Studio 2005 RC, and then added a COM reference to Xtreme CommandBars ActiveX Control 9.60.

Test form load looks like this...

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim m_menuBar As XtremeCommandBars.CommandBar
m_menuBar = Me.CommandBarsMgr.ActiveMenuBar

        Dim Control As XtremeCommandBars.CommandBarControl
        'turn off expand arrow (right arrow on tool bar)
        Me.CommandBarsMgr.Options.ShowExpandButtonAlways = False
        m_menuBar.Closeable = False

        Dim FileMenu As XtremeCommandBars.CommandBarControl
        FileMenu = m_menuBar.Controls.Add(XtremeCommandBars.XTPControlType.xtpC ontrolPopup, 0, "&File")
        FileMenu.Id = 2100

        With FileMenu.CommandBar.Controls
           'UPGRADE_WARNING: Couldn't resolve default property of object FileMenu.CommandBar. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keywor d="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
           .Add(XtremeCommandBars.XTPControlType.xtpControlButton, 2101, "&New Client File")
           'UPGRADE_WARNING: Couldn't resolve default property of object FileMenu.CommandBar. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keywor d="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
           .Add(XtremeCommandBars.XTPControlType.xtpControlButton, 2102, "&Open Client File...")
           'UPGRADE_WARNING: Couldn't resolve default property of object FileMenu.CommandBar. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keywor d="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
           .Add(XtremeCommandBars.XTPControlType.xtpControlButton, 2103, "&Save Client File")
           'UPGRADE_WARNING: Couldn't resolve default property of object FileMenu.CommandBar. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keywor d="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
           .Add(XtremeCommandBars.XTPControlType.xtpControlButton, 2104, "Save Client File &As...")
        End With

Me.CommandBarsMgr.ActiveMenuBar.Visible = True

End Sub

]]> Tue, 04 Oct 2005 10:44:23 +0000 http://forum.codejock.com/forum_posts.asp?TID=3001&PID=8955&title=vb-net-upgrade-of-vb6-application#8955