Si une Condition est Bonne, ne pas passer à la Suite Résolu

Question

Bonjour, j'ai ce code :
Private

Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click   IfNot TextBox_bv1.Text = Form1.Lbl_BV1.Text Then

      MsgBox("La Base Verbale n°1 est Fausse !", MsgBoxStyle.Exclamation)

      TextBox_bv1.Text = ""

   EndIf

   IfNot TextBox_bv1.Text = "" Then MsgBox("Bravo, Vous avez retenu les 5 Verbes !", MsgBoxStyle.Information)

EndSub

Comment faire pour que si la 1e condition est Bonne, ne pas passer à la 2e ? Merci.

 Dri60

Lunikmarty · Accepted Answer

If
Not TextBox_bv1.Text = Form1.Lbl_BV1.Text Then


      MsgBox("La Base Verbale n°1 est Fausse !", MsgBoxStyle.Exclamation)


      TextBox_bv1.Text = ""



      Exit Sub




   End
If

Dri60 · Answer

Merci 

 Dri60

Kristof_Koder · Answer

Ou comme ca ...
If Not TextBox_bv1.Text = Form1.Lbl_BV1.Text Then
      MsgBox("La Base Verbale n°1 est Fausse !", MsgBoxStyle.Exclamation)
      TextBox_bv1.Text = ""
ElseIf Not TextBox_bv1.Text = "" Then 
      MsgBox("Bravo, Vous avez retenu les 5 Verbes !", MsgBoxStyle.Information)
End if

Dri60 · Answer

Merci pour ton Aide

 Dri60

Si une Condition est Bonne, ne pas passer à la Suite

4 réponses

Votre réponse

Discussions similaires