درس التعامل مع Combobox للمبتدئين

مبادرة جيدة منك أخ جوزيف95 بأن تبدأ أول مشاركة لك بدرس

صراحة طريقة تعبيرك لم أفهمها لحين رؤية مثالك :

Private Sub Command1_Click()
If Combo1.Text = "form2" Then
Form2.Show
End If
If Combo1.Text = "form3" Then
Form3.Show
End If
If Combo1.Text = "form4" Then
Form4.Show
End If
End Sub

أولا يمكن كتابة الكود بطريقة أخرى أجمل وأقصر ،وأضعها للفائدة لك ولمن يريد فهناك أشياء أنا أوأنت قد نجهلها فأعتبرني أنا الطالب وأنت الأستاذ

Private Sub Command1_Click()
	If Combo1 = "form2" Then
		Form2.Show
	ElseIf Combo1 = "form3" Then
		Form3.Show
	ElseIf Combo1 = "form4" Then
		Form4.Show
	End If
End Sub

أيضا يمكن أختصار الكود :

Private Sub Command1_Click()
	If Combo1 = "form2" Then Form2.Show
	If Combo1 = "form3" Then Form3.Show
	If Combo1 = "form4" Then Form4.Show
End Sub

أيضا لأختصار حجم البرنامج عندما يكتمل :

Private Sub Command1_Click()
	If Combo1.ListIndex = 0 Then Form2.Show
	If Combo1.ListIndex = 1 Then Form3.Show
	If Combo1.ListIndex = 2 Then Form4.Show
End Sub

أيضا للمعلومة لنا وما دام الدرس يتكلم عن الكمبوبوكس فيمكن حذف الزر وأدراج الكود مباشرة في حدث النقر عند أختيار الأسم :

Private Sub Combo1_Click()
	If Combo1.ListIndex = 0 Then Form2.Show
	If Combo1.ListIndex = 1 Then Form3.Show
	If Combo1.ListIndex = 2 Then Form4.Show
End Sub

فأنا ذكرت الأمثلة لكي نفكر بطريقة كتابة أكوادنا بالشكل الصحيح من بداية البرنامج وحتى نهاية البرنامج

تابع دام فضلك