File
- About Me Ctrl+A
- Exit Ctrl +E
- Phitagoras
- Squere
- Ticketing
- 7 Miracle of Word
Jawaban
- Tambahkan MDI Form:
- Project| Add MDI Form
- Klik Open
- Buat Menu : Tools | Menu Editor
- Buat Struktur Menu
| Caption | Name | Shortcut |
| &File | mnFile | |
| …About Me | mnAboutMe | Ctrl+A |
| …Exit | mnExit | Ctrl+E |
| &Sequence | mnSequence | |
| …Phitagoras | mnPhitagoras | |
| …Squere | mnSquere | |
| &Condition | mnCondition | |
| …Tiketing | mnTiketing | |
| …7 Miracle | mnMiracle | |
| Control Array | mnControlArray |
- Caption : Kisi-kisi Soal Ujian
- WindowState : Maximize
Private Sub mnAboutme_Click() Form1.Show End Sub Private Sub mnControlArray_Click() Form6.Show End Sub Private Sub mnExit_Click() End End Sub Private Sub mnMiracle_Click() Form5.Show End Sub Private Sub mnPhitagoras_Click() Form2.Show End Sub Private Sub mnSquere_Click() Form3.Show End Sub Private Sub mnTiketing_Click() Form4.Show End Sub
- Tambahkan 5 Form Baru
- Menu: Project | Add Form
- Klik Open
- Atur property MDIChild bernilai True untuk semua form anak
- Atur property BorderStyle bernilai FixedDialog untuk semua form agar ukurannya tidak berubah
- Atur MDI Form agar tampil Pertama kali
- Project|Project1 Properties
- Pada Bagian Start Up Object pilih MDIForm
- klik OK



0 komentar:
Posting Komentar