Tugas VB 7

Nama     : Dwi Susanti

Kelas      : TI 11C

NIM       : 11.11.2495

Tugas Bahasa Pemrograman Visual Basic

MDI FORM

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 membuat MDI form :

·         Cara 1

–      Atur Properti IsMDIContainer pada form biasa menjadi true

·         Cara 2

–      Tambahkan form baru dan langsung pilih MDI Parent Form

Cara memanggil MDI form :

Ketikan perintah berikut dari form induk / form utama

                namaform.mdiparent=me

                namaform.show

Berikut ini contoh program yang saya buat, 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

Pertama kita buat form lalu atur seperti gambar dibawah :

Untuk membuat form seperti gambar diatas bisa melalui langkag seperti dibawah ini :

Langkah 1 :                              

Buat Form dengan tampilan menggunakan Menustrip di Menus and Toolbars.

Lalu atur atau tulis sesuai keinginan,

Langkah 2 :

Setelah Menambah Form, klik atau buka Form1, kemudian pada Properties Menu, cari IsMdiContaint dan ganti menjadi True.

Setelah form1 selesai d atur, sekarang kelangkah selanjutnya mengisi ketentuan seperti diatas.

Langkah 3 :

Membuat ContextMenuStrip pada Menus and Toolbars, buat menu context ada 2.

Yang pertama ditaruh pada form, isi contextnya seperti dibawah ini, dan pada form atur properties ContextMenuStripnya di atur sesuai apa yang akan di tampilkan dalam form apa GropBox, misalnya ContextMenusStrip1 atau  ContextMenusStrip2.

 

Tampilan seperti ini :

• Tampilan Context pada Form

• Tampilan Context pada GroupBox

 

 

Yang kedua pada groupbox, isi seperti gambar diatas namun angka 1 sampai 5nya di ganti ABCD, dan atur properties ContextMenuStrip pada GroupBoxnya menjadi True.

1. 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

 

 

      2. Buat menu window :

• Tampilan Horisontal

  

 

Dengan 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 

Dengan 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

 

 

 

 

Dengan 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

3. Atur posisi toolbar sesuai keinginan

• Klik tanda yang di beri tanda merah
• Pilih posisi pada Dock sesuai keinginan. 
•  Lakukan sama pada ToolStrip

 

 

 4. 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