samples/snippets/visualbasic/VS_Snippets_VBCSharp/VbVersHelp60Controls/VB/MDIParent1.vb - main - aprogrammer/dotnet-docs

samples/snippets/visualbasic/VS_Snippets_VBCSharp/VbVersHelp60Controls/VB/MDIParent1.vb
132 строки5 KB
Nick Schonning
fix: various typos in code samples (#31546)
04 апр 2023, 23:19
04 апр 2023, 23:195aa042b
Imports System.Windows.Forms

Public Class MDIParent1

    '******************************************************************************
    '<Snippet31>
    ' Visual Basic
    Private Sub MDIForm1_Load(
    sender As Object,
    e As System.EventArgs) Handles MyBase.Load

        Dim i As Integer
        For i = 0 To 4
            Using F As New FormChild With {
                .Text = "Form " & CStr(i + 1)
            }
                F.Show()
            End Using
        Next
    End Sub
    '</Snippet31>


    Private Sub ShowNewForm(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
        ' Create a new instance of the child form.
        ' Make it a child of this MDI form before showing it.
        Using ChildForm As New Form With {
            .MdiParent = Me
        }

            Me.m_ChildFormNumber += 1
            ChildForm.Text = "Window " & Me.m_ChildFormNumber

            ChildForm.Show()
        End Using
    End Sub

    Private Sub OpenFile(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
        Dim OpenFileDialog As New OpenFileDialog With {
            .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments,
            .Filter = "Text Files (*.txt)|*.txt"
        }
        OpenFileDialog.ShowDialog(Me)

        Dim FileName As String = OpenFileDialog.FileName
        ' TODO: Add code here to open the file.
    End Sub

    Private Sub SaveAsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveAsToolStripMenuItem.Click
        Dim SaveFileDialog As New SaveFileDialog With {
            .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments,
            .Filter = "Text Files (*.txt)|*.txt"
        }
        SaveFileDialog.ShowDialog(Me)

        Dim FileName As String = SaveFileDialog.FileName
        ' TODO: Add code here to save the current contents of the form to a file.
    End Sub


    Private Sub ExitToolsStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
        Global.System.Windows.Forms.Application.Exit()
    End Sub

    Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click
        ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
    End Sub

    Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
        ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
    End Sub

    Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click
        'Use My.Computer.Clipboard.GetText() or My.Computer.Clipboard.GetData to retrieve information from the clipboard.
    End Sub

    Private Sub ToolBarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolBarToolStripMenuItem.Click
        Me.ToolStrip.Visible = Me.ToolBarToolStripMenuItem.Checked
    End Sub

    Private Sub StatusBarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StatusBarToolStripMenuItem.Click
        Me.StatusStrip.Visible = Me.StatusBarToolStripMenuItem.Checked
    End Sub


    '******************************************************************************
    '<Snippet32>
    ' Visual Basic
    Private Sub CascadeToolStripMenuItem_Click(
    ) Handles CascadeToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
    '</Snippet32>


    '******************************************************************************
    '<Snippet33>
    ' Visual Basic
    Private Sub TileVerticalToolStripMenuItem_Click(
    ) Handles TileVerticalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub
    '</Snippet33>


    '******************************************************************************
    '<Snippet34>
    ' Visual Basic
    Private Sub TileHorizontalToolStripMenuItem_Click(
    ) Handles TileHorizontalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub
    '</Snippet34>


    Private Sub ArrangeIconsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.ArrangeIcons)
    End Sub

    Private Sub CloseAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseAllToolStripMenuItem.Click
        ' Close all child forms of the parent.
        For Each ChildForm As Form In Me.MdiChildren
            ChildForm.Close()
        Next
    End Sub

    Private m_ChildFormNumber As Integer = 0

End Class