Problème avec des CheckBoxRésolu

Question

Bonsoire j'ai un petit probleme je voudrait que quand je clique sur une de mes CheckBox il y en a q'une qui prenne une valeur de '1' quand j'ai Check1 de coché et que je clique sur check2 la case de check1 se décoche mais check 2 ne se coche pas il faut que je reclique dessus pour qu'elle se coche
ya t'il un moyen pour évité un double clique ? (oui je sais on va me dire d'utilisé les optionsBouttons mais non car j'en ai besoin pour autre chose sur ma forme)
je me base sur se code


Private Sub Check1_Click()
Check2.Value = 0
Check3.Value = 0
End Sub

Private Sub Check2_Click()
Check1.Value = 0
Check3.Value = 0
End Sub

Private Sub Check3_Click()
Check1.Value = 0
Check2.Value = 0
End Sub

si par exemple j'essaye de faire:

Private Sub Check1_Click()

Check2.Value = 0

Check3.Value = 0
Check1.Value = 1
End Sub

Private Sub Check2_Click()

Check1.Value = 0

Check3.Value = 0
Check2.Value = 1
End Sub

ça va planté dans mon code et je ne vois vraimment pas ou se situe le problème ni comment y remédié
ya t'il une CheckBox qui prend le focus et qui plante tous

jmf0 · Accepted Answer

Bonsoir,

Tu dis :
oui je sais on va me dire d'utilisé les optionsBouttons mais non car j'en ai besoin pour autre chose sur ma forme

Où est donc le problème ?
Il te suffit de mettre tes groupes d'optionbuttons dans des containers (Frame ou PictureBox) distincts. et le cochage d'une optionButton ne provoquera le décochage que des optionbuttons insérés dans le même contaîoner, sans toucher à ceux de l'autre container !

Renfield · Answer

pourquoi ne pas jouer avec des OptionButtons ?

elles font ca toutes seules...

mySQL15 · Answer

j'ai trouvé un moyen pour que en un clique ça se coche:

Private Sub Check1_Click()
Check2.Value = 0
Check3.Value = 0
End Sub

Private Sub Check2_Click()
Check1.Value = 0
Check3.Value = 0
End Sub

Private Sub Check3_Click()
Check1.Value = 0
Check2.Value = 0
End Sub

Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Check1.Value = 1
End Sub

Private Sub Check2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Check2.Value = 1
End Sub

Private Sub Check3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Check3.Value = 1
End Sub

mais ça reste assez archaïque lol

edit: jmf0, je ne savais pas cela a propos des groupes j 'ai toujours vue que mes optionsBoutton interagissait entre eux, mais je n'avait jammais tenté de les mettres par groupe dans une picturebox pour ne pas que d'autre picturebox qui non rien avoire se décoche, merci beaucoup ça va m'éviter de faire un bazar pas possible

Renfield · Answer

c'est tout de même plus simple, pour l'utilisateur.
au moins, là, il sait ce que permet de faire l'interface.

quand on voit des checkbox, on se dit que ce sont des options qui peuvent s'additionner ^^

Problème avec des CheckBox

4 réponses

Votre réponse

Discussions similaires