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 كنم .
من نام هيچ كدام از فرم هاي پروژمو ندارم ، حالا مي خوام با يه حلقه 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 كنم .