Ejercicios Select CASE VB [Cerrado]

Denunciar
-
 Abraham -
Hola,
Algun Gran Genio de la programación podria colaborarme con unos ejemplos sobre ejercicios que se puedan realizar en Visual Basic utilizando esta estructura de Case - end Select Case, o tal vez recomendarme alguna pagina en la que encuentre buenos y bastantes ejemplitos!!!
De antemano Gracias!!!

3 respuestas

AHI TE VA UN EJEMPLO, TENGO UTILIZANDO LOS CONTROLES, COMBOBOX, COMMAND Y UN TEXT

Private Sub Command1_Click()
Dim a As String
a = Combo1.Text
Select Case a
Case "LACTEOS"
Text1.Text = 1
Case "FRUTAS"
Text1.Text = 2
Case "VERDURAS"
Text1.Text = 3
Case "BOTANA"
Text1.Text = 4
Case "CARNES"
Text1.Text = 5
Case "ENLATADOS"
Text1.Text = 6
End Select
End Sub
41
Gracias

Unas palabras de agradecimiento nunca están de más. Deja tu comentario

CCM 37326 usuarios nos han dicho gracias este mes

pero que hace
me preguntaba que es lo que hace
de que se trata, cual es el objetivo de este ejercicio
Resuelvo la duda:
Con el select Case es reducir si usuaras una gran cadena de If y Else...

Por ejemplo, (siguiendo el ejemplo de arriba) si deseas ver el numero de departamento de un supermercado, tomas de un combo (cargado previamente con los nombres de departamentos) y te arrojará el numero de cada departamento en el cuadro de texto Text1

Si usaras un if seria If combo.text = lacteos then text1.text = 1
else if combo.text = frutas then text1.text = 2
else if combo.text = verduras then text1.text = 3
....

y asi...

el select case te ayuda a abreviar esta gran cadena de comandos.

Yo agregaría al final (antes del End Select) las lineas:
Case Elese
text1.text= "Departamento no existente"

Para que en este caso, si pones un valor no contemplado arroje un resultado. Eso en caso de que permitas que coloquen valores en el combo.

Saludos
Súper entendible tu ejemplo. Mil gracias.
Select [ Case ] testexpression
[ Case expressionlist
[ statements ] ]
[ Case Else
[ elsestatements ] ]
End Select
este le puede servir yo lo utilice y me sirbio
Message postés
152
Date d'inscription
lunes, 6 de septiembre de 2010
Estatus
Miembro
Última intervención
martes, 3 de enero de 2012
97
Select Case VALOR
Case 1, 2
Case Is > 0
Case Else

End Select

ENTRE OTROS... >_<