appel de function

Version imprimable

appel de function

je voudrais que vous m'aidier à réaliser une fonction dans un module de vb6 pour remplacer le code suivant qui devient long sant avoir terminer:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub mn_mfour_Click()
Frm_cl.Enabled = False
Frm_cl.Visible = False
Frm_four.Enabled = True
Frm_four.Visible = True
Frm_prod.Enabled = False
Frm_prod.Visible = False
End Sub
 
Private Sub mn_mpro_Click()
Frm_cl.Enabled = False
Frm_cl.Visible = False
Frm_four.Enabled = False
Frm_four.Visible = False
Frm_prod.Enabled = True
Frm_prod.Visible = True
End Sub
 
Private Sub mn_nfour_Click()
Frm_cl.Enabled = False
Frm_cl.Visible = False
Frm_four.Enabled = True
Frm_four.Visible = True
Frm_prod.Enabled = False
Frm_prod.Visible = False
End Sub
 
Private Sub mn_npro_Click()
Frm_cl.Enabled = False
Frm_cl.Visible = False
Frm_four.Enabled = False
Frm_four.Visible = False
Frm_prod.Enabled = True
Frm_prod.Visible = True
End Sub
 
Private Sub mn_spro_Click()
Frm_cl.Enabled = False
Frm_cl.Visible = False
Frm_four.Enabled = False
Frm_four.Visible = False
Frm_prod.Enabled = True
Frm_prod.Visible = True
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Private sub etat(n as integer)
select case n
case 0:code0'mn_mfour
case 1:code1'mn_mpro
case 2:code2'mn_nfour
case 3:code3'mn_npro
case 4:code4'mn_spro
end select
end sub
 
Private Sub mn_mfour_Click()
etat(0)
End Sub
 
Private Sub mn_mpro_Click()
etat(1)
End Sub
 
Private Sub mn_nfour_Click()
etat(2)
End Sub
 
Private Sub mn_npro_Click()
tat(3)
End Sub
 
Private Sub mn_spro_Click()
etat(4)
End Sub

Bonjour lavida,

Il faut te servir de la collection Form

Voilà un exermple (à toi de l'adapter à ton cas)

Un projet avec 4 Forms nommées Form1, Form2, Form3 et Form4

sur Form1 : un bouton de commande Command1

Code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Form_Load()
  'la collection Forms ne concerne que les Forms chargées.
  'ce que l'on fait donc ici
  Form2.Show
  Form3.Show
  Form4.Show
  valide "Form1" ' et ici on fait d'une pierre 2 coups : seule Form1 sera visible au départ
End Sub
 
Private Sub Command1_Click()
    valide "Form4" ' tu choisis ici ta Form
End Sub
 
 
Private Sub valide(maforme As String)
  For Each f In Forms
    Select Case f.Name
      Case maforme
        f.Visible = True
        f.Enabled = True
      Case "Form2", "Form3", "Form4" ' tu ne mets là que les Forms parmi lesquelles décider
        f.Visible = False
        f.Enabled = False
    End Select
  Next
End Sub

Lance ... tu vas comprendre...

Sympa, y'a 2 solutions différentes :D J'aime bien quand ça se passe comme ça :)

Au passage, ton exemple ucfoutu met en évidence une des lacunes les plus graves (à mon sens) de vb6 : pas de variable dynamiques.

Par ex en php, tu peux faire ça
Code:

1 2 3 4 5 6 7 8 9 Function machin($ma_variable_d_entrée as string) { $ma_variable_locale as object; $var1 as object; $var2 as object; $var3 as object; /* du code pour peupler var1, var2 et var3 par exemple ... */ $ma_variable_locale = $$ma_variable_d_entrée; }//EOF
Dans cet exemple, volontairement vb-isé pour que tout le monde comprenne (les dollars en php représentent les variables) la ligne

Code:

$ma_variable_locale = $$ma_variable_d_entrée;

permet d'affecter à "ma_variable_locale" la variable dont le nom est la string contenue dans "ma_variable_d_entrée".

Si la chaine "ma_variable_d_entrée" contient "var1" par exemple, alors $ma_variable_locale = $var1 !

Très très puissant, et dans notre exemple du coup, on pourrait accéder à la form voulue (dont le nom est passé en paramètre) en une seule ligne en bidouillant un peu ...

Bonjour,

Attention à ne pas affirmer sans certitude

Citation:

Envoyé par Vld44

Sympa, y'a 2 solutions différentes :D J'aime bien quand ça se passe comme ça :)

Au passage, ton exemple ucfoutu met en évidence une des lacunes les plus graves (à mon sens) de vb6 : pas de variable dynamiques.
.../...

... et le Dictionary ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Function machin(ma_variable_d_entrée As String) Dim ma_variable_locale As New Dictionary Dim var1 As Object, var2 As Object, var3 As Object Set var1 = Form1 ' du code pour peupler var1, var2 et var3 par exemple ... ' ma_variable_locale.Add ma_variable_d_entrée, var1 Debug.Print TypeName(ma_variable_locale(ma_variable_d_entrée)) End Function
Evidemment l'utisation sera moins évidente qu'avec php mais
il n'y a encore rien que je n'ai vu impossible avec VB6 ce qui n'est pas le cas avec php :roll:
Ceci dit ce n'est pas pire que dire

Citation:

Envoyé par Ucfoutu

Il faut te servir de la collection Form

comme s'il n'y avait qu'une seule solution - je te rejoindrais donc sur ta 1ère phrase citée plus haut.

25/01/2008, 10h04
ucfoutu

Bonjour DarkVader,

Tu as raison : le verbe falloir m'est venu (de bon matin) à la place du verbe pouvoir...:lol:

J'aurais pas du l'utiliser (et ce d'autant que j'ai 3 autres solutions... mais celle que j'ai exposée sera plus compréhensible pour lavida ...)
25/01/2008, 10h15
DarkVader

Bonjour,
Sur, il y en aura au moins autant que de développeurs s'attachant à cette tache
et même plus pour peu que chacun ait plusieurs solutions :mrgreen:
25/01/2008, 10h16
Vld44

Citation:

Envoyé par DarkVader

... et le Dictionary ?
Evidemment l'utisation sera moins évidente qu'avec php

C'est de la haute bidouille ton truc :D Comment dire ... Mais c'est pas la classe quoi, pour moi y'a pas photo entre une fonctionnalité native propre et nette et des trucages maisons ... (bon, ça me rappelle une conversation ou tu comparais extends avec implement)

Mais méa culpa, on s'en sort quand même.
25/01/2008, 10h33
DarkVader

Citation:

Envoyé par Vld44

C'est de la haute bidouille ton truc :D Comment dire ... Mais c'est pas la classe quoi, pour moi y'a pas photo entre une fonctionnalité native propre et nette et des trucages maisons ...

S'il fallait n'utiliser que des fonctions natives (notamment avec un language qui a cessé d'évoluer), on ne serait pas sorti d'affaire.
Bien au contraire la classe c'est de toujours avoir une solution - il n'y a pas de « bon » code, il n'y a que du code fonctionnel
(j'entends rapide et sans erreur) - le reste, c'est du vent :mouarf:
25/01/2008, 11h00
Delbeke

Moi, j'aime bien le vent. Si deux codes sont fonctionnellement identiques, j'aime utiliser celui que je trouve le plus élégant, le plus simple, le plus facile à comprendre, etc ...

Bon. Me revoilà, mais avec quelques explications :

J'ai choisi de montrer à lavida le code que je lui ai montré car :
1) il me paraissait proche de sa compréhension
2) il était moins gourmand en mémoire puisqu'il utilisait la collection Forms déjà présente. Comme toujours, toutefois, une gourmandise moins grande en mémoire peut se traduire par une vitesse d'exécution moins rapide. Mais lavida n'utilise que quelques Forms et tout se passe donc très vite.

Une solution simple, rapide ?
Elle n'est pour moi qu'un faux-ami (car plus gourmande en mémoire) et je ne l'utiliserais personnellement (chacun voit midi à sa porte comme il l'entend en matière d'optimisation) que si, le nombre de Forms étant très élevé, celà vaudrait vraiment le coup d'augmenter la consommation de mémoire pour accélérer de façon perceptible ...:salut:

La voilà donc , cette solution "faux-ami" :

4 Forms Form1,... Form4
et un bouton de commande Command1
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private f As Form Private Sub Form_Load() Set f = Form4 End Sub Private Sub Command1_Click() valide Form3 End Sub Private Sub valide(f1 As Form) f.Visible = False f.Enabled = False f1.Show f1.Visible = True f1.Enabled = True Set f = f1 End Sub
A lavida ==>> bien que cette solution te paraitra fort simple, je la déconseille dans ton cas.;)

25/01/2008, 11h21
Vld44

Citation:

Envoyé par Delbeke

Moi, j'aime bien le vent. Si deux codes sont fonctionnellement identiques, j'aime utiliser celui que je trouve le plus élégant, le plus simple, le plus facile à comprendre, etc ...

Je plussoie, et je peux te dire par expérience que l'esthétique d'un programme (si tant est qu'elle soit objectivement définissable [...]) compte pour beaucoup sur sa maintenabilité ET sur la qualité de la maintenance.

Et puis pour préciser ce que j'entends par classe, ça serait par ex dans l'exemple ici présent sur les forms :

Code:

$$monparamdentrée.show

Ca j'aime, c'est beau, c'est de la puissance, c'est ... aaaaaa /me aime les méta variables !!! :aie:
25/01/2008, 11h38
DarkVader

Citation:

Envoyé par Delbeke

Moi, j'aime bien le vent. Si deux codes sont fonctionnellement identiques, j'aime utiliser celui que je trouve le plus élégant, le plus simple, le plus facile à comprendre, etc ...

Il est difficile de ne pas être en accord - l'exemple avec Dictionary n'avait pour objet que rebondir sur l'absence d'un parallèle au modèle php $$ -
pas de dire que c'était la solution dans l'exemple précédent.
Pour la suite qui était peut-être plus confuse, je répondais aux limitations des fonctions natives qui iront grandissantes sous VB
vis à vis d'autres langages qui eux continuent d'évoluer d'où l'obligation d'utiliser des objets externes tels que Dictionary.

On est parti en troll ?