Evènement sur click suite a des conditions

Version imprimable

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:

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

21/08/2013, 21h58
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 ?
22/08/2013, 06h11
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
22/08/2013, 10h50
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

Bonjour,

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

Code:

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

Bonjour,
Voici une solution (c'est du bricolage :D)
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:

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

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

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 !)

22/08/2013, 11h24
chaparo

Citation:

Envoyé par _Ez3kiel

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

8-)
22/08/2013, 11h56
Afaf001

@_Ez3kiel

Citation:

@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 !)

Vous avez raison ;)