[checkbox] Problème au "load"

Bonjour à tous,

Comme je n'ai rien trouvé à propos de mon problème, je me dit que la solution doit être tellement évidente que c'est peut-être honteux de demander ça.

Tant pis, je me lance:
Je voudrais que par défaut ma checkbox soit cochée et afficher à chaque modification d'état un messagebox du genre "wouahou c super fun tu as modifié l'état de la checkbox, méga cool!!":king:
Le problème c'est que ce message très sérieux s'affiche avant l'ouverture de l'appli.:(
Du coup, la seule solution que j'ai trouvé c'est de mettre l'état par défaut sur "Unchecked", est de le mettre en "checked" dans l'évènement form_load.

Mais comme j'ai une pitite centaine de ces controles à gérer, je me disais qu'il y avait pitètre une solution plus "simple". :marteau:

Me trompes-je?
:koi:

Citation:

---

Envoyé par jontleman

Bonjour à tous,

Comme je n'ai rien trouvé à propos de mon problème, je me dit que la solution doit être tellement évidente que c'est peut-être honteux de demander ça.

Tant pis, je me lance:
Je voudrais que par défaut ma checkbox soit cochée et afficher à chaque modification d'état un messagebox du genre "wouahou c super fun tu as modifié l'état de la checkbox, méga cool!!":king:
Le problème c'est que ce message très sérieux s'affiche avant l'ouverture de l'appli.:(
Du coup, la seule solution que j'ai trouvé c'est de mettre l'état par défaut sur "Unchecked", est de le mettre en "checked" dans l'évènement form_load.

Mais comme j'ai une pitite centaine de ces controles à gérer, je me disais qu'il y avait pitètre une solution plus "simple". :marteau:

Me trompes-je?
:koi:

---

C'est normal que ca s'affiche à l'ouverture de l'application car l'evenement checkchanged se déclanche...

Pour ton probleme on fait une boucle :

Code:

---

1 2 3 4 5 6 7

'dans le form_load : For each Ctr as Control in me.controls If TypeOf Ctr is CHeckBox then 'dans le cas ou c'est une checkbox Dim Check_Box as Checkbox = Ctype(Ctr, CHeckBox) Check_Box.Checked = True 'coche la case End If Next

---

Et voila ! :king:

quand tu executes ton code, en fait au demarrage il y a plein de code qui est executé, pour les controles qu'il y a sur la feuille
ce code se trouve dans le fichier .designer
si tu as posé une checkbox en mode design ca donnera

friend chekcbox1 as checkbox


chekcbox1 = new checkbox
checkbox1.name = "checkbox1"
checkbox1.left = ...
checkbox1.top = ...
plein d'autre parametres, par exemple si ta case est cochée ou non

puis form1.controls.add (checkbox1)

donc en effet ton check change alors que ta feuille n'est toujours pas visible

une des solutions pour éviter d'avoir ton message c'est de faire dans le code checkchange:
if checkbox1.parent is nothing then exit sub
ou alors
if me.visible ) false then exit sub

etc...

Cette solution manque tellement d'élégance, tu as raté tout le côté magnifique de n'écouter les événéments qu'une fois la fenêtre initialisée. :mouarf:

Ce que je fais pour ce genre de problème, c'est que je n'affecte pas les événéments dans le designer. J'appelle une méthode après l'initialisation de la fenêtre qui va enregistrer tous les gestionnaires d'événéments.
Par exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub FormLoad() ' Initialisation MonCheckBox.Checked = True   AddEventListeners() End Sub   Private Sub AddEventListeners() ' Convertir en VB.NET MonCheckBox.CheckChanged += monEventHandler End Sub   Private Sub RemoveEventListeners() ' Convertir en VB.NET MonCheckBox.CheckChanged -= monEventHandler End Sub

---

Je trouve ça tellement plus joli, mais c'est une question de goût finalement... ;)

Aspic : si tu voulais faire une traduction VB.NET complète pour notre ami, je t'en serais éternellement reconnaissant :king:

merci beaucoup!

Les 2 solutions d'Aspic et Sperot51 marchent.
Pour le moment, je pense que je vais choisir la boucle, ça m'évitera de taper

Code:

---

If Me.Visible = False Then Exit Sub

---

pour toutes mes checkbox
J'ai le même problème avec l'évènement label_move et là par contre je vais devoir utiliser ta methode Sperot51.

En attendant de tester ta solution SaumonAgile, parce que ça pourra résoudre les 2 cas d'un coup!...

Est-ce que ça revient au même de mettre

Code:

---

Check_Box.CheckState = CheckState.Checked

---

au lieu de

Code:

---

Check_Box.Checked = True

---

??

oui et non
checkstate est un integer
unchecked = 0 et checked = 1 (et indeterminate = 2)
true va donc etre traduit a la volée en entier qui fera donc -1 et là le checkbox va surement se dire que tu voulais dire qu'il était coché

donc il faut mieux utiliser le truc qu'est prévu pour
de plus il est en général mieux d'avoir option strict ON qui onterdit de faire n'importe quoi

(voir dans les options / options générales de vb)

sinon si tu as plusieurs checkbox, il est peut etre possible d'avoir une seule sub qui gère toutes les checkbox et donc d'éviter de recopier if machin then exit sub, enfin ca depend de ce que tu fais avec biensur ...

Citation:

---

Envoyé par SaumonAgile

Aspic : si tu voulais faire une traduction VB.NET complète pour notre ami, je t'en serais éternellement reconnaissant :king:

---

Avec plaisir ;) :

Code:

---

1 2 3 4 5 6 7

'version vb.net Private Sub AddEventListeners() AddHandler MonCheckBox.CheckChanged, AddressOf monEventHandler End Sub Private Sub monEventHandler(ByVal Sender As Object, ByVal e As System.EventArgs) 'code de ton event ici End Sub

---

Sinon comem la dit Sperot51, utilise les options pour coder proprement :

Code:

---

1 2 3

'code à placer en haut de tes feuilles Option Strict On Option Explicit On

---

oulala, le Option Strict On me fait apparaitre plus d'une centaine d'erreurs!!! jvai avoir du travail...

Encore une fois, merci pour votre aide
;)

Citation:

---

Envoyé par jontleman

oulala, le Option Strict On me fait apparaitre plus d'une centaine d'erreurs!!! jvai avoir du travail...

Encore une fois, merci pour votre aide
;)

---

Et bah dit dons.... Oui il va y avoir du boulot :mouarf: :mouarf: