[VB6]variable dans 2 procedures
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:
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 |
