Ayuda con COMBOBOX
Hola que tal necesito ayuda el problema es el siguiente tengo una aplicación en visual basic 6.0 y el ella estoy utilizando una List Box en donde al elegir un producto (en este caso de sabritas) en los label aparezcan los precios del producto dependiendo su tamaño con opciones checkbox: Chico, mediano y grande al elegir una de ellas ingresa cuantas quieres y te hace el calculo
La Ayuda que necesito es que mi aplicación Haga el mismo proceso pero que en ves de utilizar una List Box Utilice Un Combo Box lo único en que debe cambiar es en eso pero
No se como hacerlo soy nueva en esto
Bueno aquí esta el código con el que cuento al utilizar la List Box pero necesito saber que código ingreso después de borrar la List Box e Insertar El ComboBox por favor se ve muy extenso pero es por que es algo repetitivo
Private Sub chkchico_Click()
If chkchico = Checked Then
txtchico.Enabled = True
txtchico.SetFocus
ElseIf chkchico.Value = False Then
txtchico.Enabled = False
txtparcialchico = "0"
txtpagototal.Text = ""
txtcambio.Text = ""
End If
End Sub
Private Sub chkgrande_Click()
If chkgrande = Checked Then
txtgrande.Enabled = True
txtgrande.SetFocus
ElseIf chkgrande.Value = False Then
txtgrande.Enabled = False
txtparcialgrande = "0"
txtpagototal.Text = ""
txtcambio.Text = ""
End If
End Sub
Private Sub chkmediano_Click()
If chkmediano = Checked Then
txtmediano.Enabled = True
txtmediano.SetFocus
ElseIf chkmediano.Value = False Then
txtmediano.Enabled = False
txtparcialmediano = "0"
txtpagototal.Text = ""
txtcambio.Text = ""
End If
End Sub
Private Sub cmdaceptar_Click()
Dim preciochico, preciomediano, preciogrande, cambio As Double
Dim indice As Integer
indice = lstproductos.ListIndex
Select Case indice
Case 0
lblpuchico = "3.5"
lblpumed = "7.8"
lblpugrande = "12.5"
If chkchico.Value = 1 Then
preciochico = CInt(txtchico) * CDbl(lblpuchico)
txtparcialchico.Text = CStr(preciochico)
Else
txtparcialchico.Text = 0
End If
If chkmediano.Value = 1 Then
preciomediano = CInt(txtmediano) * CDbl(lblpumed)
txtparcialmediano.Text = CStr(preciomediano)
Else
txtparcialmediano.Text = 0
End If
If chkgrande.Value = 1 Then
preciogrande = CInt(txtgrande) * CDbl(lblpugrande)
txtparcialgrande.Text = CStr(preciogrande)
Else
txtparcialgrande.Text = 0
End If
Case 1
lblpuchico = "4"
lblpumed = "6"
lblpugrande = "10"
If chkchico.Value = 1 Then
preciochico = CInt(txtchico) * CDbl(lblpuchico)
txtparcialchico.Text = CStr(preciochico)
Else
txtparcialchico.Text = 0
End If
If chkmediano.Value = 1 Then
preciomediano = CInt(txtmediano) * CDbl(lblpumed)
txtparcialmediano.Text = CStr(preciomediano)
Else
txtparcialmediano.Text = 0
End If
If chkgrande.Value = 1 Then
preciogrande = CInt(txtgrande) * CDbl(lblpugrande)
txtparcialgrande.Text = CStr(preciogrande)
Else
txtparcialgrande.Text = 0
End If
Case 2
lblpuchico = "4.5"
lblpumed = "5.5"
lblpugrande = "15"
If chkchico.Value = 1 Then
preciochico = CInt(txtchico) * CDbl(lblpuchico)
txtparcialchico.Text = CStr(preciochico)
Else
txtparcialchico.Text = 0
End If
If chkmediano.Value = 1 Then
preciomediano = CInt(txtmediano) * CDbl(lblpumed)
txtparcialmediano.Text = CStr(preciomediano)
Else
txtparcialmediano.Text = 0
End If
If chkgrande.Value = 1 Then
preciogrande = CInt(txtgrande) * CDbl(lblpugrande)
txtparcialgrande.Text = CStr(preciogrande)
Else
txtparcialgrande.Text = 0
End If
Case 3
lblpuchico = "5"
lblpumed = "10"
lblpugrande = "16"
If chkchico.Value = 1 Then
preciochico = CInt(txtchico) * CDbl(lblpuchico)
txtparcialchico.Text = CStr(preciochico)
Else
txtparcialchico.Text = 0
End If
If chkmediano.Value = 1 Then
preciomediano = CInt(txtmediano) * CDbl(lblpumed)
txtparcialmediano.Text = CStr(preciomediano)
Else
txtparcialmediano.Text = 0
End If
If chkgrande.Value = 1 Then
preciogrande = CInt(txtgrande) * CDbl(lblpugrande)
txtparcialgrande.Text = CStr(preciogrande)
Else
txtparcialgrande.Text = 0
End If
txtpagototal.Text = CDbl(txtparcialchico) + CDbl(txtparcialmediano) + CDbl(txtparcialgrande)
If (txtrecibido.Text) >= (txtpagototal.Text) Then
cambio = CDbl(txtrecibido) - CDbl(txtpagototal)
txtcambio.Text = CStr(cambio)
Else: MsgBox ("Ingresa una cantidad mayor o igual al pago total")
Exit Sub
End If
End Sub
Private Sub Form_Load()
lstproductos.List(0) = "Cheetos"
lstproductos.List(1) = "Churrumais"
lstproductos.List(2) = "Crujitos"
lstproductos.List(3) = "Doritos"
txtchico.Text = ""
txtmediano.Text = ""
txtgrande.Text = ""
End Sub
Private Sub lstproductos_Click()
Dim indice As Integer
indice = lstproductos.ListIndex
Select Case indice
Case 0:
lblpuchico = "3,5"
lblpumed = "7,8"
lblpugrande = "12,5"
Case 1:
lblpuchico = "4"
lblpumed = "6"
lblpugrande = "10"
Case 2:
lblpuchico = "4,5"
lblpumed = "5,5"
lblpugrande = "15"
Case 3:
lblpuchico = "5"
lblpumed = "10"
lblpugrande = "16"
End Select
End Sub
La Ayuda que necesito es que mi aplicación Haga el mismo proceso pero que en ves de utilizar una List Box Utilice Un Combo Box lo único en que debe cambiar es en eso pero
No se como hacerlo soy nueva en esto
Bueno aquí esta el código con el que cuento al utilizar la List Box pero necesito saber que código ingreso después de borrar la List Box e Insertar El ComboBox por favor se ve muy extenso pero es por que es algo repetitivo
Private Sub chkchico_Click()
If chkchico = Checked Then
txtchico.Enabled = True
txtchico.SetFocus
ElseIf chkchico.Value = False Then
txtchico.Enabled = False
txtparcialchico = "0"
txtpagototal.Text = ""
txtcambio.Text = ""
End If
End Sub
Private Sub chkgrande_Click()
If chkgrande = Checked Then
txtgrande.Enabled = True
txtgrande.SetFocus
ElseIf chkgrande.Value = False Then
txtgrande.Enabled = False
txtparcialgrande = "0"
txtpagototal.Text = ""
txtcambio.Text = ""
End If
End Sub
Private Sub chkmediano_Click()
If chkmediano = Checked Then
txtmediano.Enabled = True
txtmediano.SetFocus
ElseIf chkmediano.Value = False Then
txtmediano.Enabled = False
txtparcialmediano = "0"
txtpagototal.Text = ""
txtcambio.Text = ""
End If
End Sub
Private Sub cmdaceptar_Click()
Dim preciochico, preciomediano, preciogrande, cambio As Double
Dim indice As Integer
indice = lstproductos.ListIndex
Select Case indice
Case 0
lblpuchico = "3.5"
lblpumed = "7.8"
lblpugrande = "12.5"
If chkchico.Value = 1 Then
preciochico = CInt(txtchico) * CDbl(lblpuchico)
txtparcialchico.Text = CStr(preciochico)
Else
txtparcialchico.Text = 0
End If
If chkmediano.Value = 1 Then
preciomediano = CInt(txtmediano) * CDbl(lblpumed)
txtparcialmediano.Text = CStr(preciomediano)
Else
txtparcialmediano.Text = 0
End If
If chkgrande.Value = 1 Then
preciogrande = CInt(txtgrande) * CDbl(lblpugrande)
txtparcialgrande.Text = CStr(preciogrande)
Else
txtparcialgrande.Text = 0
End If
Case 1
lblpuchico = "4"
lblpumed = "6"
lblpugrande = "10"
If chkchico.Value = 1 Then
preciochico = CInt(txtchico) * CDbl(lblpuchico)
txtparcialchico.Text = CStr(preciochico)
Else
txtparcialchico.Text = 0
End If
If chkmediano.Value = 1 Then
preciomediano = CInt(txtmediano) * CDbl(lblpumed)
txtparcialmediano.Text = CStr(preciomediano)
Else
txtparcialmediano.Text = 0
End If
If chkgrande.Value = 1 Then
preciogrande = CInt(txtgrande) * CDbl(lblpugrande)
txtparcialgrande.Text = CStr(preciogrande)
Else
txtparcialgrande.Text = 0
End If
Case 2
lblpuchico = "4.5"
lblpumed = "5.5"
lblpugrande = "15"
If chkchico.Value = 1 Then
preciochico = CInt(txtchico) * CDbl(lblpuchico)
txtparcialchico.Text = CStr(preciochico)
Else
txtparcialchico.Text = 0
End If
If chkmediano.Value = 1 Then
preciomediano = CInt(txtmediano) * CDbl(lblpumed)
txtparcialmediano.Text = CStr(preciomediano)
Else
txtparcialmediano.Text = 0
End If
If chkgrande.Value = 1 Then
preciogrande = CInt(txtgrande) * CDbl(lblpugrande)
txtparcialgrande.Text = CStr(preciogrande)
Else
txtparcialgrande.Text = 0
End If
Case 3
lblpuchico = "5"
lblpumed = "10"
lblpugrande = "16"
If chkchico.Value = 1 Then
preciochico = CInt(txtchico) * CDbl(lblpuchico)
txtparcialchico.Text = CStr(preciochico)
Else
txtparcialchico.Text = 0
End If
If chkmediano.Value = 1 Then
preciomediano = CInt(txtmediano) * CDbl(lblpumed)
txtparcialmediano.Text = CStr(preciomediano)
Else
txtparcialmediano.Text = 0
End If
If chkgrande.Value = 1 Then
preciogrande = CInt(txtgrande) * CDbl(lblpugrande)
txtparcialgrande.Text = CStr(preciogrande)
Else
txtparcialgrande.Text = 0
End If
txtpagototal.Text = CDbl(txtparcialchico) + CDbl(txtparcialmediano) + CDbl(txtparcialgrande)
If (txtrecibido.Text) >= (txtpagototal.Text) Then
cambio = CDbl(txtrecibido) - CDbl(txtpagototal)
txtcambio.Text = CStr(cambio)
Else: MsgBox ("Ingresa una cantidad mayor o igual al pago total")
Exit Sub
End If
End Sub
Private Sub Form_Load()
lstproductos.List(0) = "Cheetos"
lstproductos.List(1) = "Churrumais"
lstproductos.List(2) = "Crujitos"
lstproductos.List(3) = "Doritos"
txtchico.Text = ""
txtmediano.Text = ""
txtgrande.Text = ""
End Sub
Private Sub lstproductos_Click()
Dim indice As Integer
indice = lstproductos.ListIndex
Select Case indice
Case 0:
lblpuchico = "3,5"
lblpumed = "7,8"
lblpugrande = "12,5"
Case 1:
lblpuchico = "4"
lblpumed = "6"
lblpugrande = "10"
Case 2:
lblpuchico = "4,5"
lblpumed = "5,5"
lblpugrande = "15"
Case 3:
lblpuchico = "5"
lblpumed = "10"
lblpugrande = "16"
End Select
End Sub
1 Respuesta
Respuesta de Roberto Alvarado
1