Un petit bout de code qui surcharge la fonction Ouvre jusqu’à 5 paramètres. Evidement si vous avez plus de paramètres, il vous suffit d’en ajouter.

 

PROCEDURE Ouvre(sNomFenetre,Param1 est un Variant = Null,...

                                               Param2 est un Variant = Null,...

                                               Param3 est un Variant = Null,...

                                               Param4 est un Variant = Null,...

                                               Param5 est un Variant = Null)

                                              

//Sert pour la valeur renvoyée de la fenêtre.

vRetour est un Variant = Null

 

//Votre code supplémentaire....

//............................

 

                                              

//Il Faut tester si les paramétres sont utilisés.

// 0 Paramétre.

SI Param1 = Null ALORS

       vRetour = WL.Ouvre(sNomFenetre)

       GOTO FinOuvre

FIN

// 1 Paramétre.

SI Param2 = Null ALORS

       vRetour = WL.Ouvre(sNomFenetre,Param1)

       GOTO FinOuvre

FIN

// 2 Paramétres.

SI Param3 = Null ALORS

       vRetour = WL.Ouvre(sNomFenetre,Param1,Param2)

       GOTO FinOuvre

FIN

// 3 Paramétres.

SI Param4 = Null ALORS

       vRetour = WL.Ouvre(sNomFenetre,Param1,Param2,Param3)

       GOTO FinOuvre

FIN

// 4 Paramétres.

SI Param5 = Null ALORS

       vRetour = WL.Ouvre(sNomFenetre,Param1,Param2,Param3,Param4)

       GOTO FinOuvre

FIN

// 5 Paramétres.

vRetour = WL.Ouvre(sNomFenetre,Param1,Param2,Param3,Param4,Param5)

GOTO FinOuvre

            

 

FinOuvre :

//La fenêtre à été refermée, on renvoye la valeur.

RENVOYER vRetour