Discussion :

[choupinou22]

bonjour,
j'ai un soucis de fonctionnement . dans un form j'ai 2 cases a cocher (jour, et ete) et un label (test).
j'aimerai afficher mon message aprés que les 3 conditions sont réunies .
mon soucis est l'execution concernant le label

Code :

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

1
2
3
4
 Private Sub Valider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Valider.Click
 Case Me.Jour.Checked And Me.Eté.Checked And Me.test_click
msgbox("essai reussi")
.....

merci

[Afaf001]

Bonjour,
est ce que tu peux réexpliquer ? j'ai pas bien saisi ce que tu veux faire.
t'as 2 CheckBoxs, un label, et tu veux afficher un msg si 3 conditions sont vérifiées : D'abord que les checkBoxs soient checked, et c'est quoi la condition sur le label ?

[choupinou22]

Les conditions sont que les 2cases doivent être cochées et qu un click à été fait sur un label, puis valider par un bouton pour afficher un message

[yinyang]

Bonjour,

Lors de ton click sur ton label, as-tu la possibilité de cocher un 3e check-box (invisible pour ne rien paraître) ?

Comme ça dans ton "Valider_click", tu pourras simplement vérifier les conditions sur les 3 check-box.


Seb

[chaparo]

Bonjour,

Tu peux aussi poser un boolean dans ton label sur l'evenement click.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private LabelChecked As Boolean
Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click
    LabelChecked = Not LabelChecked
End Sub
 
Private Sub Valider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Valider.Click
    If Me.Jour.Checked And Me.Ete.Checked And LabelChecked Then
        LabelChecked = False
        MsgBox("essai reussi")
    End If
End Sub

[_Ez3kiel]

En reprenant l'idée (judicieuse) de Chaparo :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private LabelChecked As Boolean
Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click
    LabelChecked = True 
End Sub
 
Private Sub Valider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Valider.Click
    If Me.Jour.Checked And Me.Ete.Checked And LabelChecked Then
        LabelChecked = False
        MsgBox("essai reussi")
    End If
End Sub

Avec Not LabelChecked un 2éme clic accidentel repasserait le bool à False et empêcherait la validation. Ici apparement, on veut juste s'il a cliqué alors on peut mettre directement à True sur le .Click


EDIT : @Afaf001 l'idée est sensiblement la même que celle de Chaparo, sauf que tester un string est plus coûteux que tester un bool. (Même si la différence micro proc est ridicule en 2013 ... Mais quand même !)

[Afaf001]

Bonjour,
Voici une solution (c'est du bricolage )
Bon dans ta form, il y'a bien :
Un label : Label1 (dans mon cas)
2 CheckBoxs : CheckBox1 et CheckBox2
Un bouton : Valider

Essaie un peu ce code là, je crois que ça marche :

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
 
Public Class Form1
    Dim IsClicked As String
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        IsClicked = "ok"
    End Sub
 
    Private Sub Valider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Valider.Click
        If CheckBox1.Checked = True And CheckBox2.Checked = True And IsClicked = "ok" Then
            MsgBox("reussi")
        Else
            MsgBox("label non clické")
        End If
    End Sub
End Class