بستن تمام پنجره ها

[ali reza mansoori 2]

من یک فرم MDI و چند فرم فرزند دارم که می خواستم با کلیک بر روی یک دکمه تمام آنها بسته شوند

[xxxxx_xxxxx]

فقط کافی هست فرم MDI رو ببندید، همه فرم های Child هم باهاش بسته میشن:


Unload MDIForm1

[ali reza mansoori 2]

من می خواسم با کلیک بر روی یک دکمه این کارو انجام بدم بدون بستن فرم اصلی

[navidiran]

این سوال من هم هست. کسی میتونه راهنمایی کنه؟

[محسن واژدی]

سلام
کد زیر را بررسی کنید:

Private Sub Command1_Click()
On Error Resume Next
Dim fForm As Form
For Each fForm In Forms
If fForm.Name <> Name Then Unload fForm
Next
End Sub



موفق باشید