Assalamualaikum Wr.Wb
Pertama-tama saya akan membuat menu strip dan menunya seperti dibawah ini:
Setelah itu saya membuat 4 form, lalu saya edit Properties- IsMdiContainer rubah menjadi true dan hasilnya seperti dibawah ini:
Saya akan membuat tampilan Horizontal, dan tampilan seperti di berikut :
Sesuai tugas yang diberikan maka selanjutnya membuat tampilan Vertikal dan Cascade, tampilanya seperti berikut :
Tampilan Vertikal
Tampilan Cascade
Tampilan sudah selesai saya buat, saya akan membuat codingnya dan coding seperti beritut :
Public Class Form1
Private Sub Tugas1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas1ToolStripMenuItem.Click
Form2.MdiParent = Me
Form2.Show()
End Sub
Private Sub Tugas2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas2ToolStripMenuItem.Click
Form3.MdiParent = Me
Form3.Show()
End Sub
Private Sub Tugas3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas3ToolStripMenuItem.Click
Form4.MdiParent = Me
Form4.Show()
End Sub
Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub VerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerticalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub CascadeToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
Private Sub ExitToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Form2.MdiParent = Me
Form2.Show()
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
Form3.MdiParent = Me
Form3.Show()
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
Form4.MdiParent = Me
Form4.Show()
End Sub
Private Sub ToolStripButton12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton12.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub ToolStripButton13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton13.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub ToolStripButton14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton14.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
Me.Close()
End Sub
End Class
Akhirnya selesai juga 😀
SEKIAN tugas yang saya buat TERIMA KASIH
emoloversh 