cutting this code down to size?

i have 26 comboboxes ... the first combobox has the #'s 2 to 25 ... what that is supposed to do is make the other 25 comboboxes either be visible or not (they r in an array) lets say u click on 12 in that first combobox ... then the first 12 comboboxes should be visible n the rest not visible ... this part of my long tedious code ... the first combobox is named "cmbnumbers" n the rest are called cmbgrade() ...

Select Case cmbnumbers.ListIndex
Case Is = 0
For cmbsvisible = 0 To 24
cmbgrade(cmbsvisible).Visible = True
Next cmbsvisible
Case Is = 1
For cmbsvisible = 0 To 23
cmbgrade(cmbsvisible).Visible = True
Next cmbsvisible
cmbgrade(24).Visible = False
Case Is = 2
For cmbsvisible = 0 To 22
cmbgrade(cmbsvisible).Visible = True
Next cmbsvisible
cmbgrade(24).Visible = False
cmbgrade(23).Visible = False
Case Is = 3
For cmbsvisible = 0 To 21
cmbgrade(cmbsvisible).Visible = True
Next cmbsvisible
cmbgrade(24).Visible = False
cmbgrade(23).Visible = False
cmbgrade(22).Visible = False
Case Is = 4
For cmbsvisible = 0 To 20
cmbgrade(cmbsvisible).Visible = True
Next cmbsvisible
cmbgrade(24).Visible = False
cmbgrade(23).Visible = False
cmbgrade(22).Visible = False
cmbgrade(21).Visible = False
Case Is = 5
For cmbsvisible = 0 To 19
cmbgrade(cmbsvisible).Visible = True
Next cmbsvisible
cmbgrade(24).Visible = False
cmbgrade(23).Visible = False
cmbgrade(22).Visible = False
cmbgrade(21).Visible = False
cmbgrade(20).Visible = False

u can see how it starts to get bigger ... by the way i'm working backwards on this thing so it might be a little confusing (i know it was for me)

Try this:

Code:

---

iList = CInt(cmbnumbers.ListIndex)
For cmbvisible = 0 to iList
cmbgrade(cmbvisible).Visible = True
Next
For cmbvisible = (iList + 1) to 25
cmbgrade(cmbvisible).Visible = False
Next

---

Hi theman32x

What you are doing in your code appears to be different to what you are explaining. This function will do what you want, I think.

Code:

---

Private Sub cmbNumbers_Click()
For cmbsVisible = 0 To 24
  If cmbsVisible > cmbNumbers.ListIndex Then
    cmbGrade(cmbsVisible).Visible = False
  Else
    cmbGrade(cmbsVisible).Visible = True
  End If
Next cmbsVisible
End Sub

---

This will mean if you click on 5 in the cmbNumbers, the first 5 cmbGrades will be visible. If this is the wrong way round (which it appears to be from your code), switch the true and false statements around.

Hope this helps

ur code sure cuts down on all that coding i did ... however, it starts hidden or making the comboboxes visible from the bottom up ... i switched the true n false n it does it right but leaves the first combobox of the 25 invisible ... i'm fooling around with it but i'm not getting anywhere ...

It does that because you only have 23 listitems (2-25) with 24 combo boxes. If you want the first one to remain visible, you can do it like this

Code:

---

For cmbsVisible = 0 To 24
  If cmbsVisible >= cmbNumbers.ListIndex Then
    cmbGrade(cmbsVisible).Visible = True
  Else
    cmbGrade(cmbsVisible).Visible = False
  End If
Next cmbsVisible
End Sub

---

but you'll have 2 visible at the end. If that's not what you want, can you have your cmbNumbers going from 1 to 25 rather than 2? then you can just do this:

Code:

---

For cmbsVisible = 0 To 24
  If cmbsVisible >cmbNumbers.ListIndex Then
    cmbGrade(cmbsVisible).Visible = True
  Else
    cmbGrade(cmbsVisible).Visible = False
  End If
Next cmbsVisible
End Sub

---

Hope this helps

i can't have it going from 1 to 25 instead of 2 cause those 2 comboboxes have #'s from 1 to 100 that i will need to average out ... therefore i at least need the first 2 comboboxes visible ... but thanks anyways ... with ur code n realistic's i manage to get it to work ... thanks for all ur help