PDA

View Full Version : حرفه ای: نمايش دادن تمام فرم هاي پرو‍ژه بدون داشتن نام آنها



milad.biroonvand
دوشنبه 21 دی 1388, 15:22 عصر
سلام

من نام هيچ كدام از فرم هاي پروژمو ندارم ، حالا مي خوام با يه حلقه for تمام اون ها را نشونن بدم (show) كنم ،‌اينكار به چه صورن انجام مي شه .

با اين كد مي شه نام تمام فرم ها را نشون داد .





Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
Dim types As Type() = myAssembly.GetTypes()
For Each myType In types
' mytype
If myType.BaseType.FullName = "System.Windows.Forms.Form" Then
MessageBox.Show(myType.Name)
End If
Next



نكته ) من مي خوام فرم ها رو show يا show dialog كنم .

Computer.Programmer
دوشنبه 21 دی 1388, 16:29 عصر
دوست عزیز من تنها راهی که به ذهنم میرسه برای اون کاری که می خوای اینه که برنامتو به صورت یک اسمبل لود کنی و تک تک ماژول های اونو بررسی کنی اگر از نوع فرم بود اونارو باز کنی ولی شاید راه راحتری هم باشه. برای توضیحات بالا یک نمونه کد برات نوشتم همون کاری رو می کنه که می خوای.

موفق باشید

milad.biroonvand
سه شنبه 22 دی 1388, 08:51 صبح
سلام دوست عزيز

مرسي ، همين جوابي بود كه مي خواستم .