+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الحصول على إسم الفورم (/showthread.php?tid=41400)
الحصول على إسم الفورم - jemyx - 10-05-22
ارغب فى الحصول على إسم كل فورم موجود فى المشروع
هل من مساعدة ؟
RE: الحصول على إسم الفورم - trakktour - 10-05-22
(10-05-22, 02:45 PM)jemyx كتب : ارغب فى الحصول على إسم كل فورم موجود فى المشروع
هل من مساعدة ؟
و عليكم السلام
تفضل
كود :
Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
Dim types As Type() = myAssembly.GetTypes()
For Each myType As Object In types
If myType.BaseType.FullName.ToString.ToUpper = "SYSTEM.WINDOWS.FORMS.FORM" Then
MsgBox(myType.Name)
End If
NextRE: الحصول على إسم الفورم - jemyx - 10-05-22
(10-05-22, 03:57 PM)trakktour كتب :اخى اشكرك على تعبك و مجهودك ولكن ليس هذا م اريدة(10-05-22, 02:45 PM)jemyx كتب : ارغب فى الحصول على إسم كل فورم موجود فى المشروع
هل من مساعدة ؟
و عليكم السلام
تفضل
كود :
Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
Dim types As Type() = myAssembly.GetTypes()
For Each myType As Object In types
If myType.BaseType.FullName.ToString.ToUpper = "SYSTEM.WINDOWS.FORMS.FORM" Then
MsgBox(myType.Name)
End If
Next
اي فورم ابدأ فى العمل بها فى خانة text الخاصة ف الفورم اعطيها إسم وليكن مثلا إدارة بيانات العاملين
ارغب فى أخذ إسم كل فورم موجودة فى المشروع و وضعها ك item داخل combobox
RE: الحصول على إسم الفورم - asmarsou - 10-05-22
(10-05-22, 05:07 PM)jemyx كتب :السلام عليكم و رحمة الله و بركاته(10-05-22, 03:57 PM)trakktour كتب :اخى اشكرك على تعبك و مجهودك ولكن ليس هذا م اريدة(10-05-22, 02:45 PM)jemyx كتب : ارغب فى الحصول على إسم كل فورم موجود فى المشروع
هل من مساعدة ؟
و عليكم السلام
تفضل
كود :
Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
Dim types As Type() = myAssembly.GetTypes()
For Each myType As Object In types
If myType.BaseType.FullName.ToString.ToUpper = "SYSTEM.WINDOWS.FORMS.FORM" Then
MsgBox(myType.Name)
End If
Next
اي فورم ابدأ فى العمل بها فى خانة text الخاصة ف الفورم اعطيها إسم وليكن مثلا إدارة بيانات العاملين
ارغب فى أخذ إسم كل فورم موجودة فى المشروع و وضعها ك item داخل combobox
اخي الكريم هناك عدة طرق و كيفيات لذلك
مثلا ان تدخل اسماء كل الفورمات لديك في الكمبوبوكس تلقائيا اي عند فتح الفورم الرئيسية دون اي تدخل منك كما اشار الاخ tracktor قي رده
هذا مثال
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
Dim types As Type() = myAssembly.GetTypes()
Dim formList As New List(Of Type)
For Each myForm In types
If myForm.BaseType.FullName = "System.Windows.Forms.Form" AndAlso _
myForm.AssemblyQualifiedName <> Me.GetType.AssemblyQualifiedName Then
ComboBox1.Items.Add(myForm)
End If
Next
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim idx As Integer = ComboBox1.SelectedIndex
Dim myform As Type = DirectCast(ComboBox1.SelectedItem, Type)
Dim frm As Form = CType(System.Activator.CreateInstance(myform), Form)
frm.Show()
End Sub
كود :
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
Select Case (ComboBox2.SelectedItem.ToString)
Case "form2"
Form2.Show()
Case "form3"
Form3.Show()
End Select
End Sub