VB.Net Tutorial/GUI Applications/Editor
Версия от 16:40, 26 мая 2010; (обсуждение)
MDI based on editor
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 ClassMDI Editor
"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 ClassNote pad
"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