Tugas 7

Nama : Barid Baroroh
NIM  : 11.11.2488


Tugas pemrograman VB ke 7.....

Apa yang di maksud MDI form?
MDI form adalah aplikasi yang dapat menampilkan beberapa form sekaligus.

Contoh MS-Word . dalam satu saat dapat membuka lebih dari 1 file.MDI Form disebut juga sebagai Form Induk yang dapat membuka beberapa form lain secara bersama sama.Form yang di panggil form induk disebut form anak atau MDI Child.

Cara memanggil MDI form : Ketik perintah berikut dari form induk / form utama

           

               namaform.mdiparent=me

                  namaform.show

Berikut contoh soalnya, ada 3 ketentuan :

1.       Buat Child Form untuk ditempatkan pada Parent Form

2.       Buat menu window :

-        Tile Horisontal

-        Tile Vertikal

-        Tile Casecade

3.       Atur posisi toolbar sesuai keinginan

  

      Buat Child Form untuk ditempatkan pada Parent Form

Yang pertama dilakukan adalah membuat form baru dengan cara :

-          Klik kanan pada WindowsApplication1

-          Plih add

-          Lalu pilih dan klik windows form

-          Lakukan sebanyak 4 kali, maka form akan bertambah 4 seperti dibawah ini : 

 

Tampilan Horisontal 

 

 Kode program :

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

        Me.LayoutMdi(MdiLayout.TileHorizontal)

        Form2.MdiParent = Me

        Form2.Show()

        Form3.Show()

        Me.LayoutMdi(MdiLayout.TileHorizontal)

    End Sub

        Tampilan Vertikal 

 

Kode program :

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

        Form2.MdiParent = Me

        Form2.Show()

        Form3.Show()

        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub

         Tampilan Cascade 

 

Kode program :

Private Sub Latihan3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan3ToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

        Form3.Show()

        Form4.Show()

        Form5.Show()

        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

Atur posisi toolbar sesuai keinginan

-          Pilih posisi pada dock sesuai keinginan.

-          Lakukan sama pada tooltrip

Menu dengan komponen tambahan

 

Kode program :

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

        If MsgBox("Anda yakin?", vbQuestion + vbYesNo + vbDefaultButton2, "Keluar") = MsgBoxResult.Yes Then Me.Close()

    End Sub

Selesai, terimakasih...............