Tengo Una Duda
Tengo Dos Combo Box Con Labels El Primer Label Dice (Marca) con el combo box 1
y el segundo label dice (Modelos ) con el combo box 2
ahora mi pregunta es cuando yo elijio una marca ejemplo ( Audi ) yo quiere que salga en el combo box 2 los modelos del Audi
MI Codigo en el Comb1_click() es
if combo1.text="Audi" then
comb2.text="Q7"
comb2.text="R8"
Asi Sucesivamente
Estoy Usando VB6
Vas bien, pero en lugar de asignar valores al combo.text tienes que:
Vaciar el combo con combo.clear
Añadir los elementos con combo.add (o combo.additem no me acuerdo) segun sea la marca.
Saludos
Gracias Mi Hermano Me Ayudaste Mucho Pero tengo otra Duda Como Yo le Asigno los Precios por Año
cuando le doy al modelo en el textbox precio me tiene que salir el precio de cada año me funciona con el accord pero no el Civic
Private Sub Combo2_Click()
If Combo2.Text = "Accord" Then
Combo3.Clear
Combo3.AddItem "2013"
Combo3.AddItem "2014"
Combo3.AddItem "2015"
Combo3.AddItem "2016"
ElseIf Combo2.Text = "Civic" Then
Combo3.Clear
Combo3.AddItem "2013"
Combo3.AddItem "2014"
Combo3.AddItem "2015"
Combo3.AddItem "2016"
End If
End Sub
Private Sub Combo3_Click()
If Combo3.Text = "2013" Then
lblUS = "28,900"
ElseIf Combo3.Text = "2014" Then
lblUS = "32,000"
ElseIf Combo3.Text = "2015" Then
lblUS = "52,000"
ElseIf Combo3.Text = "2016" Then
lblUS = "64,000"
Te saldran siempre los mismos precios.
Tienes que poner otra comparacion
Private Sub Combo3_Click()
If Combo3.Text = "2013" Then
If Combo2.Text = "Accord" Then
lblUS = "28,900"
ElseIf Combo2.Text = "Civic" Then
lblUS = "xx,xxx"
End If
ElseIf Combo3.Text = "2014" Then
If Combo2.Text = "Accord" Then
lblUS = "32,000"
ElseIf Combo2.Text = "Civic" Then
lblUS = "xx,xxx"
End If
Elseif...
etc...
Gracias Mi Hermano Bendiciones