Discussion :

[lavida]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nabil]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Vld44]

Sympa, y'a 2 solutions différentes 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

$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 ...

[DarkVader]

Bonjour,

Attention à ne pas affirmer sans certitude

Sympa, y'a 2 solutions différentes 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Ceci dit ce n'est pas pire que dire

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.

[ucfoutu]

Bonjour DarkVader,

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

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 ...)

[Vld44]

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

C'est de la haute bidouille ton truc 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.