Discussion :

[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!!"
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".

Me trompes-je?

[Aspic]

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!!"
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".

Me trompes-je?

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Pol63]

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...

[jontleman]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Check_Box.CheckState = CheckState.Checked

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Check_Box.Checked = True

??

[Pol63]

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 ...

[SaumonAgile]

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Aspic]

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

Avec plaisir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Aspic]

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