Visual Basic.NET - Este codigo se puede simplificar

   
Vista:

Este codigo se puede simplificar

Publicado por Andres (1 intervención) el 21/06/2012 22:17:53
Existe manera de simplificar este pedazo de codigo que solo adjunto parcialmente debido a su larga extensión?
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub AEscojer(ByVal Escojido As String)
        If Escojido = "Caracol" Then Caracol()
        If Escojido = "Carcasa" Then Carcasa()
        If Escojido = "Manzana" Then Manzana()
        If Escojido = "Funda" Then Funda()
        If Escojido = "Raton" Then Raton()
        If Escojido = "Pila" Then Pila()
        If Escojido = "Impermeable" Then Impermeable()
'....
'....
'....
'....
    End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Este codigo se puede simplificar

Publicado por Damian (824 intervenciones) el 22/06/2012 14:58:07
Hola si quieres achicar un poco el código y simplificarlo puedes sustituir tus if por el select case, sería así:
1
2
3
4
5
6
7
8
9
10
11
Select Case Escojido
                Case "Caracol"
      Caracol()
             Case "Carcasa"
      Carcasa()
            Case "Manzana"
      Manzana()
...
....
'y así con todos los demás
End Select
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar