réutilisation d'une procédure

Sujet: réutilisation d'une procédure Dim 30 Sep 2012 - 1:22

J'ai un petit souci...

je veux utiliser plusieurs fois la même procédure et ....

Code:: Formulaire(0,1,"PanoraTurf",500,350,0,0)
Init()
end

Sub Init()
Parametres()
End_Sub

Sub Parametres()

Formulaire(100,1,"PanoraTurf - Paramètres",500,350,0,0)
End_Sub

Sub Formulaire(No%,V%,Titre$,W%,H%,T%,L%)
Form No%
If V%=0 then hide No%
Width No%,W% :Height No%,H%
if T%=0 :Top No%,(Screen_y-H%)/2 :else :Top No%,T% :end_if
if L%=0 :Left No%,(Screen_x-W%)/2:else :Left No%,L%:end_if
Font_Name No%,"Times new roman":Font_Size No%,10:Caption No%,Titre$
End_Sub

Invité

Bonsoir
Je regarde juste le début, vu que je vais me coucher.
Tu demandes un formulaire, et tu mets un paramètre de 0 en entrée (ligne 1) pour créer une forme. Ors tu ne peux pas, vu qu'elle est déjà créée au départ, et si tu regardes l'aide dans les erreurs, tu verras que c'est pas possible.
Mets un teste sur la forme si =0.
Bonne nuit. Sleep

Sujet: re Dim 30 Sep 2012 - 3:48

bien vu !

Sujet: Re: réutilisation d'une procédure Dim 30 Sep 2012 - 9:51

Bonjour ygeronimi,
As tu jeté un coup d'oeil à ceci ?
Notamment à la procédure CreateForm()...
Si tu analyses bien le code, ça peut te donner des idées...

Sujet: re Dim 30 Sep 2012 - 19:23

@ Nardo26,

Ce qui me gêne dans tout ce bastring, c'est la numérotation dynamique des objets
car une fois tout créé, je ne sais plus quel objet a tel numéro ... scratch

Voilà le début, attention ce n'est qu'une ébauche !

Code:: ' $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
' $ $
' $ PANORA - TURF $
' $ $
' $ YGERONIMI Version 0.1 du 30/09/2012 $
' $ $
' $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

Label Clic

Formulaire(0,1,"PanoraTurf",500,350,0,0)
Init()
end

Sub Init()
Parametres()
End_Sub

Sub Parametres()
Formulaire(100,1,"PanoraTurf - Paramètres",500,350,0,0):' (No% Visible% Titre$ Width% Height% Top% Left% )
Objets(100,1,0,1,0,0,0,0,0) :' (No% Alpha% Button% Edit% Combo% List% Memo% Spin% Track_Bar%)

End_Sub

' Aiguillage par clic
Clic:

Return
' Création Initialisation des forms (No% Visible% Titre$ Width% Height% Top% Left% )
Sub Formulaire(No%,V%,Titre$,W%,H%,T%,L%)
if No% > 0 then Form No%
If V%=0 then hide No%
Width No%,W% :Height No%,H%
if T%=0 :Top No%,(Screen_y-H%)/2 :else :Top No%,T% :end_if
if L%=0 :Left No%,(Screen_x-W%)/2:else :Left No%,L%:end_if
Font_Name No%,"Times new roman":Font_Size No%,10:Caption No%,Titre$
End_Sub
' Création des objets sur une form (No% Alpha% Button% Edit% Combo% Memo% Spin% )
Sub Objets(No%,A%,B%,E%,C%,L%,M%,S%,TB%)
Dim_Local x%
Command_target_is No%
If A% >0 :For x%=No%+1 To No%+A% :No%=x% :Alpha x% :Next x% :End_If
If B% >0 :For x%=No%+1 To No%+B% :No%=x% :Button x% :Next x% :End_If
If E% >0 :For x%=No%+1 To No%+E% :No%=x% :Edit x% :Next x% :End_If
If C% >0 :For x%=No%+1 To No%+C% :No%=x% :Combo x% :Next x% :End_If
If L% >0 :For x%=No%+1 To No%+L% :No%=x% :List x% :Next x% :End_If
If M% >0 :For x%=No%+1 To No%+M% :No%=x% :Memo x% :Next x% :End_If
If S% >0 :For x%=No%+1 To No%+S% :No%=x% :Spin x% :Next x% :End_If
If TB%>0 :For x%=No%+1 To No%+TB% :No%=x% :Track_Bar x% :Next x% :End_If
End_Sub

Sujet: Re: réutilisation d'une procédure Dim 30 Sep 2012 - 19:28

Sans regarder la procedure Form1 (c'etait juste un exemple d'utilisation), regarde juste la procedure CreateForm :
elle condense le LEFT,WIDTH,TOP,HEIGHT en une seule commande et elle te renvoie le numero du formulaire ainsi crée.
Tu n'as pas besoin de plus... Wink

» Sortie d'une procédure
» Probleme avec une procedure
» procédure DllMain pas appelée
» PROCÉDURE et SOUS-PROGRAMME
» Résolution : Tour de Hanoï par une procédure récursive