TUGAS 4

TUGAS PEMROGRAMAN VISUAL 4

Kali ini saya akan menampilkan cara membuat tampilan layout program yang saya buat... 

langsung saja disimak . . .^_^ . . .

Public Class Form1
   

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

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub Latihan11ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan11ToolStripMenuItem1.Click

        latihan_1_1.MdiParent = Me
        latihan_1_1.Show()
    End Sub

    Private Sub Latihan22ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan22ToolStripMenuItem2.Click
        Latihan_1_2.MdiParent = Me


        Latihan_1_2.Show()
    End Sub

   
    Private Sub Latihan11ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan11ToolStripMenuItem.Click
        Tugas_1_1.MdiParent = Me
        Tugas_1_1.Show()
    End Sub

    Private Sub Latihan22ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan22ToolStripMenuItem.Click
        Tugas_1_2.MdiParent = Me
        Tugas_1_2.Show()
    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

    Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileHorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)

    End Sub

    Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileVerticalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub
End Class