Duda Sobre Combo Box VB6

[R3Z]

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

Código (vb) [Seleccionar] Expandir

MI Codigo en el Comb1_click() es
if combo1.text="Audi" then
comb2.text="Q7"
comb2.text="R8"
Asi Sucesivamente

Estoy Usando VB6

[pkj]

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

[R3Z]

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"

[pkj]

Te saldran siempre los mismos precios.
Tienes que poner otra comparacion

Código (vb) [Seleccionar] Expandir


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...

[R3Z]

Gracias Mi Hermano Bendiciones