Estructura Select Case

Publicado por Eliseo en Estructuras de Control el 01 6th, 2009 | 8 respuestas

El Select Case permite elegir una de varias opciones/acciones.

Supogamos que tenemos que realizar una tarea distinta deacuerdo al tipo de comprobante que se está procesando (factura, remito, nota de crédito, etc).

'El dato tipo de comprobante lo tomo de un
'comboBox llamado comboComprobante

Select Case comboComprobante.Text
    Case "Factura"
        MsgBox("Procesar Factura")
    Case "Remito"
        MsgBox("Procesar Remito")
    Case "Nota de Crédito"
        MsgBox("Procesar Nota de Crédito")
    Case "Nota de Débito"
        MsgBox("Procesar Nota de Débito")
    Case Else
        MsgBox("No procesar nada")
End Select

Otro buen ejemplo sería una function que reciba como parámetro el numero de mes y nos devuelva un string con el nombre

[Code lang="vbnet"]
Function nombreMes(ByVal numeroMes As Integer) As String
Dim mesSeleccionado As String = String.Empty
Select Case numeroMes
Case 1
mesSeleccionado = “Enero”
Case 2
mesSeleccionado = “Febrero”
Case 3
mesSeleccionado = “Marzo”
Case 4
mesSeleccionado = “Abril”
Case 5
mesSeleccionado = “Mayo”
Case 6
mesSeleccionado = “Junio”
Case 7
mesSeleccionado = “Julio”
Case 8
mesSeleccionado = “Agosto”
Case 9
mesSeleccionado = “Septiembre”
Case 10
mesSeleccionado = “Octubre”
Case 11
mesSeleccionado = “Noviembre”
Case 12
mesSeleccionado = “Diciembre”
End Select
Return mesSeleccionado
End Function
[/Code]



8 Responses to “Estructura Select Case”

  1. CESAR dice:
    05/05/2009 a las 12:14 am

    que funcion puedo utilizar para introducir un dato en cualquier celda asi como una tipo agenda pero necesito introducir un dato en algun dia no se como por ejemplo hola mundo el dia 3 de enero de 2009 me pueden ayudar

    Responder
  2. carolina dice:
    29/08/2009 a las 9:30 pm

    necesito hacer un programa en el cual se utilizen cuatro radiobutton y cada uno de ellos tenga el nombre de las estaciones del año y que al seleccionarlos en un listbox aparezcan los meses de estas estaciones

    Responder
  3. lili dice:
    15/01/2010 a las 3:43 pm

    no entiendo

    Responder
  4. Amabel Rubio Cruz dice:
    27/01/2010 a las 3:26 am

    necesito hacer un formulario que me elimine los datos de una bd y pasarlos a otra para tener un historial necesito ayudaaaa!!!!

    se los agradecere…

    Responder
  5. yerko dice:
    05/12/2011 a las 2:58 am

    estoy simulando un dado con visual basic, al darle click al dado deberia voltear y mostrar el valor del otro lado por ejemplo: 1 = 6; 2 = 5; 3=4 lo ise con un ciclo IF… end if pero el problema es q los primeros 3 numero no m los vuelca es decir: 1=6 me sigue mostrando 1 pero si el valor es 6 desde el principio m muestra 1 pero si le vuelvo a dar click se queda igual m recomendaron hacer con el select case pero no se como si pudieras aydudarme ??

    Responder
    • Eliseo dice:
      05/12/2011 a las 7:50 am

      dim ladoActual as integer
      ladoActual = variable (esta la pones tu)

      dim ladoOpuesto as integer
      selec case ladoActual
      case = 1
      ladoOpuesto = 6
      case = 2
      ladoOpuesto = 5
      case … haces uno para cada lado

      end select

      espero que te sirva

      Responder

Comentar