[VB6] Pb avec des OptionButton ..

non c'est cool au contraire regarde ^^ :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Timer1_Timer()
Select Case menu.CHGT
    Case 0
        Timer2.Enabled = False
        kelimage
    Case 1
        Timer2.Enabled = True
        Index = 1
        kelimage
    Case 2
        Timer2.Enabled = True
        Index = 2
        kelimage
    Case 3
        Timer2.Enabled = False
        kelimage
End Select
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click(Index As Integer)        ' Groupe Indexé pour affectation de la variable
Select Case Index
    Case 0
        'Forc_ouv = True
        CHGT = 1
    Case 1
        'Forc_fer = True
        CHGT = 0
    Case 2
        'Forc_ouv = False
        'Forc_fer = Fase
End Select
End Sub