Menutup Semua form MDI Child

Facebook Tags: Source Code VB

Haduh…udah lama ga nulis tutorial lagi,gara2 banyak yg bimbingan kerumah
gpp lah,saling bantu ajah ..jadi curhat
Oke deh langsung ajah pada intinya kali ini.Untuk beberapa tutorial mungkin ada beberapa yang harus di kembangkan lagi dari listing ataupun kegunaanya.Begitu juga kali ini,disini akan saya coba memberikan sedikit pengetahuan tentang Bagaimana menutup semua MDI Child dalam waktu yang bersamaan.Ada kalanya kita dalam menjalankan atau membuat aplikasi lupa akan satu fitur ini,jika semua form terbuka di Form utama,maka akan sedikit kesulitan dalam
menutup form-form kecilnya,sebenernya bisa dilakukan dengan sekali klik saja
Oke sekarang skalian praktek,kalian buat project dengan :
1 buah MDI form
2 buah form biasa ajah..
dan ketitkan listing ini di procedure MDIFORM load

Private Sub MDIForm_Load()
Form1.Show
Form2.Show
End Sub

Lalu buat satu buah menu pada menu editor,beri saja namanya “Tutup semua”
dan listingnya seperti dibawah ini :

Private Sub mn_tutupSemua_Click()
Do Until Me.ActiveForm Is Nothing
Unload Me.ActiveForm
Loop
End Sub

Oke sekarang coba di Run dan kalian klik menu Tutup yang telah kalian buat tadi,maka semua form2 biasa yang tampil di form MDI akan menutup semuanya

Untuk lebih jelasnya sedot aja sample source codenya di bawah ini :
Download Source code