MDI
dan Menustrip
(tugas 6 Lab
VB2)
- Buat project baru pada MS Visual Studio dengan bahasa VB
- Tambahkan MDI form dengan klik kanan pada project > add > New Item > pilih MDI Parent Form
3. Kemudian isi menu
strip yang ada di MDI Parent Form, beri nama “Data Karyawan”, “ Data
Pelanggan”, “Perhitungan Premi”. Nama menu tool strip dapat di sesuaikan dengan
kebutuhan user.
Source code pada
tool strip menu “Data Karyawan”
Private Sub
ProjectToolStripMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ProjectToolStripMenuItem.Click
' Create a new instance of the child form.
Dim ChildForm As
New System.Windows.Forms.Form
' Make it a child of this MDI form before showing
it.
ChildForm.MdiParent = Me
m_ChildFormNumber += 1
ChildForm.Text = "Data
Karyawan " & m_ChildFormNumber
ChildForm.Show()
End Sub
Source code pada
tool strip menu “Data Pelanggan”
Private Sub
DataPelangganToolStripMenuItem_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
DataPelangganToolStripMenuItem.Click
' Create a new instance of the child form.
Dim ChildForm As
New System.Windows.Forms.Form
' Make it a child of this MDI form before showing
it.
ChildForm.MdiParent = Me
m_ChildFormNumber += 1
ChildForm.Text = "Data
Pelanggan " & m_ChildFormNumber
ChildForm.Show()
End Sub
Source code pada
tool strip menu “Perhitungan Premi”
Private Sub
PerhitunganPremiToolStripMenuItem_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
PerhitunganPremiToolStripMenuItem.Click
' Create a new instance of the child form.
Dim ChildForm As
New System.Windows.Forms.Form
' Make it a child of this MDI form before showing
it.
ChildForm.MdiParent = Me
m_ChildFormNumber += 1
ChildForm.Text = "Perhitungan
Premi " & m_ChildFormNumber
ChildForm.Show()
End Sub
4. Output saat debug ketika kita pilih/klik dari form MDI Parent "Data Karyawan", "Data Pelanggan", "Perhitungan Premi" adalah seperti ini,
Dosen Pembimbing :
Agus Suharto M.Kom.
Oleh :
