Codigo Fuente Formulario MDI

Imports System.Windows.Forms

 

Public Class MDIPrincipal

    Dim frmTexto As frmTextoRTF

 

    Private Sub TextoRTFToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoRTFToolStripMenuItem.Click

        frmTexto = New frmTextoRTF

        frmTexto.MdiParent = Me

        frmTexto.Show()

    End Sub

 

 

 

 

 

 

    Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click

        '' Cree una nueva instancia del formulario secundario.

        'Dim ChildForm As New System.Windows.Forms.Form

        '' Conviértalo en un elemento secundario de este formulario MDI antes de mostrarlo.

        'ChildForm.MdiParent = Me

 

        'm_ChildFormNumber += 1

        'ChildForm.Text = "Ventana " & m_ChildFormNumber

 

        'ChildForm.Show()

    End Sub

 

    Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click

        Dim OpenFileDialog As New OpenFileDialog

        OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments

        OpenFileDialog.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"

        If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

            Dim FileName As String = OpenFileDialog.FileName

 

            ' TODO: Agregar código aquí para abrir el archivo.

 

            Dim SR As New System.IO.StreamReader(FileName)

            Dim TextoLeido As String

            'leo todo el archivo y lo asigno a una variable

            TextoLeido = SR.ReadToEnd()

            'cierro el Stream Reader para que el archivo no quede

            'bloqueado

            SR.Close()

 

            'abrimos un nuevo form para leer los archivos

            Dim frmTexto As New frmTextoRTF

            frmTexto.MdiParent = Me

            'al textbox1 que existe en el formulario nuevo

            'le grabo el texto leído del fichero

            frmTexto.TextBox1.Text = TextoLeido

            'abro el formulario

            frmTexto.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.Computer.FileSystem.SpecialDirectories.MyDocuments

        SaveFileDialog.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"

 

        If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

            Dim FileName As String = SaveFileDialog.FileName

            ' TODO: agregar código aquí para guardar el contenido actual del formulario en un archivo.

        End If

    End Sub

 

 

    Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click

        Me.Close()

    End Sub

 

    Private Sub CutToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CutToolStripMenuItem.Click

        ' Utilice My.Computer.Clipboard para insertar el texto o las imágenes seleccionadas en el Portapapeles

    End Sub

 

    Private Sub CopyToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CopyToolStripMenuItem.Click

        ' Utilice My.Computer.Clipboard para insertar el texto o las imágenes seleccionadas en el Portapapeles

    End Sub

 

    Private Sub PasteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PasteToolStripMenuItem.Click

        'Utilice My.Computer.Clipboard.GetText() o My.Computer.Clipboard.GetData para recuperar la información del Portapapeles.

    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 CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click

        ' Cierre todos los formularios secundarios del primario.

        For Each ChildForm As Form In Me.MdiChildren

            ChildForm.Close()

        Next

    End Sub

 

    Private m_ChildFormNumber As Integer

 

  

 

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

 

        'Dim Ows As New WSFutbol.Info

        'Dim VectorDeString() As String

 

        'VectorDeString = Ows.AllDefenders("ARGENTINA")

 

        'Me.ToolStripStatusLabel.Text = VectorDeString(0)

    End Sub

 

   

    Private Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripButton.Click

        Dim SaveFileDialog As New SaveFileDialog

        SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments

        SaveFileDialog.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"

 

        If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

            Dim FileName As String = SaveFileDialog.FileName

            ' TODO: agregar código aquí para guardar el contenido actual del formulario en un archivo.

            Dim SW As New System.IO.StreamWriter(FileName)

            Dim textoAguardar As String

            textoAguardar = frmTexto.TextBox1.Text

            SW.Write(textoAguardar)

            SW.Close()

 

        End If

 

    End Sub

End Class