צריכה עזרה בסגירת טפסים.

[דפJה]

צריכה עזרה בסגירת טפסים.

יש לי תוכנה עם חלון MDI ויש מצב שבו אני רוצה לסגור את כל הטפסים הפתוחים.(אבל לא טופס האב) ניסיתי מספר דרכים ולא עבד

Do Until MDImain.ActiveForm Is Nothing Unload MDImain.ActiveForm Loop פקודה זו בתוך FORM UNLOAD "העיפה" את התוכנה. ניסיתי גם: for each f in forms if f.frmName = 'frmName' then unload frmName next האם צריך להגדיר את המשתנה f ? למה לא פותח כלום אם שמים נקודה אחריו? תודה. (ממשהי שכבר מזמן לא נגעה בVB וכמעט שכחה הכל)

 

[pivi]

זה יעזור לך.

Public Sub CloseForm(ByVal frm As Form) For Each frm In Forms If frm.name <> "MDImain" Then Unload frm End If Next frm End Sub​

קריאה לפונקציה Call CloseForm Me

 

[דפJה]

אלפי תודות אבל יש הודעת שגיאה

must close or hide topmost modal form first ניסיתי לכתוב UNLOAD ME לפני הקריאה אל קיבלתי אותה הודעה. איך אדע מה סדר החלונות? יש לי לפחות 4 פתוחים במצב הנתון.

 

[דפJה]

אל=אבל