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