VB.Net Tutorial/GUI Applications/Editor
MDI based on editor
<source lang="vbnet">Imports System.IO Imports System.Windows.Forms public class MDIParentEditor
public Shared Sub Main Application.Run(New MDIParent1) End Sub
End class Public Class MDIParent1
Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click Dim frm As New Form1 frm.MdiParent = Me frm.Show() End Sub Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click Dim dlgOpen As New OpenFileDialog If dlgOpen.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then Dim frm As New Form1 frm.txtContents.Text = File.ReadAllText(dlgOpen.FileName) frm.txtContents.Select(0, 0) frm.Text = New FileInfo(dlgOpen.FileName).Name frm.MdiParent = Me frm.Show() End If End Sub Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles SaveAsToolStripMenuItem.Click Dim SaveFileDialog As New SaveFileDialog SaveFileDialog.InitialDirectory = My.ruputer.FileSystem.SpecialDirectories.MyDocuments SaveFileDialog.Filter = "Text Files (*.txt)|*.txt" SaveFileDialog.ShowDialog(Me) Dim FileName As String = SaveFileDialog.FileName Console.WriteLine("save to "+ FileName) End Sub Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Sub ToolBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ToolBarToolStripMenuItem.Click Me.ToolStrip.Visible = Me.ToolBarToolStripMenuItem.Checked End Sub Private Sub StatusBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles StatusBarToolStripMenuItem.Click Me.StatusStrip.Visible = Me.StatusBarToolStripMenuItem.Checked End Sub Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.Cascade) End Sub Private Sub TileVerticleToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileVertical) End Sub Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End Sub Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.ArrangeIcons) End Sub Private Sub MinimizeAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinimizeAllToolStripMenuItem.Click For Each frm As Form In Me.MdiChildren frm.WindowState = FormWindowState.Minimized Next frm End Sub Private Sub RestoreAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RestoreAllToolStripMenuItem.Click For Each frm As Form In Me.MdiChildren frm.WindowState = FormWindowState.Normal Next frm End Sub Private Sub MaximizeAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MaximizeAllToolStripMenuItem.Click For Each frm As Form In Me.MdiChildren frm.WindowState = FormWindowState.Maximized Next frm End Sub Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click For Each frm As Form In Me.MdiChildren frm.Close() Next End Sub
End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class MDIParent1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub
"Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.ruponents = New System.ruponentModel.Container Me.ContentsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.HelpMenu = New System.Windows.Forms.ToolStripMenuItem Me.IndexToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.SearchToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ArrangeIconsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.CloseAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.NewWindowToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.WindowsMenu = New System.Windows.Forms.ToolStripMenuItem Me.CascadeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.TileVerticalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.TileHorizontalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.OptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.HelpToolStripButton = New System.Windows.Forms.ToolStripButton Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator Me.PrintPreviewToolStripButton = New System.Windows.Forms.ToolStripButton Me.ToolTip = New System.Windows.Forms.ToolTip(Me.ruponents) Me.ToolStripStatusLabel = New System.Windows.Forms.ToolStripStatusLabel Me.StatusStrip = New System.Windows.Forms.StatusStrip Me.PrintToolStripButton = New System.Windows.Forms.ToolStripButton Me.NewToolStripButton = New System.Windows.Forms.ToolStripButton Me.ToolStrip = New System.Windows.Forms.ToolStrip Me.OpenToolStripButton = New System.Windows.Forms.ToolStripButton Me.SaveToolStripButton = New System.Windows.Forms.ToolStripButton Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator Me.PrintPreviewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.PrintToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator Me.PrintSetupToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.SaveAsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.FileMenu = New System.Windows.Forms.ToolStripMenuItem Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.MenuStrip = New System.Windows.Forms.MenuStrip Me.EditMenu = New System.Windows.Forms.ToolStripMenuItem Me.UndoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.RedoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator Me.CutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.PasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator Me.SelectAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ViewMenu = New System.Windows.Forms.ToolStripMenuItem Me.ToolBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.StatusBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ToolsMenu = New System.Windows.Forms.ToolStripMenuItem Me.MaximizeAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.MinimizeAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.RestoreAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.StatusStrip.SuspendLayout() Me.ToolStrip.SuspendLayout() Me.MenuStrip.SuspendLayout() Me.SuspendLayout() " "ContentsToolStripMenuItem " Me.ContentsToolStripMenuItem.Name = "ContentsToolStripMenuItem" Me.ContentsToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F1), System.Windows.Forms.Keys) Me.ContentsToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.ContentsToolStripMenuItem.Text = "&Contents" " "HelpMenu " Me.HelpMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ContentsToolStripMenuItem, Me.IndexToolStripMenuItem, Me.SearchToolStripMenuItem, Me.ToolStripSeparator8, Me.AboutToolStripMenuItem}) Me.HelpMenu.Name = "HelpMenu" Me.HelpMenu.Size = New System.Drawing.Size(49, 20) Me.HelpMenu.Text = "&Help" " "IndexToolStripMenuItem " Me.IndexToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.IndexToolStripMenuItem.Name = "IndexToolStripMenuItem" Me.IndexToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.IndexToolStripMenuItem.Text = "&Index" " "SearchToolStripMenuItem " Me.SearchToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.SearchToolStripMenuItem.Name = "SearchToolStripMenuItem" Me.SearchToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.SearchToolStripMenuItem.Text = "&Search" " "ToolStripSeparator8 " Me.ToolStripSeparator8.Name = "ToolStripSeparator8" Me.ToolStripSeparator8.Size = New System.Drawing.Size(191, 6) " "AboutToolStripMenuItem " Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem" Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.AboutToolStripMenuItem.Text = "&About ..." " "ArrangeIconsToolStripMenuItem " Me.ArrangeIconsToolStripMenuItem.Name = "ArrangeIconsToolStripMenuItem" Me.ArrangeIconsToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.ArrangeIconsToolStripMenuItem.Text = "&Arrange Icons" " "CloseAllToolStripMenuItem " Me.CloseAllToolStripMenuItem.Name = "CloseAllToolStripMenuItem" Me.CloseAllToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.CloseAllToolStripMenuItem.Text = "C&lose All" " "NewWindowToolStripMenuItem " Me.NewWindowToolStripMenuItem.Name = "NewWindowToolStripMenuItem" Me.NewWindowToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.NewWindowToolStripMenuItem.Text = "&New Window" " "WindowsMenu " Me.WindowsMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewWindowToolStripMenuItem, Me.CascadeToolStripMenuItem, Me.TileVerticalToolStripMenuItem, Me.TileHorizontalToolStripMenuItem, Me.MinimizeAllToolStripMenuItem, Me.MaximizeAllToolStripMenuItem, Me.RestoreAllToolStripMenuItem, Me.CloseAllToolStripMenuItem, Me.ArrangeIconsToolStripMenuItem}) Me.WindowsMenu.Name = "WindowsMenu" Me.WindowsMenu.Size = New System.Drawing.Size(78, 20) Me.WindowsMenu.Text = "&Windows" " "CascadeToolStripMenuItem " Me.CascadeToolStripMenuItem.Name = "CascadeToolStripMenuItem" Me.CascadeToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.CascadeToolStripMenuItem.Text = "&Cascade" " "TileVerticalToolStripMenuItem " Me.TileVerticalToolStripMenuItem.Name = "TileVerticalToolStripMenuItem" Me.TileVerticalToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.TileVerticalToolStripMenuItem.Text = "Tile &Vertical" " "TileHorizontalToolStripMenuItem " Me.TileHorizontalToolStripMenuItem.Name = "TileHorizontalToolStripMenuItem" Me.TileHorizontalToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.TileHorizontalToolStripMenuItem.Text = "Tile &Horizontal" " "OptionsToolStripMenuItem " Me.OptionsToolStripMenuItem.Name = "OptionsToolStripMenuItem" Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.OptionsToolStripMenuItem.Text = "&Options" " "HelpToolStripButton " Me.HelpToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.HelpToolStripButton.ImageTransparentColor = System.Drawing.Color.Black Me.HelpToolStripButton.Name = "HelpToolStripButton" Me.HelpToolStripButton.Size = New System.Drawing.Size(23, 22) Me.HelpToolStripButton.Text = "Help" " "ToolStripSeparator2 " Me.ToolStripSeparator2.Name = "ToolStripSeparator2" Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25) " "PrintPreviewToolStripButton " Me.PrintPreviewToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.PrintPreviewToolStripButton.ImageTransparentColor = System.Drawing.Color.Black Me.PrintPreviewToolStripButton.Name = "PrintPreviewToolStripButton" Me.PrintPreviewToolStripButton.Size = New System.Drawing.Size(23, 22) Me.PrintPreviewToolStripButton.Text = "Print Preview" " "ToolStripStatusLabel " Me.ToolStripStatusLabel.Name = "ToolStripStatusLabel" Me.ToolStripStatusLabel.Size = New System.Drawing.Size(47, 17) Me.ToolStripStatusLabel.Text = "Status" " "StatusStrip " Me.StatusStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel}) Me.StatusStrip.Location = New System.Drawing.Point(0, 431) Me.StatusStrip.Name = "StatusStrip" Me.StatusStrip.Size = New System.Drawing.Size(632, 22) Me.StatusStrip.TabIndex = 7 Me.StatusStrip.Text = "StatusStrip" " "PrintToolStripButton " Me.PrintToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.PrintToolStripButton.ImageTransparentColor = System.Drawing.Color.Black Me.PrintToolStripButton.Name = "PrintToolStripButton" Me.PrintToolStripButton.Size = New System.Drawing.Size(23, 22) Me.PrintToolStripButton.Text = "Print" " "NewToolStripButton " Me.NewToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.NewToolStripButton.ImageTransparentColor = System.Drawing.Color.Black Me.NewToolStripButton.Name = "NewToolStripButton" Me.NewToolStripButton.Size = New System.Drawing.Size(23, 22) Me.NewToolStripButton.Text = "New" " "ToolStrip " Me.ToolStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripButton, Me.OpenToolStripButton, Me.SaveToolStripButton, Me.ToolStripSeparator1, Me.PrintToolStripButton, Me.PrintPreviewToolStripButton, Me.ToolStripSeparator2, Me.HelpToolStripButton}) Me.ToolStrip.Location = New System.Drawing.Point(0, 24) Me.ToolStrip.Name = "ToolStrip" Me.ToolStrip.Size = New System.Drawing.Size(632, 25) Me.ToolStrip.TabIndex = 6 Me.ToolStrip.Text = "ToolStrip" " "OpenToolStripButton " Me.OpenToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.OpenToolStripButton.ImageTransparentColor = System.Drawing.Color.Black Me.OpenToolStripButton.Name = "OpenToolStripButton" Me.OpenToolStripButton.Size = New System.Drawing.Size(23, 22) Me.OpenToolStripButton.Text = "Open" " "SaveToolStripButton " Me.SaveToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.SaveToolStripButton.ImageTransparentColor = System.Drawing.Color.Black Me.SaveToolStripButton.Name = "SaveToolStripButton" Me.SaveToolStripButton.Size = New System.Drawing.Size(23, 22) Me.SaveToolStripButton.Text = "Save" " "ToolStripSeparator1 " Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) " "PrintPreviewToolStripMenuItem " Me.PrintPreviewToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.PrintPreviewToolStripMenuItem.Name = "PrintPreviewToolStripMenuItem" Me.PrintPreviewToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.PrintPreviewToolStripMenuItem.Text = "Print Pre&view" " "PrintToolStripMenuItem " Me.PrintToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.PrintToolStripMenuItem.Name = "PrintToolStripMenuItem" Me.PrintToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.P), System.Windows.Forms.Keys) Me.PrintToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.PrintToolStripMenuItem.Text = "&Print" " "ToolStripSeparator4 " Me.ToolStripSeparator4.Name = "ToolStripSeparator4" Me.ToolStripSeparator4.Size = New System.Drawing.Size(169, 6) " "ExitToolStripMenuItem " Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem" Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.ExitToolStripMenuItem.Text = "E&xit" " "ToolStripSeparator5 " Me.ToolStripSeparator5.Name = "ToolStripSeparator5" Me.ToolStripSeparator5.Size = New System.Drawing.Size(169, 6) " "PrintSetupToolStripMenuItem " Me.PrintSetupToolStripMenuItem.Name = "PrintSetupToolStripMenuItem" Me.PrintSetupToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.PrintSetupToolStripMenuItem.Text = "Print Setup" " "SaveAsToolStripMenuItem " Me.SaveAsToolStripMenuItem.Name = "SaveAsToolStripMenuItem" Me.SaveAsToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.SaveAsToolStripMenuItem.Text = "Save &As" " "NewToolStripMenuItem " Me.NewToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem" Me.NewToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys) Me.NewToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.NewToolStripMenuItem.Text = "&New" " "FileMenu " Me.FileMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.OpenToolStripMenuItem, Me.ToolStripSeparator3, Me.SaveToolStripMenuItem, Me.SaveAsToolStripMenuItem, Me.ToolStripSeparator4, Me.PrintToolStripMenuItem, Me.PrintPreviewToolStripMenuItem, Me.PrintSetupToolStripMenuItem, Me.ToolStripSeparator5, Me.ExitToolStripMenuItem}) Me.FileMenu.ImageTransparentColor = System.Drawing.SystemColors.ActiveBorder Me.FileMenu.Name = "FileMenu" Me.FileMenu.Size = New System.Drawing.Size(44, 20) Me.FileMenu.Text = "&File" " "OpenToolStripMenuItem " Me.OpenToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem" Me.OpenToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys) Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.OpenToolStripMenuItem.Text = "&Open" " "ToolStripSeparator3 " Me.ToolStripSeparator3.Name = "ToolStripSeparator3" Me.ToolStripSeparator3.Size = New System.Drawing.Size(169, 6) " "SaveToolStripMenuItem " Me.SaveToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem" Me.SaveToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys) Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.SaveToolStripMenuItem.Text = "&Save" " "MenuStrip " Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileMenu, Me.EditMenu, Me.ViewMenu, Me.ToolsMenu, Me.WindowsMenu, Me.HelpMenu}) Me.MenuStrip.Location = New System.Drawing.Point(0, 0) Me.MenuStrip.MdiWindowListItem = Me.WindowsMenu Me.MenuStrip.Name = "MenuStrip" Me.MenuStrip.Size = New System.Drawing.Size(632, 24) Me.MenuStrip.TabIndex = 5 Me.MenuStrip.Text = "MenuStrip" " "EditMenu " Me.EditMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UndoToolStripMenuItem, Me.RedoToolStripMenuItem, Me.ToolStripSeparator6, Me.CutToolStripMenuItem, Me.CopyToolStripMenuItem, Me.PasteToolStripMenuItem, Me.ToolStripSeparator7, Me.SelectAllToolStripMenuItem}) Me.EditMenu.Name = "EditMenu" Me.EditMenu.Size = New System.Drawing.Size(44, 20) Me.EditMenu.Text = "&Edit" " "UndoToolStripMenuItem " Me.UndoToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.UndoToolStripMenuItem.Name = "UndoToolStripMenuItem" Me.UndoToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Z), System.Windows.Forms.Keys) Me.UndoToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.UndoToolStripMenuItem.Text = "&Undo" " "RedoToolStripMenuItem " Me.RedoToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.RedoToolStripMenuItem.Name = "RedoToolStripMenuItem" Me.RedoToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Y), System.Windows.Forms.Keys) Me.RedoToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.RedoToolStripMenuItem.Text = "&Redo" " "ToolStripSeparator6 " Me.ToolStripSeparator6.Name = "ToolStripSeparator6" Me.ToolStripSeparator6.Size = New System.Drawing.Size(191, 6) " "CutToolStripMenuItem " Me.CutToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.CutToolStripMenuItem.Name = "CutToolStripMenuItem" Me.CutToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.X), System.Windows.Forms.Keys) Me.CutToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.CutToolStripMenuItem.Text = "Cu&t" " "CopyToolStripMenuItem " Me.CopyToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem" Me.CopyToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.C), System.Windows.Forms.Keys) Me.CopyToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.CopyToolStripMenuItem.Text = "&Copy" " "PasteToolStripMenuItem " Me.PasteToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.PasteToolStripMenuItem.Name = "PasteToolStripMenuItem" Me.PasteToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.V), System.Windows.Forms.Keys) Me.PasteToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.PasteToolStripMenuItem.Text = "&Paste" " "ToolStripSeparator7 " Me.ToolStripSeparator7.Name = "ToolStripSeparator7" Me.ToolStripSeparator7.Size = New System.Drawing.Size(191, 6) " "SelectAllToolStripMenuItem " Me.SelectAllToolStripMenuItem.Name = "SelectAllToolStripMenuItem" Me.SelectAllToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.A), System.Windows.Forms.Keys) Me.SelectAllToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.SelectAllToolStripMenuItem.Text = "Select &All" " "ViewMenu " Me.ViewMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolBarToolStripMenuItem, Me.StatusBarToolStripMenuItem}) Me.ViewMenu.Name = "ViewMenu" Me.ViewMenu.Size = New System.Drawing.Size(52, 20) Me.ViewMenu.Text = "&View" " "ToolBarToolStripMenuItem " Me.ToolBarToolStripMenuItem.Checked = True Me.ToolBarToolStripMenuItem.CheckOnClick = True Me.ToolBarToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked Me.ToolBarToolStripMenuItem.Name = "ToolBarToolStripMenuItem" Me.ToolBarToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.ToolBarToolStripMenuItem.Text = "&Toolbar" " "StatusBarToolStripMenuItem " Me.StatusBarToolStripMenuItem.Checked = True Me.StatusBarToolStripMenuItem.CheckOnClick = True Me.StatusBarToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked Me.StatusBarToolStripMenuItem.Name = "StatusBarToolStripMenuItem" Me.StatusBarToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.StatusBarToolStripMenuItem.Text = "&Status Bar" " "ToolsMenu " Me.ToolsMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionsToolStripMenuItem}) Me.ToolsMenu.Name = "ToolsMenu" Me.ToolsMenu.Size = New System.Drawing.Size(54, 20) Me.ToolsMenu.Text = "&Tools" " "MaximizeAllToolStripMenuItem " Me.MaximizeAllToolStripMenuItem.Name = "MaximizeAllToolStripMenuItem" Me.MaximizeAllToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.MaximizeAllToolStripMenuItem.Text = "Ma&ximize All" " "MinimizeAllToolStripMenuItem " Me.MinimizeAllToolStripMenuItem.Name = "MinimizeAllToolStripMenuItem" Me.MinimizeAllToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.MinimizeAllToolStripMenuItem.Text = "&Minimize All" " "RestoreAllToolStripMenuItem " Me.RestoreAllToolStripMenuItem.Name = "RestoreAllToolStripMenuItem" Me.RestoreAllToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.RestoreAllToolStripMenuItem.Text = "&Restore All" " "MDIParent1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(632, 453) Me.Controls.Add(Me.ToolStrip) Me.Controls.Add(Me.MenuStrip) Me.Controls.Add(Me.StatusStrip) Me.IsMdiContainer = True Me.MainMenuStrip = Me.MenuStrip Me.Name = "MDIParent1" Me.Text = "MDIParent1" Me.StatusStrip.ResumeLayout(False) Me.StatusStrip.PerformLayout() Me.ToolStrip.ResumeLayout(False) Me.ToolStrip.PerformLayout() Me.MenuStrip.ResumeLayout(False) Me.MenuStrip.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents ContentsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents HelpMenu As System.Windows.Forms.ToolStripMenuItem Friend WithEvents IndexToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents SearchToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator Friend WithEvents AboutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ArrangeIconsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents CloseAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents NewWindowToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents WindowsMenu As System.Windows.Forms.ToolStripMenuItem Friend WithEvents CascadeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents TileVerticalToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents TileHorizontalToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents OptionsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents HelpToolStripButton As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents PrintPreviewToolStripButton As System.Windows.Forms.ToolStripButton Friend WithEvents ToolTip As System.Windows.Forms.ToolTip Friend WithEvents ToolStripStatusLabel As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents StatusStrip As System.Windows.Forms.StatusStrip Friend WithEvents PrintToolStripButton As System.Windows.Forms.ToolStripButton Friend WithEvents NewToolStripButton As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStrip As System.Windows.Forms.ToolStrip Friend WithEvents OpenToolStripButton As System.Windows.Forms.ToolStripButton Friend WithEvents SaveToolStripButton As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator Friend WithEvents PrintPreviewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents PrintToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ExitToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator Friend WithEvents PrintSetupToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents SaveAsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents NewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents FileMenu As System.Windows.Forms.ToolStripMenuItem Friend WithEvents OpenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator Friend WithEvents SaveToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip Friend WithEvents EditMenu As System.Windows.Forms.ToolStripMenuItem Friend WithEvents UndoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents RedoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator Friend WithEvents CutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents PasteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator Friend WithEvents SelectAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ViewMenu As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolBarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents StatusBarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolsMenu As System.Windows.Forms.ToolStripMenuItem Friend WithEvents MinimizeAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents MaximizeAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents RestoreAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.txtContents = New System.Windows.Forms.TextBox Me.SuspendLayout() " "txtContents " Me.txtContents.Dock = System.Windows.Forms.DockStyle.Fill Me.txtContents.Location = New System.Drawing.Point(0, 0) Me.txtContents.Multiline = True Me.txtContents.Name = "txtContents" Me.txtContents.Size = New System.Drawing.Size(292, 273) Me.txtContents.TabIndex = 6 " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(292, 273) Me.Controls.Add(Me.txtContents) Me.Name = "Form1" Me.Text = "MdiEdit []" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents txtContents As System.Windows.Forms.TextBox
End Class</source>
MDI Editor
<source lang="vbnet">"Visual Basic 2005 Programmer"s Reference "by Rod Stephens (Author) "# Publisher: Wrox (October 21, 2005) "# Language: English "# ISBN-10: 0764571982 "# ISBN-13: 978-0764571985 Imports System.IO Imports System.Windows.Forms public class MDIParentEditor2
public Shared Sub Main Application.Run(New MDIParent1) End Sub
End class
Public Class MDIParent1
Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click Dim frm As New Form1 frm.MdiParent = Me frm.Show() End Sub Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click Dim dlgOpen As New OpenFileDialog If dlgOpen.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then Dim frm As New Form1 frm.txtContents.Text = File.ReadAllText(dlgOpen.FileName) frm.txtContents.Select(0, 0) frm.Text = New FileInfo(dlgOpen.FileName).Name frm.MdiParent = Me frm.Show() End If End Sub Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles SaveAsToolStripMenuItem.Click Dim SaveFileDialog As New SaveFileDialog SaveFileDialog.InitialDirectory = My.ruputer.FileSystem.SpecialDirectories.MyDocuments SaveFileDialog.Filter = "Text Files (*.txt)|*.txt" SaveFileDialog.ShowDialog(Me) Dim FileName As String = SaveFileDialog.FileName Console.WriteLine("save to "+ FileName) End Sub Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Sub ToolBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ToolBarToolStripMenuItem.Click Me.ToolStrip.Visible = Me.ToolBarToolStripMenuItem.Checked End Sub Private Sub StatusBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles StatusBarToolStripMenuItem.Click Me.StatusStrip.Visible = Me.StatusBarToolStripMenuItem.Checked End Sub Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.Cascade) End Sub Private Sub TileVerticleToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileVertical) End Sub Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End Sub Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.ArrangeIcons) End Sub Private Sub MinimizeAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinimizeAllToolStripMenuItem.Click For Each frm As Form In Me.MdiChildren frm.WindowState = FormWindowState.Minimized Next frm End Sub Private Sub RestoreAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RestoreAllToolStripMenuItem.Click For Each frm As Form In Me.MdiChildren frm.WindowState = FormWindowState.Normal Next frm End Sub Private Sub MaximizeAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MaximizeAllToolStripMenuItem.Click For Each frm As Form In Me.MdiChildren frm.WindowState = FormWindowState.Maximized Next frm End Sub Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click For Each frm As Form In Me.MdiChildren frm.Close() Next End Sub
End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class MDIParent1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub
"Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.ruponents = New System.ruponentModel.Container Me.ContentsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.HelpMenu = New System.Windows.Forms.ToolStripMenuItem Me.IndexToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.SearchToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ArrangeIconsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.CloseAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.NewWindowToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.WindowsMenu = New System.Windows.Forms.ToolStripMenuItem Me.CascadeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.TileVerticalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.TileHorizontalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.OptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.HelpToolStripButton = New System.Windows.Forms.ToolStripButton Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator Me.PrintPreviewToolStripButton = New System.Windows.Forms.ToolStripButton Me.ToolTip = New System.Windows.Forms.ToolTip(Me.ruponents) Me.ToolStripStatusLabel = New System.Windows.Forms.ToolStripStatusLabel Me.StatusStrip = New System.Windows.Forms.StatusStrip Me.PrintToolStripButton = New System.Windows.Forms.ToolStripButton Me.NewToolStripButton = New System.Windows.Forms.ToolStripButton Me.ToolStrip = New System.Windows.Forms.ToolStrip Me.OpenToolStripButton = New System.Windows.Forms.ToolStripButton Me.SaveToolStripButton = New System.Windows.Forms.ToolStripButton Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator Me.PrintPreviewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.PrintToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator Me.PrintSetupToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.SaveAsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.FileMenu = New System.Windows.Forms.ToolStripMenuItem Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.MenuStrip = New System.Windows.Forms.MenuStrip Me.EditMenu = New System.Windows.Forms.ToolStripMenuItem Me.UndoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.RedoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator Me.CutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.PasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator Me.SelectAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ViewMenu = New System.Windows.Forms.ToolStripMenuItem Me.ToolBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.StatusBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ToolsMenu = New System.Windows.Forms.ToolStripMenuItem Me.MaximizeAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.MinimizeAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.RestoreAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.StatusStrip.SuspendLayout() Me.ToolStrip.SuspendLayout() Me.MenuStrip.SuspendLayout() Me.SuspendLayout() " "ContentsToolStripMenuItem " Me.ContentsToolStripMenuItem.Name = "ContentsToolStripMenuItem" Me.ContentsToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F1), System.Windows.Forms.Keys) Me.ContentsToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.ContentsToolStripMenuItem.Text = "&Contents" " "HelpMenu " Me.HelpMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ContentsToolStripMenuItem, Me.IndexToolStripMenuItem, Me.SearchToolStripMenuItem, Me.ToolStripSeparator8, Me.AboutToolStripMenuItem}) Me.HelpMenu.Name = "HelpMenu" Me.HelpMenu.Size = New System.Drawing.Size(49, 20) Me.HelpMenu.Text = "&Help" " "IndexToolStripMenuItem " Me.IndexToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.IndexToolStripMenuItem.Name = "IndexToolStripMenuItem" Me.IndexToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.IndexToolStripMenuItem.Text = "&Index" " "SearchToolStripMenuItem " Me.SearchToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.SearchToolStripMenuItem.Name = "SearchToolStripMenuItem" Me.SearchToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.SearchToolStripMenuItem.Text = "&Search" " "ToolStripSeparator8 " Me.ToolStripSeparator8.Name = "ToolStripSeparator8" Me.ToolStripSeparator8.Size = New System.Drawing.Size(191, 6) " "AboutToolStripMenuItem " Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem" Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.AboutToolStripMenuItem.Text = "&About ..." " "ArrangeIconsToolStripMenuItem " Me.ArrangeIconsToolStripMenuItem.Name = "ArrangeIconsToolStripMenuItem" Me.ArrangeIconsToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.ArrangeIconsToolStripMenuItem.Text = "&Arrange Icons" " "CloseAllToolStripMenuItem " Me.CloseAllToolStripMenuItem.Name = "CloseAllToolStripMenuItem" Me.CloseAllToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.CloseAllToolStripMenuItem.Text = "C&lose All" " "NewWindowToolStripMenuItem " Me.NewWindowToolStripMenuItem.Name = "NewWindowToolStripMenuItem" Me.NewWindowToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.NewWindowToolStripMenuItem.Text = "&New Window" " "WindowsMenu " Me.WindowsMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewWindowToolStripMenuItem, Me.CascadeToolStripMenuItem, Me.TileVerticalToolStripMenuItem, Me.TileHorizontalToolStripMenuItem, Me.MinimizeAllToolStripMenuItem, Me.MaximizeAllToolStripMenuItem, Me.RestoreAllToolStripMenuItem, Me.CloseAllToolStripMenuItem, Me.ArrangeIconsToolStripMenuItem}) Me.WindowsMenu.Name = "WindowsMenu" Me.WindowsMenu.Size = New System.Drawing.Size(78, 20) Me.WindowsMenu.Text = "&Windows" " "CascadeToolStripMenuItem " Me.CascadeToolStripMenuItem.Name = "CascadeToolStripMenuItem" Me.CascadeToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.CascadeToolStripMenuItem.Text = "&Cascade" " "TileVerticalToolStripMenuItem " Me.TileVerticalToolStripMenuItem.Name = "TileVerticalToolStripMenuItem" Me.TileVerticalToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.TileVerticalToolStripMenuItem.Text = "Tile &Vertical" " "TileHorizontalToolStripMenuItem " Me.TileHorizontalToolStripMenuItem.Name = "TileHorizontalToolStripMenuItem" Me.TileHorizontalToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.TileHorizontalToolStripMenuItem.Text = "Tile &Horizontal" " "OptionsToolStripMenuItem " Me.OptionsToolStripMenuItem.Name = "OptionsToolStripMenuItem" Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.OptionsToolStripMenuItem.Text = "&Options" " "HelpToolStripButton " Me.HelpToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.HelpToolStripButton.ImageTransparentColor = System.Drawing.Color.Black Me.HelpToolStripButton.Name = "HelpToolStripButton" Me.HelpToolStripButton.Size = New System.Drawing.Size(23, 22) Me.HelpToolStripButton.Text = "Help" " "ToolStripSeparator2 " Me.ToolStripSeparator2.Name = "ToolStripSeparator2" Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25) " "PrintPreviewToolStripButton " Me.PrintPreviewToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.PrintPreviewToolStripButton.ImageTransparentColor = System.Drawing.Color.Black Me.PrintPreviewToolStripButton.Name = "PrintPreviewToolStripButton" Me.PrintPreviewToolStripButton.Size = New System.Drawing.Size(23, 22) Me.PrintPreviewToolStripButton.Text = "Print Preview" " "ToolStripStatusLabel " Me.ToolStripStatusLabel.Name = "ToolStripStatusLabel" Me.ToolStripStatusLabel.Size = New System.Drawing.Size(47, 17) Me.ToolStripStatusLabel.Text = "Status" " "StatusStrip " Me.StatusStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel}) Me.StatusStrip.Location = New System.Drawing.Point(0, 431) Me.StatusStrip.Name = "StatusStrip" Me.StatusStrip.Size = New System.Drawing.Size(632, 22) Me.StatusStrip.TabIndex = 7 Me.StatusStrip.Text = "StatusStrip" " "PrintToolStripButton " Me.PrintToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.PrintToolStripButton.ImageTransparentColor = System.Drawing.Color.Black Me.PrintToolStripButton.Name = "PrintToolStripButton" Me.PrintToolStripButton.Size = New System.Drawing.Size(23, 22) Me.PrintToolStripButton.Text = "Print" " "NewToolStripButton " Me.NewToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.NewToolStripButton.ImageTransparentColor = System.Drawing.Color.Black Me.NewToolStripButton.Name = "NewToolStripButton" Me.NewToolStripButton.Size = New System.Drawing.Size(23, 22) Me.NewToolStripButton.Text = "New" " "ToolStrip " Me.ToolStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripButton, Me.OpenToolStripButton, Me.SaveToolStripButton, Me.ToolStripSeparator1, Me.PrintToolStripButton, Me.PrintPreviewToolStripButton, Me.ToolStripSeparator2, Me.HelpToolStripButton}) Me.ToolStrip.Location = New System.Drawing.Point(0, 24) Me.ToolStrip.Name = "ToolStrip" Me.ToolStrip.Size = New System.Drawing.Size(632, 25) Me.ToolStrip.TabIndex = 6 Me.ToolStrip.Text = "ToolStrip" " "OpenToolStripButton " Me.OpenToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.OpenToolStripButton.ImageTransparentColor = System.Drawing.Color.Black Me.OpenToolStripButton.Name = "OpenToolStripButton" Me.OpenToolStripButton.Size = New System.Drawing.Size(23, 22) Me.OpenToolStripButton.Text = "Open" " "SaveToolStripButton " Me.SaveToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.SaveToolStripButton.ImageTransparentColor = System.Drawing.Color.Black Me.SaveToolStripButton.Name = "SaveToolStripButton" Me.SaveToolStripButton.Size = New System.Drawing.Size(23, 22) Me.SaveToolStripButton.Text = "Save" " "ToolStripSeparator1 " Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) " "PrintPreviewToolStripMenuItem " Me.PrintPreviewToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.PrintPreviewToolStripMenuItem.Name = "PrintPreviewToolStripMenuItem" Me.PrintPreviewToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.PrintPreviewToolStripMenuItem.Text = "Print Pre&view" " "PrintToolStripMenuItem " Me.PrintToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.PrintToolStripMenuItem.Name = "PrintToolStripMenuItem" Me.PrintToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.P), System.Windows.Forms.Keys) Me.PrintToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.PrintToolStripMenuItem.Text = "&Print" " "ToolStripSeparator4 " Me.ToolStripSeparator4.Name = "ToolStripSeparator4" Me.ToolStripSeparator4.Size = New System.Drawing.Size(169, 6) " "ExitToolStripMenuItem " Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem" Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.ExitToolStripMenuItem.Text = "E&xit" " "ToolStripSeparator5 " Me.ToolStripSeparator5.Name = "ToolStripSeparator5" Me.ToolStripSeparator5.Size = New System.Drawing.Size(169, 6) " "PrintSetupToolStripMenuItem " Me.PrintSetupToolStripMenuItem.Name = "PrintSetupToolStripMenuItem" Me.PrintSetupToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.PrintSetupToolStripMenuItem.Text = "Print Setup" " "SaveAsToolStripMenuItem " Me.SaveAsToolStripMenuItem.Name = "SaveAsToolStripMenuItem" Me.SaveAsToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.SaveAsToolStripMenuItem.Text = "Save &As" " "NewToolStripMenuItem " Me.NewToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem" Me.NewToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys) Me.NewToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.NewToolStripMenuItem.Text = "&New" " "FileMenu " Me.FileMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.OpenToolStripMenuItem, Me.ToolStripSeparator3, Me.SaveToolStripMenuItem, Me.SaveAsToolStripMenuItem, Me.ToolStripSeparator4, Me.PrintToolStripMenuItem, Me.PrintPreviewToolStripMenuItem, Me.PrintSetupToolStripMenuItem, Me.ToolStripSeparator5, Me.ExitToolStripMenuItem}) Me.FileMenu.ImageTransparentColor = System.Drawing.SystemColors.ActiveBorder Me.FileMenu.Name = "FileMenu" Me.FileMenu.Size = New System.Drawing.Size(44, 20) Me.FileMenu.Text = "&File" " "OpenToolStripMenuItem " Me.OpenToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem" Me.OpenToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys) Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.OpenToolStripMenuItem.Text = "&Open" " "ToolStripSeparator3 " Me.ToolStripSeparator3.Name = "ToolStripSeparator3" Me.ToolStripSeparator3.Size = New System.Drawing.Size(169, 6) " "SaveToolStripMenuItem " Me.SaveToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem" Me.SaveToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys) Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.SaveToolStripMenuItem.Text = "&Save" " "MenuStrip " Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileMenu, Me.EditMenu, Me.ViewMenu, Me.ToolsMenu, Me.WindowsMenu, Me.HelpMenu}) Me.MenuStrip.Location = New System.Drawing.Point(0, 0) Me.MenuStrip.MdiWindowListItem = Me.WindowsMenu Me.MenuStrip.Name = "MenuStrip" Me.MenuStrip.Size = New System.Drawing.Size(632, 24) Me.MenuStrip.TabIndex = 5 Me.MenuStrip.Text = "MenuStrip" " "EditMenu " Me.EditMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UndoToolStripMenuItem, Me.RedoToolStripMenuItem, Me.ToolStripSeparator6, Me.CutToolStripMenuItem, Me.CopyToolStripMenuItem, Me.PasteToolStripMenuItem, Me.ToolStripSeparator7, Me.SelectAllToolStripMenuItem}) Me.EditMenu.Name = "EditMenu" Me.EditMenu.Size = New System.Drawing.Size(44, 20) Me.EditMenu.Text = "&Edit" " "UndoToolStripMenuItem " Me.UndoToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.UndoToolStripMenuItem.Name = "UndoToolStripMenuItem" Me.UndoToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Z), System.Windows.Forms.Keys) Me.UndoToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.UndoToolStripMenuItem.Text = "&Undo" " "RedoToolStripMenuItem " Me.RedoToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.RedoToolStripMenuItem.Name = "RedoToolStripMenuItem" Me.RedoToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Y), System.Windows.Forms.Keys) Me.RedoToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.RedoToolStripMenuItem.Text = "&Redo" " "ToolStripSeparator6 " Me.ToolStripSeparator6.Name = "ToolStripSeparator6" Me.ToolStripSeparator6.Size = New System.Drawing.Size(191, 6) " "CutToolStripMenuItem " Me.CutToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.CutToolStripMenuItem.Name = "CutToolStripMenuItem" Me.CutToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.X), System.Windows.Forms.Keys) Me.CutToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.CutToolStripMenuItem.Text = "Cu&t" " "CopyToolStripMenuItem " Me.CopyToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem" Me.CopyToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.C), System.Windows.Forms.Keys) Me.CopyToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.CopyToolStripMenuItem.Text = "&Copy" " "PasteToolStripMenuItem " Me.PasteToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black Me.PasteToolStripMenuItem.Name = "PasteToolStripMenuItem" Me.PasteToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.V), System.Windows.Forms.Keys) Me.PasteToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.PasteToolStripMenuItem.Text = "&Paste" " "ToolStripSeparator7 " Me.ToolStripSeparator7.Name = "ToolStripSeparator7" Me.ToolStripSeparator7.Size = New System.Drawing.Size(191, 6) " "SelectAllToolStripMenuItem " Me.SelectAllToolStripMenuItem.Name = "SelectAllToolStripMenuItem" Me.SelectAllToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.A), System.Windows.Forms.Keys) Me.SelectAllToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.SelectAllToolStripMenuItem.Text = "Select &All" " "ViewMenu " Me.ViewMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolBarToolStripMenuItem, Me.StatusBarToolStripMenuItem}) Me.ViewMenu.Name = "ViewMenu" Me.ViewMenu.Size = New System.Drawing.Size(52, 20) Me.ViewMenu.Text = "&View" " "ToolBarToolStripMenuItem " Me.ToolBarToolStripMenuItem.Checked = True Me.ToolBarToolStripMenuItem.CheckOnClick = True Me.ToolBarToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked Me.ToolBarToolStripMenuItem.Name = "ToolBarToolStripMenuItem" Me.ToolBarToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.ToolBarToolStripMenuItem.Text = "&Toolbar" " "StatusBarToolStripMenuItem " Me.StatusBarToolStripMenuItem.Checked = True Me.StatusBarToolStripMenuItem.CheckOnClick = True Me.StatusBarToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked Me.StatusBarToolStripMenuItem.Name = "StatusBarToolStripMenuItem" Me.StatusBarToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.StatusBarToolStripMenuItem.Text = "&Status Bar" " "ToolsMenu " Me.ToolsMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionsToolStripMenuItem}) Me.ToolsMenu.Name = "ToolsMenu" Me.ToolsMenu.Size = New System.Drawing.Size(54, 20) Me.ToolsMenu.Text = "&Tools" " "MaximizeAllToolStripMenuItem " Me.MaximizeAllToolStripMenuItem.Name = "MaximizeAllToolStripMenuItem" Me.MaximizeAllToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.MaximizeAllToolStripMenuItem.Text = "Ma&ximize All" " "MinimizeAllToolStripMenuItem " Me.MinimizeAllToolStripMenuItem.Name = "MinimizeAllToolStripMenuItem" Me.MinimizeAllToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.MinimizeAllToolStripMenuItem.Text = "&Minimize All" " "RestoreAllToolStripMenuItem " Me.RestoreAllToolStripMenuItem.Name = "RestoreAllToolStripMenuItem" Me.RestoreAllToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.RestoreAllToolStripMenuItem.Text = "&Restore All" " "MDIParent1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(632, 453) Me.Controls.Add(Me.ToolStrip) Me.Controls.Add(Me.MenuStrip) Me.Controls.Add(Me.StatusStrip) Me.IsMdiContainer = True Me.MainMenuStrip = Me.MenuStrip Me.Name = "MDIParent1" Me.Text = "MDIParent1" Me.StatusStrip.ResumeLayout(False) Me.StatusStrip.PerformLayout() Me.ToolStrip.ResumeLayout(False) Me.ToolStrip.PerformLayout() Me.MenuStrip.ResumeLayout(False) Me.MenuStrip.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents ContentsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents HelpMenu As System.Windows.Forms.ToolStripMenuItem Friend WithEvents IndexToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents SearchToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator Friend WithEvents AboutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ArrangeIconsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents CloseAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents NewWindowToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents WindowsMenu As System.Windows.Forms.ToolStripMenuItem Friend WithEvents CascadeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents TileVerticalToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents TileHorizontalToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents OptionsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents HelpToolStripButton As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents PrintPreviewToolStripButton As System.Windows.Forms.ToolStripButton Friend WithEvents ToolTip As System.Windows.Forms.ToolTip Friend WithEvents ToolStripStatusLabel As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents StatusStrip As System.Windows.Forms.StatusStrip Friend WithEvents PrintToolStripButton As System.Windows.Forms.ToolStripButton Friend WithEvents NewToolStripButton As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStrip As System.Windows.Forms.ToolStrip Friend WithEvents OpenToolStripButton As System.Windows.Forms.ToolStripButton Friend WithEvents SaveToolStripButton As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator Friend WithEvents PrintPreviewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents PrintToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ExitToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator Friend WithEvents PrintSetupToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents SaveAsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents NewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents FileMenu As System.Windows.Forms.ToolStripMenuItem Friend WithEvents OpenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator Friend WithEvents SaveToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip Friend WithEvents EditMenu As System.Windows.Forms.ToolStripMenuItem Friend WithEvents UndoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents RedoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator Friend WithEvents CutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents PasteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator Friend WithEvents SelectAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ViewMenu As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolBarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents StatusBarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolsMenu As System.Windows.Forms.ToolStripMenuItem Friend WithEvents MinimizeAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents MaximizeAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents RestoreAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
End Class Public Class Form1
Private m_FileName As String Private m_IsDirty As Boolean " Load a file and set the form"s MdiParent. Public Sub LoadFile(ByVal file_name As String, ByVal mdi_parent As MDIParent1) " Save the file name and MdiParent. m_FileName = file_name Me.MdiParent = mdi_parent " Load the file. txtContents.Text = File.ReadAllText(m_FileName) txtContents.Select(0, 0) " Display the file name. Me.Text = New FileInfo(m_FileName).Name " The data has not been modified since it was loaded. m_IsDirty = False End Sub " Close the form. Private Sub mnuFileClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileClose.Click Me.Close() End Sub " See if it"s safe to close the form. Private Sub mdiChild_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If m_IsDirty Then " There are unsaved changes. " Ask the user if we should save them. Select Case MessageBox.Show( _ "The data has changed. Save the changes?", _ "Save Changes?", _ MessageBoxButtons.YesNoCancel, _ MessageBoxIcon.Question) Case Windows.Forms.DialogResult.Yes " Save the changes. SaveFile() " See if we succeeded. e.Cancel = m_IsDirty Case Windows.Forms.DialogResult.No " Discard the changes. " Leave e.Cancel = False. Case Windows.Forms.DialogResult.Cancel " Cancel the close. e.Cancel = True End Select End If End Sub " Save the file. Private Sub SaveFile() File.WriteAllText(m_FileName, txtContents.Text) m_IsDirty = False Me.Text = New FileInfo(m_FileName).Name End Sub " Mark the data as modified. Private Sub txtContents_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContents.TextChanged m_IsDirty = True If Not Me.Text.EndsWith("*") Then Me.Text = New FileInfo(m_FileName).Name & "*" End If End Sub " Save the changes. Private Sub mnuFileSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileSave.Click SaveFile() End Sub
End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.txtContents = New System.Windows.Forms.TextBox Me.MenuStrip1 = New System.Windows.Forms.MenuStrip Me.mnuFile = New System.Windows.Forms.ToolStripMenuItem Me.mnuFileSave = New System.Windows.Forms.ToolStripMenuItem Me.mnuFileClose = New System.Windows.Forms.ToolStripMenuItem Me.MenuStrip1.SuspendLayout() Me.SuspendLayout() " "txtContents " Me.txtContents.Dock = System.Windows.Forms.DockStyle.Fill Me.txtContents.Location = New System.Drawing.Point(0, 24) Me.txtContents.Multiline = True Me.txtContents.Name = "txtContents" Me.txtContents.Size = New System.Drawing.Size(292, 249) Me.txtContents.TabIndex = 7 " "MenuStrip1 " Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFile}) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Size = New System.Drawing.Size(292, 24) Me.MenuStrip1.TabIndex = 8 Me.MenuStrip1.Text = "MenuStrip1" " "mnuFile " Me.mnuFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFileSave, Me.mnuFileClose}) Me.mnuFile.Name = "mnuFile" Me.mnuFile.Size = New System.Drawing.Size(44, 20) Me.mnuFile.Text = "&File" " "mnuFileSave " Me.mnuFileSave.Name = "mnuFileSave" Me.mnuFileSave.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys) Me.mnuFileSave.Size = New System.Drawing.Size(165, 22) Me.mnuFileSave.Text = "&Save" " "mnuFileClose " Me.mnuFileClose.Name = "mnuFileClose" Me.mnuFileClose.Size = New System.Drawing.Size(165, 22) Me.mnuFileClose.Text = "&Close" " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(292, 273) Me.Controls.Add(Me.txtContents) Me.Controls.Add(Me.MenuStrip1) Me.Name = "Form1" Me.Text = "MdiEdit []" Me.MenuStrip1.ResumeLayout(False) Me.MenuStrip1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents txtContents As System.Windows.Forms.TextBox Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip Friend WithEvents mnuFile As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnuFileSave As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnuFileClose As System.Windows.Forms.ToolStripMenuItem
End Class</source>
Note pad
<source lang="vbnet">"Sams Teach Yourself Visual Basic .NET in 21 Days "By Lowell Mauer "Published 2001 "Sams Publishing "ISBN 0672322714 Imports System.Windows.Forms Imports System.IO public class Note
public Shared Sub Main Application.Run(New frmNote) End Sub
End class
Public Class frmNote
Inherits System.Windows.Forms.Form "***Added these two fields Private m_sFileName As String Private m_bDirty As Boolean Public Property FileName() As String Get Return m_sFileName End Get Set(ByVal Value As String) m_sFileName = Value Me.Text = "Note - " & m_sFileName End Set End Property Public Property Dirty() As Boolean Get Return m_bDirty End Get Set(ByVal Value As Boolean) m_bDirty = Value If Value = True Then Me.Text = "Note - " & m_sFileName & "*" End If End Set End Property Public Sub NewFile() Me.txtText.Text = "" Me.FileName = "Untitled" Me.Dirty = False End Sub
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call NewFile() End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Private WithEvents mnuHelp As System.Windows.Forms.MenuItem Private WithEvents mnuFileSep As System.Windows.Forms.MenuItem Private WithEvents mnuEdit As System.Windows.Forms.MenuItem Private WithEvents mnuMain As System.Windows.Forms.MainMenu Private WithEvents mnuFileExit As System.Windows.Forms.MenuItem Private WithEvents mnuHelpAbout As System.Windows.Forms.MenuItem Private WithEvents mnuFileSave As System.Windows.Forms.MenuItem Private WithEvents mnuFileSaveAs As System.Windows.Forms.MenuItem Private WithEvents mnuFileOpen As System.Windows.Forms.MenuItem Private WithEvents mnuFile As System.Windows.Forms.MenuItem Private WithEvents mnuFileNew As System.Windows.Forms.MenuItem Private WithEvents txtText As System.Windows.Forms.TextBox Private WithEvents mnuEditCopy As System.Windows.Forms.MenuItem Private WithEvents mnuEditCut As System.Windows.Forms.MenuItem Private WithEvents mnuEditPaste As System.Windows.Forms.MenuItem Private WithEvents dlgSave As System.Windows.Forms.SaveFileDialog Private WithEvents dlgOpen As System.Windows.Forms.OpenFileDialog
"Required by the Windows Form Designer Private components As System.ruponentModel.Container "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.dlgSave = New System.Windows.Forms.SaveFileDialog() Me.mnuEdit = New System.Windows.Forms.MenuItem() Me.mnuEditCopy = New System.Windows.Forms.MenuItem() Me.mnuFile = New System.Windows.Forms.MenuItem() Me.mnuMain = New System.Windows.Forms.MainMenu() Me.txtText = New System.Windows.Forms.TextBox() Me.mnuFileSep = New System.Windows.Forms.MenuItem() Me.mnuEditPaste = New System.Windows.Forms.MenuItem() Me.mnuFileSaveAs = New System.Windows.Forms.MenuItem() Me.mnuFileSave = New System.Windows.Forms.MenuItem() Me.mnuFileExit = New System.Windows.Forms.MenuItem() Me.mnuEditCut = New System.Windows.Forms.MenuItem() Me.mnuHelp = New System.Windows.Forms.MenuItem() Me.dlgOpen = New System.Windows.Forms.OpenFileDialog() Me.mnuHelpAbout = New System.Windows.Forms.MenuItem() Me.mnuFileNew = New System.Windows.Forms.MenuItem() Me.mnuFileOpen = New System.Windows.Forms.MenuItem() Me.dlgSave.FileName = "note1" Me.dlgSave.Filter = "Text Files|*.txt|All Files|*.*" Me.mnuEdit.Index = 1 Me.mnuEdit.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuEditCut, Me.mnuEditCopy, Me.mnuEditPaste}) Me.mnuEdit.Text = "&Edit" Me.mnuEditCopy.Index = 1 Me.mnuEditCopy.Shortcut = System.Windows.Forms.Shortcut.CtrlC Me.mnuEditCopy.Text = "&Copy" Me.mnuFile.Index = 0 Me.mnuFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFileNew, Me.mnuFileOpen, Me.mnuFileSave, Me.mnuFileSaveAs, Me.mnuFileSep, Me.mnuFileExit}) Me.mnuFile.Text = "&File" Me.mnuMain.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFile, Me.mnuEdit, Me.mnuHelp}) Me.txtText.Dock = System.Windows.Forms.DockStyle.Fill Me.txtText.Multiline = True Me.txtText.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.txtText.Size = New System.Drawing.Size(292, 253) Me.txtText.TabIndex = 0 Me.mnuFileSep.Index = 4 Me.mnuFileSep.Text = "-" Me.mnuEditPaste.Index = 2 Me.mnuEditPaste.Shortcut = System.Windows.Forms.Shortcut.CtrlV Me.mnuEditPaste.Text = "&Paste" Me.mnuFileSaveAs.Index = 3 Me.mnuFileSaveAs.Text = "Save &As..." Me.mnuFileSave.Index = 2 Me.mnuFileSave.Shortcut = System.Windows.Forms.Shortcut.CtrlS Me.mnuFileSave.Text = "&Save" Me.mnuFileExit.Index = 5 Me.mnuFileExit.Shortcut = System.Windows.Forms.Shortcut.CtrlQ Me.mnuFileExit.Text = "E&xit" Me.mnuEditCut.Index = 0 Me.mnuEditCut.Shortcut = System.Windows.Forms.Shortcut.CtrlX Me.mnuEditCut.Text = "Cu&t" Me.mnuHelp.Index = 2 Me.mnuHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuHelpAbout}) Me.mnuHelp.Text = "&Help" Me.dlgOpen.Filter = "Text Files|*.txt|All Files|*.*" Me.mnuHelpAbout.Index = 0 Me.mnuHelpAbout.Text = "&About" Me.mnuFileNew.Index = 0 Me.mnuFileNew.Shortcut = System.Windows.Forms.Shortcut.CtrlN Me.mnuFileNew.Text = "&New" Me.mnuFileOpen.Index = 1 Me.mnuFileOpen.Shortcut = System.Windows.Forms.Shortcut.CtrlO Me.mnuFileOpen.Text = "&Open..." Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 253) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtText}) Me.Menu = Me.mnuMain Me.Text = "Note" End Sub Private Sub mnuFileNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileNew.Click If Me.Dirty = True Then If MessageBox.Show("You have made changes to the file that will be lost. Continue?", "New File", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult().Yes Then NewFile() End If Else NewFile() End If End Sub Private Sub mnuFileOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileOpen.Click Dim oFile As FileStream Dim oReader As StreamReader If Me.dlgOpen.ShowDialog = DialogResult().OK Then "OK, we can try to open and read the file Try Me.FileName = Me.dlgOpen.FileName oFile = File.OpenRead(Me.FileName) oReader = New StreamReader(oFile) Me.txtText.Text = oReader.ReadToEnd Catch ex As Exception "just display the error for now MessageBox.Show(ex.Message, "Error Opening File", MessageBoxButtons.OK, MessageBoxIcon.Error) Finally "remember to always close your readers and files oReader.Close() oFile.Close() End Try End If End Sub Private Sub mnuFileSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileSave.Click "we should only try to save this file if it has a name If Me.FileName <> "Untitled" Then "OK, let"s try saving the file Dim oFile As FileStream Dim oWriter As StreamWriter Try oFile = File.OpenWrite(Me.FileName) "convert the contents of the TextBox to an array of Bytes oWriter = New StreamWriter(oFile) "and write to the file oWriter.Write(Me.txtText.Text) "and now we"re not dirty Me.Dirty = False Catch ex As Exception "for now, just display an error on an Exception MessageBox.Show(ex.Message, "Error Saving File", MessageBoxButtons.OK, MessageBoxIcon.Error) Finally "always remember to close all writers and streams oWriter.Close() oFile.Close() End Try Else "if not, go get a name mnuFileSaveAs_Click(sender, e) End If End Sub Private Sub mnuFileSaveAs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileSaveAs.Click If Me.dlgSave.ShowDialog = DialogResult().OK Then "they"ve clicked OK, we can set the filename and save FileName() = Me.dlgSave.FileName "use the code already in the File, Save item to save the file mnuFileSave_Click(sender, e) End If End Sub Private Sub mnuFileExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileExit.Click Me.Close() End Sub Private Sub mnuEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEdit.Click "is there any text selected? If Me.txtText.SelectionLength > 0 Then mnuEditCut.Enabled = True mnuEditCopy.Enabled = True Else mnuEditCut.Enabled = False mnuEditCopy.Enabled = False End If "is there anything on the Clipboard that we can paste here? If Clipboard.GetDataObject.GetDataPresent(DataFormats.Text) Then mnuEditPaste.Enabled = True Else mnuEditPaste.Enabled = False End If End Sub Private Sub mnuEditCut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditCut.Click Clipboard.SetDataObject(Me.txtText.SelectedText) Me.txtText.SelectedText = "" End Sub Private Sub mnuEditCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditCopy.Click Clipboard.SetDataObject(Me.txtText.SelectedText) End Sub Private Sub mnuEditPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditPaste.Click Me.txtText.SelectedText = CType(Clipboard.GetDataObject.GetData(DataFormats.Text), String) End Sub Private Sub mnuHelpAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuHelpAbout.Click Dim sMessage As String sMessage = "Note -- a simple text editor" & ControlChars.CrLf & _ "Original in Teach Yourself Visual Basic.NET in 21 Days." & ControlChars.CrLf & _ "copyright 2001. Full rights to extend provided by the author." MessageBox.Show(sMessage, "Note", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub Private Sub txtText_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtText.TextChanged Me.Dirty = True End Sub Private Sub frmNote_Closing(ByVal sender As System.Object, ByVal e As System.ruponentModel.CancelEventArgs) Handles MyBase.Closing If Me.Dirty = True Then If MessageBox.Show("You have made changes to the file that will be lost. Continue?", "New File", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult().No Then e.Cancel = True End If End If End Sub
- End Region
End Class</source>