MDI FORM

Tugas 5 

Desain Form 1 seperti dibawah ini
Buatlah 3 form( form 1, form2, form3)
UbahPropertiIsMDIContainerpada form 1menjaditrue
Gunakan Dock pada propertis Untuk memindahkan tempat standar bar dikiri, kanan, atas atau tengah.
Untuk Form 2
Codingnya
PublicClassForm2
PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Me.MdiParent = Form1
EndSub
EndClass
Dan form 3
PublicClassForm3
PrivateSub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Me.MdiParent = Form1
EndSub
EndClass
Setelah di Run pada windows kita pilih cascade hasilnya seperti ini:
Dan horisontal seperti ini:
Dan yang terakhir vertikal:
NB:         1. Untuk Ribbon Sementara belum sempurna, karena kendala beberapa hal.
Isi Coding pada form 1::
PublicClassForm1
PrivateSub Tugas1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas1ToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
Form2.Show()
Form3.Show()
EndSub
PrivateSub Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click
Form2.MdiParent = Me
Form2.Show()
EndSub
PrivateSub Latihan2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
Form2.Show()
Form3.Show()
EndSub
PrivateSub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
Form2.Show()
Form3.Show()
EndSub
PrivateSub TileHorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileHorizontalToolStripMenuItem.Click
Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)
Form2.Show()
Form3.Show()
EndSub
PrivateSub TileVerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileVerticalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
Form2.Show()
Form3.Show()
EndSub
PrivateSub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
Form2.MdiParent = Me
Form2.Show()
EndSub
PrivateSub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Me.LayoutMdi(MdiLayout.TileVertical)
Form2.Show()
Form3.Show()
EndSub
PrivateSub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
EndSub
PrivateSub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)
Form2.Show()
Form3.Show()
EndSub
EndClass

Komentar

Posting Komentar

Postingan populer dari blog ini

Cowok dan Cewek

Cowok dan Cewek Kalo Cowok Ganteng pendiam. Cewek-cewek bilang: Woow,Cool banget....... Kalo Cowo jelek pendiam. Cewek-cewek bilang: ih kuper....... Kalo Cowok Ganteng Jomblo Cewek-cewek bilang: Pasti dia Perfeksionis Kalo Cowo jelek Jomblo Cewek-cewek bilang: Sudah Jelas.....Kagak laku..... Kalo Cowok Ganteng Berbuat jahat Cewek-cewek bilang: Nobody's perfect. Kalo Cowo jelek Berbuat jahat Cewek-cewek bilang: pantes.....Tampangnya Kriminal. Kalo Cowok Ganteng nolongin cewek yang digangguin preman Cewek-cewek bilang: Wuiih jantan......kayak di film-film Kalo Cowo jelek nolongin cewek yang digangguin preman Cewek-cewek bilang: Pasti premannya temennya dia....... Kalo Cowok Ganteng dapet cewek cantik Cewek-cewek bilang: klop.....serasi banget..... Kalo Cowo jelek dapet cewek cantik Cewek-cewek bilang: pasti main dukun...... Kalo Cowok Ganteng diputusin cewek Cewek-cewek bilang: jangan sedih kan masih ada aku.... Kalo Cowo jelek diputusin cewek Cewek-cewek bilang:..........(terdiam,ta...
Baca selengkapnya

4 Hewan Legenda Penjaga Mata Angin

Gambar
1. SEIRYU – Sang Penjaga Timur (Korean : ChungRyong; Chinese:Qing Long) Hewan berbadan yang menyerupai ular tapi punya kaki dan cakar ini berperan sebagai pelindung Buddhisme. Kebanyakan legenda Jepang tentang naga berasal dari China. Musuh abadi naga adalah manusia-burung yang disebut Karura. Unsur naga adalah alam kayu, tapi dia mengendalikan hujan dan tinggal di laut atau sungai yang dapat juga menyebabkan banjir. Di China dan Korea, naga sangat dekat dengan lambang kekaisaran. Dalam mitologi barat, naga sering dijadikan tokoh Antagonis atau makhluk yang mengganggu ketentraman manusia. Dalam budaya Timur, naga adalah sosok pembawa keberuntungan dan kekayaan yang wujudnya memang menyeramkan tapi pengasih dan adil. 2. SUZAKU – Sang Penjaga Selatan (Korean : Jujak; Chinese : Zhu Que) Burung merah atau burung api yang sering dipasangkan dengan naga. Pasangan ini menggambarkan perseteruan namun juga kebahagiaan dalam perkawinan. Tidak heran kalau Phoenix menjadi lambang permaisuri kaisar...
Baca selengkapnya

Sejarah Apple Inc. yang Sensasional

Gambar
Apple Computer (sekarang dikenal sebagai Apple, Inc) adalah kekuatan utama dalam revolusi Personal Computer (PC) yang berlangsung di tahun 1970-an dan’80s. Dan bahkan revolusi itu terus menerus berlangsung hingga kini berkat inovasi yang terus-menerus dilakukan oleh pihak pengembang Apple. Namun tahukah Anda, Apple pernah mengalami kebangkrutan, atau hal hal lain sepanjang karir gemilang Apple inc. ? Simak penelusuran kami berikut ini. Steve Jobs Dengan Macbook Air –Nya Sebelum Steve Wozniak bersama Steve Jobs mendirikan Apple, Steve Wozniak adalah seorang hacker. Kepandaian Steve Wozniak ini memang terlihat sejak dia masih kecil yang sangat gemar mengutak atik aljabar dan algoritma matematika. Kemampuan Steve Wozniak ini tentunya sangat berarti dalam mendongkrak hidupnya karena baik Steve Wozniak maupun Steve Jobs semasa SMA-nya tergolong orang orang dengan ekonomi menengah ke bawah. The Altair 8800 computer kit (January 1975) Pada tahun 1975, Steve Wozniak bekerja di Hewlett-Packard ...
Baca selengkapnya