VB.net Probléme avec les IF

Bonjour,

Je suis THE débutant en VB.NET
Je n'arrive pas a comprendre pour cette instruction ne fonctionne pas :


Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

If TextBox1.Text Or TextBox2.Text = "" Then Button1.Enabled = False
End If

If TextBox1.Text And TextBox2.Text <> "" Then  Button1.Enabled = True

End If

Merci

Quand dans un If tu mets l'instruction suivant le Then sur la même ligne que le If, il ne faut pas mettre de End If. En gros, soit tu fais .... If TextBox1.Text Or TextBox2.Text = "" Then Button1.Enabled = False If TextBox1.Text And TextBox2.Text <> "" Then Button1.Enabled = True ... soit tu fais ... If TextBox1.Text Or TextBox2.Text = "" Then Button1.Enabled = False End If If TextBox1.Text And TextBox2.Text <> "" Then Button1.Enabled = True End If Christophe R

Merci pour ta réponse rapide.
Je viens de tester mais cela ne fonctionne pas.

Tiens regarde je viens de mettrele projet en ZIP ici

[ Lien ]

Merci a toi

µJ'ai corrigé la syntaxe ... mais pas le fond de ton code ... Tes tests ne veulent pas dire grand chose !? Expliques nous le comportement exact attendu et on verra ce que l'on peut faire ... Christophe R

Pour mi cela marche lorsque qu tu changes dans textbox1 est changé
Tu rajoutes
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
TextBox1_TextChange(sender,e)
End Sub

comme ça cela génère l'évenement du textbox1.changed

Ou plus propre
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    TestTextbox()
end sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
    TestTextbox()
end sub

Private sub TestTextBox()
        If TextBox1.Text Or TextBox2.Text = "" Then Button1.Enabled = False
        If TextBox1.Text And TextBox2.Text <> "" Then Button1.Enabled = True
End sub


Il n'y a pas redondance dans tes conditions if
Une devrait suffire
        If TextBox1.Text And TextBox2.Text <> "" Then Button1.Enabled = True Else Button1.Enabled = False


Juste faites-le

Est bien je souhaite que si le champ TextBox1.Text ou TextBox2.Text son vide,
le boutton qui doit faire un calcul soit grisé.

Par contre si les 2 textbox son compléte. Dans ce cas, le boutton est fonctionnel

OK alors ce n'est pas If TextBox1.Text And TextBox2.Text <> "" mais If TextBox1.Text <> "" And TextBox2.Text <> "" Il faut mettre l'opérateur de comparaison à chaque fois Mais tu n'as pas besoin de deux If pour cela. Tu peux simplement mettre cette ligne à la place Button1.Enabled = ((TextBox1.Text<>"") And (TextBox2.Text <> "")) J'ai içi rajouté des parenthèses autour de chaque test pour que ce soit plus lisible. Christophe R

Bonjour

Je tien quand meme a faire une petit precision qui n'a pas faite
On peux tres bien faire le deux methode en une seul
        If TextBox1.Text Or TextBox2.Text = "" OrElse TextBox1.Text And TextBox2.Text = "" Then
            Button1.Enabled = True
        End If

Enfin bon sa doit etre un style dans ce genre là :p

http://www.troxsa.info/
Code VB.net

Troxsa < "OrElse" !! Ca existe en VB ca !? Christophe R

Ben oui MSDN :) :)

result = expression1 OrElse expression2

Une opération logique est dite de court-circuit si le code compilé peut ignorer l'évaluation d'une expression en fonction du résultat d'une autre expression. Si le résultat de la première expression évaluée détermine le résultat final de l'opération, il n'y a pas besoin d'évaluer la seconde expression, car elle ne peut pas changer le résultat final. Un court circuit peut améliorer les performances si l'expression ignorée est complexe, ou si elle implique des appels de procédure.

Exemple

Dim a As Integer = 10
Dim b As Integer = 8
Dim c As Integer = 6
Dim firstCheck, secondCheck, thirdCheck As Boolean
firstCheck = a > b OrElse b > c
secondCheck = b > a OrElse b > c
thirdCheck = b > a OrElse c > b

(C'est nouveau non ? )

http://www.troxsa.info/
Code VB.net