Concaténation dans routines ?

Question

Chers amis,
Y-a-t-il une technique pour acc&#233;der des routines "Sub... End sub"  par une seule manoeuvre telle que (j'invente) :
Case select x
   Case 1
         f$ = "Sortir"
   Case 2
         f$ = "Entrer"
   Case 3
         f$ = "Ouvrir" 
End select
routine & f$   'rem vers routine
............
............
Sub routine & f$
   blablabla
End sub

merci

Oeil

gallyhc · Answer

Bonjour,

Voila ce ke j'en ai compris, oui c'est possible

' SOLUTION NUMERO 01.
    lngAction = &H2                     ' FAIT "Entrer".
    Select Case lngAction
        Case 1:     Call setFunction("Sortir")
        Case 2:     Call setFunction("Entrer")
        Case 3:     Call setFunction("ouvrir")
    End Select



' SOLUTION NUMERO 02.
    lngAction = &H2                     ' FAIT "Entrer".
    Select Case lngAction
        Case 1:     strAction = "Sortir"
        Case 2:     strAction = "Entrer"
        Case 3:     strAction = "ouvrir"
    End Select
    Call setFunction(strAction)


' LA FUNCTION A APPELER.
Private Sub setFunction(ByVal strType As String)


End Sub


A++
[Gally Home Corp]

jrivet · Answer

Lut,

Je crois savoir (Attention cela n'avance que moi, donc a verifier) que:

En VB (sauf .net) c'est pas possible, Apres en VB.NET je crois qu il y a des pointeurs sur fonctions ou un truc dans le genre.

Pour ceux qui en savent plus excusez moi si j ai fait des erreur ;)

@+
Julien

Concaténation dans routines ?

2 réponses

Discussions similaires