نحوه مشاهده تمام فرم های برنامه دریک لیست باکس چه فرم loadیا unloadباشد؟

[saeed2142]

من یک لیست باکس ساختم ومی خوام اسامی تمام فرمهام را در آن لیست کنم ولی متاسفانه فرمهای باز را لیست می کنه واگه فرمی unload شده باشه درلیست باکس نماید لطفا راهنمایی ام کنید
باتشکر

[محسن واژدی]

سلام علیکم
این کار شدنی نیست چون تا زمانی که برنامه فرم ها را در حافظه بارگذاری نکند امکان بدست آوردن نام آنها وجود ندارد، در واقع زمانی که شما درخواست لیست کردن نام فرمها را مینمائید وی بی اسامی فرم هایی که در حافظه بارگذاری شده اند را لیست میکند

موفق باشید

[vbhamed]

سلام

خب شما كه برنامه رو نوشتيد مي‌دونيد چند تا فرم داريد
فقط بايد يك كار انجام بديد
از منوي Project گزينه Add Module رو بزنيد و كد زير رو تو اون بنويسيد

Global frm(10) As Form

Sub main()


Set frm(0) = Form1
Set frm(1) = Form2
Set frm(3) = Form3
Set frm(4) = Form4
Set frm(5) = Form5

'Using arrays
frm(1).Show

End Sub


بعد از منوي Project گزينه آخر يعني Project Properties رو بزنيد و از ليست Startup Object گزينه Sub Main رو انتخاب كنيد، اينطوري به برنامه مي گيد كه با متد Sub Main شروع بشه نه يك فرم

تو متد هم طبق دستورات بالا ما يك آرايه عمومي از نوع Form تعريف كرديم و فرمهاي برناممون رو خودمون به صورت دستي به عناصرش نسبت داديم
حالا آرايه frm فرمها رو در خودش نگهداري مي‌كنه و ميشه با عناصر اون مثل نام يك فرم برخورد كرد كه مثالش اومده
تابع Ubound(frm) هم تعداد فرمها رو بر مي‌گردونه كه ما اينجا در تعريف آرايه 10 قرار داديم يعني 11 تا فرم از frm(0) تا frm(10)