VB.NET

1. Membuat Menu MDI Application Di Vb.Net

2. Menghubungkan Visual Basic Ke Database 
3. Menampilkan Data Dari Database

Membuat Menu MDI Application Di Vb.Net

MDI Application

MDI berfungsi menempatkan form di dalam form. Di dalam MDI terdapat istilah form

induk yang merupakan form utama. Untuk studi kasusnya, ikutlah langkah-langkah berikut ini agar lebih mudah memahami penggunaan MDI.

1.      Buatlah sebuah form seperti gambar 2.12.

 

Gambar 2.12 Form MDI

1.      Untuk membuat form seperti gambar 2.12, masukkan toolbox menustrip dengan cara mendouble klik toolbox menustrip.

2.      Isikan menunya, yang terdiri dari menu data dan sub menu yang terdiri dari form 2, form 3 dan exit.

3.      Aturlah propertinya. Properties yang perlu diatur adalah ismdicontent diubah menjadi true.

4.      Tambahkanlah form baru yang bernama form 2 dan form 3. Langkah untuk menambahkan form baru sudah dibahas pada bab 1 tepatnya pada sub bab 1.4.

5.      Isikan script berikut ini pada form 1.

1.  Public Class Form1

2.      Private Sub Form1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form1ToolStripMenuItem.Click

3.          Form2.MdiParent = Me

4.          Form2.Show()

5.      End Sub

6.      Private Sub Form2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2ToolStripMenuItem.Click

7.          Dim frm3 As New Form3("Form-title progam form 3")

8.          frm3.MdiParent = Me

9.          frm3.Show()

10.     End Sub

11.     Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

12.         End

13.     End Sub

14. End Class

Baris 1            : Membuat class pada form 1.

Baris 2            : Baris 2 akan tampil otomatis, apabila kita mendouble klik sub menu form 1 yang telah kita buat sebelumnya.

Baris 3            : Memposisikan form 2 berada di dalam form induk (form 1). Me menyatakan form induk (form 1).

Baris 4            : Menampilkan form 2 apabila sub menu form dua diklik.

Baris 5            : Mengakhiri sub.

Baris 6            : Baris 6 otomatis tampil jika kita mendouble klik sub menu form 2.

Baris 7            : Membuat variabel yang bernama frm3 yang berfungsi untuk menampung semua aksi yang terjadi pada form 3. Kemudian di dalam variabel tersebut di buat parameter berupa string.

Baris 8            : Menampilkan Form 3. Form 3 ditampilkan di form utama (form 1) dengan ditandainya adanya perintah me.

Baris 9            : Perintah untuk menampilkan form 3.

Baris 10          : Mengakhiri perintah sub.

Baris 11          : Baris 11 muncul, apabila kita mendouble klik sub menu exit.

Baris 12          : Keluar dari program.

Sekarang penulis akan membuat tampilan form yang berbentuk horizontal, vertical dan cascade. Untuk studi kasusnya ikutilah langkah-langkah di bawah ini.

1.      Tambahkan menu windows  disamping menu data. Langkah-langkah sudah penulis paparkan sebelumnya pada sub bab 2.8. Maka tampilan seperti berikut ini.

Gambar 2.13 Form MDI Setelah Ditambahkan Menu Windows

2.      Tambahkan Garis Pembatas Di bawah cascade dengan cara mengklik kanan pada bagian bawah cascade (disekeliling kotak type here) seperti gambar berikut ini.

Gambar 2.14 Klik Kanan di Bagian Type Here

3.      Klik insert, kemudian pilih separator. Maka akan tampil sebuah garis di bawah sub menu cascade.

4.      Aturlah properties tepatnya di bagian mdiwindowlistitem, pilih di bagian windowtoolstripmenuitem seperti terlihat pada gambar 2.15.

Gambar 2.15 mdiwindowlistitem pada properties.

5.      Fungsi properties mdiwindowlistitem adalah untuk menandai form yang aktif dengan adanya tanda centang pada form tersebut. Form tersebut akan tampil pada menu windows yang telah kita buat sebelumnya.

6.      Ketikkan scrip seperti di bawah ini.

1.  Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click

2.          Me.LayoutMdi(MdiLayout.TileHorizontal)

3.      End Sub

4.      Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click

5.          Me.LayoutMdi(MdiLayout.TileVertical)

6.      End Sub

7.      Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click

8.          Me.LayoutMdi(MdiLayout.Cascade)

9.      End Sub

Penjelasan Script

Baris 1            : Baris 1 akan muncul apabila anda mendouble klik sub menu horizontal.

Baris 2            : Menampilkan form dalam bentuk horizontal, dan form tersebut terletak pada form induk (form 1).

Baris 3            : Mengakhiri private sub horizontal.

Baris 4            : Baris 4 muncul otomatis apabila anda mendouble klik sub menu vertikal.

Baris 5            : Menampilka form dalam bentuk vertikal, dan form tersebut terletak pada form induk (form 1).

Baris 6            : Mengakhiri private sub vertikal.

Baris 7            : Baris 7 tampil otomatis apabila anda mendouble klik sub menu cascade.

Baris 8            : Menampilkan form dalam bentuk cascade, dan form tersebut terletak pada form induk (form 1)

Baris 9            : Mengakhiri private sub cascade.