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
| Private Sub ch1_CheckedChanged(sender As Object, e As EventArgs) Handles ch1.CheckedChanged
If ch1.Checked Then
My.Settings.A = 1
Choix1.Show()
Else my.Settings.A = 0
End If
End Sub
Private Sub ch2_CheckedChanged(sender As Object, e As EventArgs) Handles ch2.CheckedChanged
If ch2.Checked Then
My.Settings.A = 2
Choix1.Show()
End If
End Sub
Private Sub ch3_CheckedChanged(sender As Object, e As EventArgs) Handles ch3.CheckedChanged
If ch3.Checked Then
My.Settings.A = 3
Choix1.Show()
End If
End Sub
Private Sub ch4_CheckedChanged(sender As Object, e As EventArgs) Handles ch4.CheckedChanged
If ch4.Checked Then
My.Settings.A = 4
Choix1.Show()
End If
End Sub
Répondre avec citation Répondre avec citation Multi-citer ce message 0 0 Créer une entrée Blog |
