Se puede simplificar este codigo?

[El_Ajedrecista]

Existe manera de simplificar este pedazo de codigo que solo adjunto parcialmente debido a su larga extensión?

Código:

    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

[systemtak]

Hola,
de momento solo se me ocurre:

Código PHP:

   
Select Case <condición>
    Case <opción 1>
        '...
    Case <opción 2>
        '...
    Case Else
        ...
End Select 
   

[alexg88]

Buenas,

Puedes aprovechar los delegados de .NET y la clase Dictionary para ello:

Código vb:

Module Module1
 
    Dim functions As New Dictionary(Of String, Action) From {
{"Caracol", AddressOf Caracol}, {"Carcasa", AddressOf Carcasa}}
 
 
    Public Sub Caracol()
 
        Console.WriteLine("Hola Caracol")
 
    End Sub
 
    Public Sub Carcasa()
 
        Console.WriteLine("Hola Carcasa")
    End Sub
 
    Sub Main()
        AEscojer(Console.ReadLine)
    End Sub
 
    
 
    Public Sub AEscojer(ByVal Escojido As String)
 
        If functions.ContainsKey(Escojido) Then
            functions(Escojido)()
        End If
    End Sub
 
End Module
 

Otra forma sería mediante Reflexión (puedes ejecutar un método teniendo el nombre del método como string), pero creo que con lo de arriba es suficiente

[cronopiomx]

Usa las TablaHash o Dictionary .NET, es lo mejor y mas rapido que existe es de orden logaritmico.

s2
crono