VB.net Probléme avec les IF

Question

Bonjour,

Je suis THE d&#233;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

crenaud76 · Answer

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

Pitoux78 · Answer

Merci pour ta r&#233;ponse rapide.
Je viens de tester mais cela ne fonctionne pas.

Tiens regarde je viens de mettrele projet en ZIP ici

http://www.pitoux.com/Win.zip

Merci a toi

crenaud76 · Answer

&#181;J'ai corrig&#233; 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

cs_Stephane33 · Answer

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

Pitoux78 · Answer

Est bien je souhaite que si le champ TextBox1.Text ou TextBox2.Text son vide, 
le boutton qui doit faire un calcul soit gris&#233;.

Par contre si les 2 textbox son compl&#233;te. Dans ce cas, le boutton est fonctionnel

crenaud76 · Answer

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

troxsa · Answer

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&#224; :p
http://www.troxsa.info/Code VB.net

crenaud76 · Answer

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

troxsa · Answer

Ben oui MSDN :) :)
result =  expression1 OrElse expression2

Une op&#233;ration logique est dite de  court-circuit  si le code compil&#233; 
peut ignorer l'&#233;valuation d'une expression en fonction du r&#233;sultat d'une autre 
expression. Si le r&#233;sultat de la premi&#232;re expression &#233;valu&#233;e d&#233;termine le 
r&#233;sultat final de l'op&#233;ration, il n'y a pas besoin d'&#233;valuer la seconde 
expression, car elle ne peut pas changer le r&#233;sultat final. Un court circuit 
peut am&#233;liorer les performances si l'expression ignor&#233;e est complexe, ou si elle 
implique des appels de proc&#233;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

crenaud76 · Answer

Ouais ! Ben on en apprend tous les jour hein !!
Toujorus est-il que dans son, cas, cela n'est pas utile

Christophe R

troxsa · Answer

Certe :)  mais c'est toujours utile de ce servire OrEsle :) quand on a pas mal de conditions qui doivent entrer en jeux, en tout cas c'est relativement efficace !

@+

http://www.troxsa.info/Code VB.net

Pitoux78 · Answer

Ok il faut donc faire une verification a chaque &#233;l&#233;ment.
Merci pour votre aide :)

FredDorine · Answer

If "expression"=value Or "autre expression"=value
then..?

ça marche..!

n'oubliez jamais que l'intelligence artificielle se comporte comme les militaires, si on oublie de leur dire où aller ils y vont quand meme mais ils n'arrivent nullepart.

Bonne journée à tous..!


non novae sed nova... (rien de nouveau sauf dans la manière)

VB.net Probléme avec les IF

13 réponses

Discussions similaires