combox

Aplicación sencilla de lo bueno de las marcas de celulares según mi criterio.

Se encuentran las marcas mas conocidas a nivel Local y con mayor numero de compradores potenciales.

El código que utilice para poderlo realizar es el siguiente:

Private Sub Command1_Click()

If Combo1 = "Nokia" Then

MsgBox "muy resistente"

End If

If Combo1 = "Samsumg" Then

MsgBox "celular de ultima generacion con buen prestigio"

End If

If Combo1 = "LG" Then

MsgBox "Marca con buenos articulos pero malos celulares"

End If

If Combo1 = "Sony" Then

MsgBox "Muy buenos telefonos que van evolucionando la tecnologia"

End If

If Combo1 = "Motorola" Then

MsgBox "Muy buena capacidad de carga de bateria"

End If

End Sub

Private Sub Form_Load()

With Combo1

.AddItem "Nokia"

.AddItem "Samsumg"

.AddItem "LG"

.AddItem "Sony"

.AddItem "Motorola"

End With

End Sub