Necesito ayuda con combobox

Logos

Newbie Lvl 1
Hola! Estoy comenzando con esto dela programacion, y estoy haciendo un programa con 2 combobox, los cuales tienen varias opciones dentro. Quiero que al elegir X opcion del combobox1 y X opcion del combobox2 se haga una formula u otra. Por Ej:
Combobox1 : manzana, pera, naranja, uva. Combobox2: Bolsa, cajon, unidad.
De a cuerdo a la fruta y a la cantidad hacer una formula.

Trate de hacerlo con If, ElseIf pero solo me tomaba y hacia la formula del primero ElseIf, si el if no se cumplia, lo mismo ocn el selectcase.

Saludos!
 

Logos

Newbie Lvl 1
Hasta ahora que venias haciendo del codigo, mostrame
No mucho realemente, solo quiero que al apretar un boton, o una imagen en este caso, haga una cuenta (lo que hay en una caja de texto indica cantidad + un plus, todo eso multiplicado por la cantidad que trae). La caja de texto solo se puede ingresar números. No lo seguí, porque cuando cambiaba las opciones, no me daba el resultado esperado. y probé de otras formas pero no pude.

Private Sub Calcular_Click()
If Text2.Text >= 1 And Text2.Text <= 50
MsgBox "El rango debe ser de 1 a 50"
ElseIf Combo1.Text = Manzana And Combo2.Text = Cajon Then
Text3.Text = (Val(Text2.Text) + 5) * 50
ElseIf Combo1.Text = Manzana And Combo2.Text = Bolsa Then
Text3.Text = (Val(Text2.Text) + 1) *20
End If
 
Última edición:

Dr. Miqueas150

The Prophet
Ex-Staff
C++:
   ' Primero chequeas que sea una cantidad valida. Es más, si solo queres que sean numeros .
    ' tenes que usar la funcion isnumeric, en la propiedad text2_change
    If Text2.Text >= 1 And Text2.Text <= 50 Then
        MsgBox "El rango debe ser de 1 a 50"
        Exit Sub
    End If
    
    ' Para saber que hace list y list index, click derecho definicion.
    If Combo1.List(Combo1.ListIndex) = "Manzana" Then

        Select Case combo2.List(combo2.ListIndex)

            Case "Cajon"
                Text3.Text = (Val(Text2.Text) + 5) * 50

            Case "Bolsa"
                Text3.Text = (Val(Text2.Text) + 1) * 20

        End Select
 
    End If
 

walyto132

Newbie Lvl 1
If Combo1.Text = "perro" Then
Select Case Combo2.Text
Case "BLANCO"
Text1.Text = "FEO"
Case "NEGRO"
Text1.Text = "LINDO"

Case "ROSA"
Text1.Text = "RARO"
End Select
End If
 

Logos

Newbie Lvl 1
C++:
   ' Primero chequeas que sea una cantidad valida. Es más, si solo queres que sean numeros .
    ' tenes que usar la funcion isnumeric, en la propiedad text2_change
    If Text2.Text >= 1 And Text2.Text <= 50 Then
        MsgBox "El rango debe ser de 1 a 50"
        Exit Sub
    End If
 
    ' Para saber que hace list y list index, click derecho definicion.
    If Combo1.List(Combo1.ListIndex) = "Manzana" Then

        Select Case combo2.List(combo2.ListIndex)

            Case "Cajon"
                Text3.Text = (Val(Text2.Text) + 5) * 50

            Case "Bolsa"
                Text3.Text = (Val(Text2.Text) + 1) * 20

        End Select

    End If
Te hago una consulta el exit sub dentro del primer if ¿porque es?
Gracias y gracias por la explicacion tambien!
If Combo1.Text = "perro" Then
Select Case Combo2.Text
Case "BLANCO"
Text1.Text = "FEO"
Case "NEGRO"
Text1.Text = "LINDO"

Case "ROSA"
Text1.Text = "RARO"
End Select
End If

Si lo habia probado de las dos maneras, gracias!
 
Última edición:

walyto132

Newbie Lvl 1
el exit sub es para que si no cumple con la condición salga directamente del sub y no realice codigo al pedo
 
Arriba