سوالی در مورد کمبو باکس

[alifatehi]

لطف کنید بیندید اشتباه من در این کد چیست؟

هدف این کد این است که 10 مقدار در ون لیست یک کمبو باکس است . که می خواهم با انتخاب هر عدد به همان مقدار frame نمایش بده

سوال دوم این است که می توان طوری طراحی کرد که زمانی که آخرین عدد که عدد 10 است انتخاب شود و فرم به دلیل کمبود جا از Scrollbar استفاده کند ( از هر کس می پرسم کسی بلد نیست)


این کد است
خطا اینجاست Private Sub cboNuChek_Click()

' hide and show farm
If cboNuChek.List(cboNuChek.ListIndex) = 1 Then
FraCkek1.Visible = True
FraCkek2.Visible = False
FraCkek3.Visible = False
' FraCkek4.Visible = False
' FraCkek5.Visible = False
' FraCkek6.Visible = False
' FraCkek7.Visible = False
'FraCkek8.Visible = False
' FraCkek9.Visible = False
' FraCkek10.Visible = False

End If

If cboNuChek.List(cboNuChek.ListIndex) = 2 Then
FraCkek1.Visible = True
FraCkek2.Visible = True
' FraCkek3.Visible = False
' FraCkek4.Visible = False
' FraCkek5.Visible = False
' FraCkek6.Visible = False
' FraCkek7.Visible = False
' FraCkek8.Visible = False
' FraCkek9.Visible = False
' FraCkek10.Visible = False
End If

If cboNuChek.List(cboNuChek.ListIndex) = 3 Then
FraCkek1.Visible = True
FraCkek2.Visible = True
FraCkek3.Visible = True
FraCkek4.Visible = False
FraCkek5.Visible = False
FraCkek6.Visible = False
FraCkek7.Visible = False
FraCkek8.Visible = False
FraCkek9.Visible = False
FraCkek10.Visible = False
End If

If cboNuChek.List(cboNuChek.ListIndex) = 4 Then
FraCkek1.Visible = True
FraCkek2.Visible = True
FraCkek3.Visible = True
FraCkek4.Visible = True
Line1.Visible = True
End If
If cboNuChek.List(cboNuChek.ListIndex) = 5 Then
FraCkek1.Visible = True
FraCkek2.Visible = True
FraCkek3.Visible = True
FraCkek4.Visible = True
FraCkek5.Visible = True
Line1.Visible = True
End If

If cboNuChek.List(cboNuChek.ListIndex) = 6 Then
FraCkek1.Visible = True
FraCkek2.Visible = True
FraCkek3.Visible = True
FraCkek4.Visible = True
FraCkek5.Visible = True
FraCkek6.Visible = True
Line1.Visible = True
Line2.Visible = True
End If

If cboNuChek.List(cboNuChek.ListIndex) = 7 Then
FraCkek1.Visible = True
FraCkek2.Visible = True
FraCkek3.Visible = True
FraCkek4.Visible = True
FraCkek5.Visible = True
FraCkek6.Visible = True
FraCkek7.Visible = True
Line1.Visible = True
Line2.Visible = True
End If

If cboNuChek.List(cboNuChek.ListIndex) = 8 Then
FraCkek1.Visible = True
FraCkek2.Visible = True
FraCkek3.Visible = True
FraCkek4.Visible = True
FraCkek5.Visible = True
FraCkek6.Visible = True
FraCkek7.Visible = True
FraCkek8.Visible = True
Line1.Visible = True
Line2.Visible = True
End If

If cboNuChek.List(cboNuChek.ListIndex) = 9 Then
FraCkek1.Visible = True
FraCkek2.Visible = True
FraCkek3.Visible = True
FraCkek4.Visible = True
FraCkek5.Visible = True
FraCkek6.Visible = True
FraCkek7.Visible = True
FraCkek8.Visible = True
FraCkek9.Visible = True
Line1.Visible = True
Line2.Visible = True
End If

If cboNuChek.List(cboNuChek.ListIndex) = 10 Then
FraCkek1.Visible = True
FraCkek2.Visible = True
FraCkek3.Visible = True
FraCkek4.Visible = True
FraCkek5.Visible = True
FraCkek6.Visible = True
FraCkek7.Visible = True
FraCkek8.Visible = True
FraCkek9.Visible = True
FraCkek10.Visible = True
Line1.Visible = True
Line2.Visible = True
End If

[.:KeihanCPU:.]

دوست عزیز اینطوری که نمیشه
پروژه رو قرار بده

[اوبالیت به بو]

اين روش شما اصلاً درست نيست شايد طرف 100 تا چك داشته باشه شما 100 تا Frame ميسازي؟؟؟ يه نمونه كد ساده ضميمه كردم.
http://www.barnamenevis.org/forum/images/icons/icon4.gif بايد از آرايه كنترلي استفاده كني. تو يكي از تايپيك ها توضيح دادم.

[alifatehi]

عزیزم خیلی مچکر


راستی می تونی رو یفرمی که طراحی کردی scrollbar بزاری زیرا شمار 9 و 10 رو خوب نشون نمیده اگر این کار رو انجام بدهی واقعا ازت مچکر می شم.

[اوبالیت به بو]

تركيب برنامه بااين پست (http://barnamenevis.org/forum/showpost.php?p=530570&postcount=2)

[alifatehi]

تركيب برنامه بااين پست (http://barnamenevis.org/forum/showpost.php?p=530570&postcount=2)


خیلی ممنوم