alirezash
شنبه 06 آبان 1391, 12:46 عصر
سلام دوستان عزیز .
من احتیاج دارم که لیست کنترل های موجود در فرم را در یک کمبوباکس نشون بدم . که از دستور زیر استفاده می کنم .
Dim con As Control
For Each con In Form1.Controls
ComboBox2.Items.Add(con.Name)
Next
اما مشکل اینجاست که من تو فرمم 4 تا پانل دارم . با این دوستور فقط لیست پانل ها رو نشون میدهد. کنترل های داخل پانل رو نشون نمی دهد.
فقط یک نکته ای که نمیدونم چه پانل هایی در فرم وجود داره یک دستور کلی می خواهم که توی تمام فرمام استفاده کنم
سوال دوم :
حالا فکر کنید می خواهم یک لیستی درست کنم که توش اسم فرم ها و در کنارش نام کنترل های اون فرم باشه.
از دستور زیر نام فرم های رو بدست می آورم . حالا چجوری لیست کنترل های زیر اون فرم را بدست بی آورم
Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
Dim types As Type() = myAssembly.GetTypes()
For Each myType In types
If myType.BaseType.FullName = "System.Windows.Forms.Form" Then
cmb_form.Items.Add(myType.Name)
End If
Next
من احتیاج دارم که لیست کنترل های موجود در فرم را در یک کمبوباکس نشون بدم . که از دستور زیر استفاده می کنم .
Dim con As Control
For Each con In Form1.Controls
ComboBox2.Items.Add(con.Name)
Next
اما مشکل اینجاست که من تو فرمم 4 تا پانل دارم . با این دوستور فقط لیست پانل ها رو نشون میدهد. کنترل های داخل پانل رو نشون نمی دهد.
فقط یک نکته ای که نمیدونم چه پانل هایی در فرم وجود داره یک دستور کلی می خواهم که توی تمام فرمام استفاده کنم
سوال دوم :
حالا فکر کنید می خواهم یک لیستی درست کنم که توش اسم فرم ها و در کنارش نام کنترل های اون فرم باشه.
از دستور زیر نام فرم های رو بدست می آورم . حالا چجوری لیست کنترل های زیر اون فرم را بدست بی آورم
Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
Dim types As Type() = myAssembly.GetTypes()
For Each myType In types
If myType.BaseType.FullName = "System.Windows.Forms.Form" Then
cmb_form.Items.Add(myType.Name)
End If
Next