TUGAS 7.1 Pengaturan Untuk MDI Child Dibuat Cascade
,Horizontal Dan Vertikal
Cara membuatnya:
Pertama kita buat MDI
Form agar dapat menampilkan beberapa form sekaligus caranya cari IsMdiContainer
pada properties lalu kita pilih true.
Masukan beberapa form
ke menu utama ,contoh tiga form yang kita masukan.
Masuk ke menu window
lalu pilih cascade ,tampilan akan muncul sebagai berikut.
Masuk ke menu window
lalu pilih horizontal ,tampilan akan muncul sebagai berikut.
Masuk
ke menu window lalu pilih vertikal ,tampilan akan muncul sebagai berikut.
Agar posisi menu diatas dan toolbar dibawah caranya adalah taruh kursor pada menustrip lalu klik kanan pada menustrip lalu pilih Send To Back ,tampilan akan muncul sebagai berikut.
Untuk Library tambahan (Ribbon) menggunakan aplikasi tambahan yaitu DotNetBar.
Listing Program Yang Digunakan:
Public Class Form1
Private Sub ToolStripMenuItem2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
ToolStripMenuItem2.Click
Form2.MdiParent
= Me
Form2.Show()
End Sub
Private Sub ToolStripMenuItem3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
ToolStripMenuItem3.Click
Form3.MdiParent
= Me
Form3.Show()
End Sub
Private Sub ToolStripMenuItem4_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
ToolStripMenuItem4.Click
Form4.MdiParent
= Me
Form4.Show()
End Sub
Private Sub ToolStripMenuItem5_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
ToolStripMenuItem5.Click
Form5.MdiParent
= Me
Form5.Show()
End Sub
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles KeluarToolStripMenuItem.Click
Close()
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 HorisontalToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles HorisontalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub VertikalToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles VertikalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub Latiahan1ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Latiahan1ToolStripMenuItem.Click
Form2.MdiParent = Me
Form2.Show()
End Sub
Private Sub Latihan2ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Latihan2ToolStripMenuItem.Click
Form3.MdiParent
= Me
Form3.Show()
End Sub
Private Sub Latihan3ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Latihan3ToolStripMenuItem.Click
Form4.MdiParent
= Me
Form4.Show()
End Sub
Private Sub Latihan4ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Latihan4ToolStripMenuItem.Click
Form5.MdiParent
= Me
Form5.Show()
End Sub
End Class
0 komentar:
Posting Komentar