[VB6]variable dans 2 procedures

**Spiritkiller** · 04/05/2006, 13h42

Bonjour

Est il possible de conserver la valeur de la variable k qui lui a été donné a la procedure "bt" pour la procedure "Command1" car la variable k est vide quand je commence la procedure "Command1"

en element graphique il y a:
-un bouton: "Command1"
-5 bouton: "bt" (c'est un groupe de bouton)

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
45
46
47
48
49
50
51
52
53
54
Private Sub Bt_Click(i As Integer)
k = i
For i = 0 To 4
Bt(i).Enabled = False
Next i

End Sub

_____________________________________________________

Private Sub Command1_Click()

If k = 0 Then
Bt(0).Enabled = False
Bt(1).Enabled = True
Bt(2).Enabled = True
Bt(3).Enabled = True
Bt(4).Enabled = True
End If

If k = 1 Then
Bt(0).Enabled = True
Bt(1).Enabled = False
Bt(2).Enabled = True
Bt(3).Enabled = True
Bt(4).Enabled = True
End If

If k = 2 Then
Bt(0).Enabled = True
Bt(1).Enabled = True
Bt(2).Enabled = False
Bt(3).Enabled = True
Bt(4).Enabled = True
End If

If k = 3 Then
Bt(0).Enabled = True
Bt(1).Enabled = True
Bt(2).Enabled = True
Bt(3).Enabled = False
Bt(4).Enabled = True
End If

If k = 4 Then
Bt(0).Enabled = True
Bt(1).Enabled = True
Bt(2).Enabled = True
Bt(3).Enabled = True
Bt(4).Enabled = False
End If

End Sub

**SfJ5Rpw8** · 04/05/2006, 13h44

il faudrai que tu buche un peu la "portée" des variables... en attendant, déclare ta variable en haut de ton module par une ligne du type

Code :

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

dim k as integer

à l'extérieur des 2 fonctions..

**Spiritkiller** · 04/05/2006, 13h46

ok merci

**Spiritkiller** · 04/05/2006, 16h34

merci encore mais j'ai un autre probléme:

Je voudrais le fonctionnement suivant:

click sur Bt(0) => tous les Bt desactiver => click sur Command1 => reactive les Bt sauf bt(0)=>click sur Bt1 (bt0 etant desactiver) => tous les Bt desactiver => click sur Command1 => reactive les Bt sauf bt(1) et Bt(0).
et ainsi de suite jusqu'a se qu'il n'y ai plus de bouton Bt actif.

En sachant que les cliques peuvent etre sur n'importe quel Bt

merci de m'aider