[VB6] Appel de fonction/sub avec nom généré dynamiquementRésolu

Question

Bonjour à tous.


Je viens de découvrir dans le cadre d'un stage en entreprise le VB6 (je possède des notion de C et de Delphi).


Mon problème provient d'une analyse de calcu à effectuer :


Concretement, une fonction détermine quel type de calcul à appliquer
(environ 130), ensuite cette fonction insère dans une variable de type
integer l'ID de ce calcul. 

Plus tard, et à divers moment du programe, on a besoin d''appliquer le calcul déterminé précedement.

   

Actuellement, pour traiter cet appel, mon code vas faire une succesion de if :



 If var = 1 Then ...

End If

 If var = 2 Then ...


End If

 If var = 3 Then ...


End If

...

 If var = 130 Then ...


End If


Sachant que cette analyse à lieu extrèmement souvent j'aurais souhaité générer directement le nom de la sub à appeler :


Au lieu de ma succesion de if, je crée une succesion de sub : 




sub Calcul_001

...

end sub

sub Calcul_002


...


end sub


sub Calcul_130


...


end sub

 


Il me faudrait dans ce cas générer à partir de l'INTEGER la sub à appeler.


Qu'en penssez vous, le VB6 permet il ce genre de manoeuvre?


Merci de votre attention, j'èspère avoir réussi à expliquer le problème.


Stun

Renfield · Accepted Answer

possible via CallByName

jrivet · Answer

Salut,
Oui, VB6 le permet regarde 

Les Sub à appeler Doivent etre PUBLIC

Call CallByName(Me, "Calcul" & Format(IdCalcul, "000"), VbMethod)

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Re,
[auteur/RENFIELD/2359.aspx >Renfield]('lut): suis un peu à la ramasse en ce lundi après midi

@+: Ju£i?n
Pensez: Réponse acceptée

cs_stun43 · Answer

Parfait!

Je vous remercie grandement, cela fonctionne à merveille!

Cordialement,

Stun

[VB6] Appel de fonction/sub avec nom généré dynamiquement

4 réponses

Votre réponse

Discussions similaires