visual studio menustrip mdi window list item

#Visual studio menustrip mdi window list item windows#

In the Click event handlerįor each of these menu items, call the Form class’s LayoutMdi This in turn will always display the current list of MDIĪrrange Icons.

#Visual studio menustrip mdi window list item windows#

True causes the Windows Forms framework to add andĭelete menu items to and from this menu item as It is the MdiList property that makes the

(usually Window) and its MdiList property to First, add a menu item to the MDI parentįorm’s main menu, setting its Text property to anything desired To add a Window menu to the parent form of an MDI application, Public Sub New(ByVal name As String, ByVal parent As Form) Public Sub mnuCascade_Click(o As Object, e As EventArgs) _ Handles mnuCascade.Click LayoutMdi(MdiLayout.Cascade) End Sub Public Sub mnuTileHoriz_Click(o As Object, e As EventArgs) _ Handles mnuTileHoriz.Click LayoutMdi(MdiLayout.TileHorizontal) End Sub Public Sub mnuTileVert_Click(o As Object, e As EventArgs) _ Handles mnuTileVert.Click LayoutMdi(MdiLayout.TileVertical) End Sub Public Sub mnuArrangeAll_Click(o As Object, e As EventArgs) _ Handles mnuArrangeAll.Click LayoutMdi(MdiLayout.ArrangeIcons) End Sub ' Create main menu MyMainMenu = New MainMenu( ) ' Define menu items mnuWindow = New MenuItem( ) mnuTileHoriz = New MenuItem( ) mnuTileVert = New MenuItem( ) mnuCascade = New MenuItem( ) mnuArrangeAll = New MenuItem( ) ' Set menu properties mnuWindow.Text = '&Window' mnuWindow.MdiList = True mnuTileHoriz.Text = 'Tile Horizontally' mnuTileVert.Text = 'Tile Vertically' mnuCascade.Text = 'Cascade' mnuArrangeAll.Text = 'Arrange Icons' ' Add items to menu (mnuWindow) (mnuCascade) (mnuTileHoriz) (mnuTileVert) (mnuArrangeAll) ' Assign menu to form Me.Menu = MyMainMenuĭim m圜hild As New DocumentForm('My Document', Me) ' Declare MainForm's main menu Private myMainMenu As MainMenu ' Declare Windows menu Protected WithEvents mnuWindow As MenuItem Protected WithEvents mnuTileHoriz As MenuItem Protected WithEvents mnuCascade As MenuItem Protected WithEvents mnuTileVert As MenuItem Protected WithEvents mnuArrangeAll As MenuItem