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
0