TUGAS 7

1. Listing program untuk tugas ke 7

Public Class Form1

Private Sub Tugas1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas1ToolStripMenuItem.Click

Form3.MdiParent = Me

Form2.MdiParent = Me

Form2.Show()

Form3.Show()

End Sub

Private Sub Tugas2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas2ToolStripMenuItem.Click

Form2.MdiParent = Me

Form4.MdiParent = Me

Form2.Show()

Form4.Show()

End Sub

Private Sub Tugas3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas3ToolStripMenuItem.Click

Form4.MdiParent = Me

Form3.MdiParent = Me

Form4.Show()

Form3.Show()

End Sub

Private Sub Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click

Form3.MdiParent = Me

Form3.Show()

End Sub

Private Sub Latihan2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click

Form4.MdiParent = Me

Form4.Show()

End Sub

Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click

Me.Close()

End Sub

Private Sub CasadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CasadeToolStripMenuItem.Click

Me.LayoutMdi(MdiLayout.Cascade)

Form2.Show()

Form3.Show()

End Sub

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

Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)

End Sub

Private Sub TileVerticalToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileVerticalToolStripMenuItem1.Click

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)

End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click

Me.LayoutMdi(MdiLayout.Cascade)

End Sub

End Class

Pengaturan untuk MDI Child agar di buat

1. Cascade
2. Horizontal
3. Vertical

Langkah-langkah

1. Pertama kita buat MDI form agar dapat menampilkan beberapa form
2. Kedua Pada masing-masing form pada properties pilih IsMdiContair yang awalnya false kita rubah menjadi true
3. Ketiga kita debug
   
   
   

Tampilan utama setelah di run

4. Kemudian pilih tugas> tugas1
   
   
   

Tampilan setelah kita pilih tugas1

5. Agar tampilan berubah menjadi cascade kita pilih windows kemudian pilih cascade / kita pilih button sebelah kanan 
   
    

Tampilan setelah kita pilih cascade

6. tampilan berubah menjadi horizontal kita pilih windows kemudian pilih horizontal / kita pilih button sebelah kanan 
   
    

Tampilan setelah kita pilih horizontal

7. tampilan berubah menjadi vertical kita pilih windows kemudian pilih vertical/ kita pilih button sebelah kanan 
   
   
   
    

Tampilan setelah kita pilih vertical

Terima kasihhhhhhhhh