MDI Applications
MDI (Multiple Document Interface) Aplikasi adalah sebuah aplikasi di mana kita dapat melihat dan bekerja dengan beberapa dokumen sekaligus. Contoh aplikasi MDI adalah Microsoft Excel. Excel memungkinkan kita untuk bekerja dengan beberapa dokumen sekaligus. Sebaliknya, SDI (Single Document Interface) aplikasi adalah aplikasi yang memungkinkan kita untuk bekerja dengan satu dokumen sekaligus. Contoh aplikasi tunggal dokumen Microsoft Word yang hanya satu dokumen yang terlihat pada suatu waktu. Visual Basic. NET menyediakan dukungan yang besar untuk membuat dan bekerja dengan aplikasi MDI. Secara umum, aplikasi MDI yang banyak digunakan oleh organisasi jasa keuangan di mana kebutuhan pengguna untuk bekerja dengan beberapa dokumen sekaligus.
Creating MDI Applications
Mari kita membuat aplikasi MDI. Buka Aplikasi Windows baru di Visual Basic. BERSIH. Aplikasi ini akan terbuka dengan bentuk yang standar, Form1. Tambahkan bentuk lain, Form2 ke aplikasi ini dengan mengklik kanan pada nama proyek di jendela Solution Explorer dan memilih Tambah-> Tambah Formulir Windows. Anda dapat menambahkan beberapa kontrol untuk Form2. Untuk aplikasi ini kita akan membuat From1 sebagai parent window MDI dan Form2 sebagai jendela anak MDI. Bentuk anak MDI penting untuk Aplikasi MDI sebagai pengguna berinteraksi terutama melalui bentuk-bentuk anak. Pilih Form1 dan di dalamnya Properties Window dalam bagian Gaya Windows, mengeset properti IsMdiContainer menjadi True. Pengaturan itu untuk menetapkan benar formulir ini sebagai wadah MDI untuk windows anak. Setelah Anda mengatur bahwa harta true perubahan bentuk itu warna. Sekarang, dari toolbox drag komponen MainMenu ke Form1. Kami akan menampilkan jendela anak ketika item menu diklik. Nama item menu tingkat atas ke Berkas dengan item submenu sebagai Anak New Window, Windows Anak Mengatur dan Keluar. Bentuk keseluruhan akan tampak seperti gambar di bawah ini.
Dengan aplikasi ini jendela anak baru ditampilkan setiap kali Anak New Window item menu diklik, semua jendela anak akan diatur ketika Anda mengklik item menu Windows Anak Atur. Untuk mendapatkan hasil yang diinginkan, buka jendela desainer kode dan paste kode berikut.
Public Class Form1 Inherits System.Windows.Forms.Form
Dim childForm As Integer = 0
Dim childForms(5) As Form2
'declaring an array to store child windows
'five child windows (Form2) will be displayed
#Region " Windows Form Designer generated code "
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub MenuItem2_Click(ByVal sender As System.Object,_
ByVal e As System.EventArgs) Handles MenuItem2.Click
childForm += 1
childForms(childForm) = New Form2()
childForms(childForm).Text = "ChildForm" & Str(childForm)
'setting title for child windows and incrementing the number with an array
childForms(childForm).MdiParent = Me
childForms(childForm).Show()
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object,_
ByVal e As System.EventArgs) Handles MenuItem3.Click
Me.LayoutMdi(MdiLayout.Cascade)
'arranging child windows on the parent form with predefined LayoutMdi method
'Different layouts available are, ArrangeIcons, Cascade, TileHorizontal, TileVertical
End Sub
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal_
e As System.EventArgs) Handles MenuItem4.Click
Me.Close()
'closing the application
End Sub
End Class
Dim childForm As Integer = 0
Dim childForms(5) As Form2
'declaring an array to store child windows
'five child windows (Form2) will be displayed
#Region " Windows Form Designer generated code "
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub MenuItem2_Click(ByVal sender As System.Object,_
ByVal e As System.EventArgs) Handles MenuItem2.Click
childForm += 1
childForms(childForm) = New Form2()
childForms(childForm).Text = "ChildForm" & Str(childForm)
'setting title for child windows and incrementing the number with an array
childForms(childForm).MdiParent = Me
childForms(childForm).Show()
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object,_
ByVal e As System.EventArgs) Handles MenuItem3.Click
Me.LayoutMdi(MdiLayout.Cascade)
'arranging child windows on the parent form with predefined LayoutMdi method
'Different layouts available are, ArrangeIcons, Cascade, TileHorizontal, TileVertical
End Sub
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal_
e As System.EventArgs) Handles MenuItem4.Click
Me.Close()
'closing the application
End Sub
End Class
Ketika Anda menjalankan aplikasi dan klik "New Child Window" menu item, jendela anak baru ditampilkan. Lima anak jendela akan ditampilkan sebagaimana kita mendeklarasikan array dari lima dalam kode. Gambar di bawah ini menampilkan output.
Ketika Anda mengklik pada "Anak Diatur Windows" item menu, semua jendela anak diatur. Ini terlihat seperti gambar di bawah ini.
Sekian
..........
