Halo sobat, pada kesempatan kali ini saya akan membagikan tips yang sederhana mengenai cara Menutup Semua Form. Anggap saja kita membuat project dengan menyediakan MDIForm dan Form. Dengan membuat menu di MDIForm. Sebelum jauh mengetahui mengenai Cara Menutup Semua Form, saya bagikan dahulu cara membuat menu pada MDIForm. Tanpa basa basi kita buka program Visual Basic 6 nya.
Tambahkan 1 Form : Form1 (Default)
Tambahkan 1 MDIForm : MDIForm1 (Default)
Jika sudah menambahkan MDIForm dan Form maka selanjutnya ialah mengeset startup. Maksudnya agar saat program di jalankan (Running) maka apakah MDIForm1 terlebih dahulu atau Form1 yang akan di jalankan terlebih dahulu saat di Running. Disini saya akan mengeset MDIForm1 sebagai startup pada program. Langkah-langkahnya sebagai berikut
- Klik Menu Project
- Pilih Project1 Properties (Jika Nama Projectnya : Project1)
- Klik Starup Object dan pilih MDIForm1
- Klik OK
Klik Kanan pada MDIForm1
Pilih Menu Editor
Pada tampilan Menu Editor, isi Caption dan Name dan jika sudah tekan Enter atau klik tombol next. Contoh tampilan sperti di bawah ini
selanjutnya klik pada menu Setup yang kita buat untuk memanggil Form1
dan isikan Form1.Show dan coding akan seperti ini
Private Sub setup_Click()
Form1.Show
End Sub
dan selanjutnya klik menu Keluar untuk mengisikan coding untuk menutup semua Form yang aktif. Dan Codingnya seperti berikut ini
Private Sub keluar_Click()
Dim Form As Form
For Each Form In Forms
Unload Form
Set Form = Nothing
Next Form
End Sub
Coba jalankan dan panggil Form1 dengan negklik menu Setup dan coba keluar dari program dengan mengklik Keluar.
Semoga Bermanfaat ...
Posted by , Published at 11:47:00 AM and have
0
comments
No comments:
Post a Comment