En let metoder er at bruge Visible funktionen på de combo bokse som du bruger.
Du opretter det antal combo-bokse som svarer til maks. antal kugler. Som default sættes Visible til "False" på alle. Når man så har valgt antal kugler bruger du følgende kode til at vise de relevante combo-bokse:
Koden indsættes ved dobbel-click på combo-boksen for valg af antal kugler!
Private Sub ComboBox1_Change()
'---- Det sikres at smags combo bokse ikke kan ses -----
ComboBox_Smag1.Visible = False
ComboBox_Smag2.Visible = False
ComboBox_Smag3.Visible = False
ComboBox_Smag4.Visible = False
ComboBox_Smag5.Visible = False
'----------------------------------------------------------------
'----- De relevante combo bokse vises --------------------
If ComboBox1.Value = 1 Then
ComboBox_Smag1.Visible = True
ElseIf ComboBox1.Value = 2 Then
ComboBox_Smag1.Visible = True
ComboBox_Smag2.Visible = True
ElseIf ComboBox1.Value = 3 Then
ComboBox_Smag1.Visible = True
ComboBox_Smag2.Visible = True
ComboBox_Smag3.Visible = True
ElseIf ComboBox1.Value = 4 Then
ComboBox_Smag1.Visible = True
ComboBox_Smag2.Visible = True
ComboBox_Smag3.Visible = True
ComboBox_Smag4.Visible = True
ElseIf ComboBox1.Value = 5 Then
ComboBox_Smag1.Visible = True
ComboBox_Smag2.Visible = True
ComboBox_Smag3.Visible = True
ComboBox_Smag4.Visible = True
ComboBox_Smag5.Visible = True
End If
'--------------------------------------------------------------
End Sub
Peder