گرفتن نام تمام فرمهای موجود در برنامه

[ali190]

باسلام
من میخوام با استفاده از حلقه زیر نام تمام فرمهای موجود در برنامه رو برگردونم ٰ منتها توسط این حلقه فقط نام اولین فرم برگشت داده میشه:
Dim frmCurr As Form
For Each frmCurr In Forms
MsgBox frmCurr.Caption
Next frmCurr

میشه بگید اشکال کجاست؟

[vbhamed]

سلام

اين دستور فقط فرمهايي كه لود شده اند رو بر مي‌گردونه

[ali190]

سلام
ممنون از توضیحاتتون
چطور میتونم نام تمام فرمهای موجود در برنامه رو با یک حلقه برگردونم (چه اونهایی که لود شده اند و چه اونهایی که لود نشده اند)
ممنون میشم راهنماییم کنید
یاعلی

[vbhamed]

سلام

هدفتون از اين كار چيه ؟

[ali190]

من در برنامه ام از کدجاک 15 استفاده کردم ام
در برنامه ام حدود 50 تا فرم دارم
برای اینکه قالب کدجاک رو در هر فرمی اعمال کنم میبایست کد زی رو بنویسم:
Form1.Show
CommandBars.EnableOffice2007FrameHandle Form1.hwnd
برای اینکه در همه جا CommandBars.EnableOffice2007FrameHandle Form1.hwnd این کد تکرار نشه میخوام توسط یک تابع فرمت کدجاک رو در ابتدای برنامه (در Splash) در همه فرمهام اعمال کنم
بعدش هر فرمبی رو که show میکنم فرمت کدجاک درش اعمال شده
اگر نام همه فرمهام رو توسط یک حلقه بدست نیارم مجبورم این کد CommandBars.EnableOffice2007FrameHandle form name.hwnd رو برای 50 تا فرمم در یک تابع اعمال کنم
اما با اون حلقه در کدهام صرفه جویی میکنم
امیدورام منظورم رو رسونده باشم
یاعلی

[M.T.P]

سلام
روشتون روش خوبی نیست ، بارگزاری همه فرم ها در حافظه تنها برای صرفه جویی در نوشتن کد نمیتونه کار درستی باشه اما به نظر من بهترین و اصولی ترین روش برای شما اینه که یک سابروتین پابلیک در یک ماژول به شکل زیر تعریف کنید:


Public Sub SetRibbonTheme(CFrom As Form)
CFrom.CommandBars.EnableOffice2007FrameHandle CFrom.hWnd
End Sub

و به شکل زیر در Form_Load همه فرم ها ازش استفاده کنید:


Call SetRibbonTheme(Me)

[vbhamed]

سلام

يك راه ديگه هم هست
از SkinFraweWork همون Codejock استفاده كند بعد كنترل SkinFrameWork يك خاصيت داره به نام AutoApplyNewWindows كه اگر True باشه به صورت اتوماتيك اسكين رو روي پنجره هاي جديد اعمال مي‌كنه
البته بايد كنترل SkinFraweWork خودش در فرمي لود بشه كه هميشه تو حافظه هست و بسته نميشه، ميتوني يك فرم مخفي براي همين كار اضافه كني