functieaanroep variabel maken

[ivdh]

Is het mogelijk om het aanroepen van een functie variabel te maken ipv van een if then te werken?

Ik probeer hieronder duidelijk te maken wat ik precies bedoel:

Sub test()
If str = "001" Then
Maak001
ElseIf str = "002" Then
Maak002
End If

'ipv de if then wil ik graag zoiets
Maak[str]

End Sub

Function Maak001()
' hier gebeurt van alles
End Function

Function Maak002()
' hier gebeurt van alles
End Function

 

[cbhonda]

parameter

private sub aanroep()
Maak[str] 
End Sub 

Function Maak(nummer as Integer) as string
select case nummer
 case 1
  'doe iets
  Maak="ik heb iets gedaan"
 case 2
  'doe iets anders
  Maak="ik heb iets anders gedaan"
 case else
  'en anders doe je dit
  Maak="ik begrijp je niet en daarom doe ik dit"
End Function

En je kan alle soorten vars doorgeven zelfs objecten.

 

[cbhonda]

parameters

private sub aanroep()
Maak[str] 
End Sub 

Function Maak(nummer as Integer) as string
select case nummer
 case 1
  'doe iets
  Maak="ik heb iets gedaan"
 case 2
  'doe iets anders
  Maak="ik heb iets anders gedaan"
 case else
  'en anders doe je dit
  Maak="ik begrijp je niet en daarom doe ik dit"
End Function

En je kan alle soorten vars doorgeven zelfs objecten.