
Home, Forum diskusi, Chatting, Download

Latihan 1

Judul : Membuat MDIform dan Menu

1. Aktifkan kembali Latihan Modul 4

2. Tambahkan MDIForm pada project tersebut, dengan menu Project, kemudian pilih Add MDIform, kemudian aturlah properti sebagai berikut :

Kontrol	Properti	Value
MDIForm1	Name WindowState	frmMain vbMaximize

3. Jadikan form-form lain yang berada pada project tersebut menjadi MDIChild, dengan membuat properti MDIChild pada masing-masing form menjadi True.

4. Kemudian tambahkan menu berikut pada MDIForm anda, dengan menu Tools, Menu Editor, dan ketikan data berikut.

Data	mnuData
- Peserta	mnuDataPeserta
- Negara	mnuDataNegara
- Propinsi	mnuDataPropinsi
- Garis pemisah	mnuPemisah1
- Ujian	mnuDataUjian
Laporan	mnuLaporan
- Daftar Peserta	mnuLaporanDaftarPeserta
- Peserta Ujian dan Nilai	mnuLaporanPesertaUjian
Cetak	mnuCetak
- Cetak Sertifikat	mnuCetakSertifikat
- Cetak Label Amplop	mnuCetakLabelAmplop
Selesai	mnuSelesai
- Ya	mnuYa
- Tidak	mnuTidak

Atur hirarki yang bersesuaian dengan tampilan diatas.

6. Kemudian Lakukan koding untuk menampilkan Form berdasarkan masing-masing pilihan pada menu, Contoh :

Private Sub mnuDataPeserta_Click()
frmPeserta.Show
End Sub

Private Sub mnuDataNegara_Click()
frmNegara.Show
End Sub

Private Sub mnuDataPropinsi_Click()
frmPropinsi.Show
End Sub

Private Sub mnuYa_Click()
Unload Me
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Not Me.ActiveForm Is Nothing Then
   MsgBox "Masih ada Form yang aktif"
   Cancel = True
End If
End Sub

Dibuat oleh hendra@indoprog.com
Medan - Sumatera Utara
Indonesia