Problème de "Or" en VB.NET

Version imprimable

17/06/2015, 21h16
OnixT

2 pièce(s) jointe(s)

Problème de "Or" en VB.NET

Bonjour,

Je suis un débutant et j'ai un problème quand j'essaye d'utiliser le "Or" ... Voici mon problème :

Quand je mets ca:

Pièce jointe 180893

Je me retrouve avec ça :

Pièce jointe 180894

Sûrement parce que il y a plusieurs "Or" car quand je mets que " If TextBox1.text Or TextBox2.text = "" then

MsgBox("TEST")" Ca marche :calim2:

Pouvez vous me dire la cause de l'erreur et me dire comment la résoudre ? Merci :P !
17/06/2015, 22h03
sevyc64

Tu compte faire quoi avec ça ?

La seconde solution ne devrait pas plus marcher que la première. En tout cas aucun des deux n'ont de signification.

quand tu fait If condition Then, condition doit être un résultat de type boolean. Si tu utilise des or ou des and dans l'expression, chaque opérandes doit aussi être une résultat de type boolean.
Or Textbox.Text n'est pas de type boolean, mais de type texte, il ne peut pas être testé avec des opérateurs OR.

Il faut que tu fasse un test qui renvoie un booléan, comme TextBox1.Text = "", Textbox2.Text <> "Retour Maison", IsNumeric(TextboxMachin.Text), ...
17/06/2015, 22h23
jopopmk

Salut,

if (text) pourrait marcher en C mais pas en VB :mrgreen:
Ce que tu cherches à faire est de savoir si toutes ces chaines sont vides ? Il faut alors répéter à chaque fois le test conditionnel.
Ça donne un truc du genre if (text1 = "" Or text2 = "" Or text3 = "") Then ...
Pour aller plus loin tu pourrais même utiliser l'opérateur OrElse qui parait tout indiqué dans ton cas.

Maintenant je te conseille de prendre quelques minutes pour lire un tuto VB, tout te semblera plus clair très rapidement ;)
17/06/2015, 22h24
OnixT

Merci de ta reponse :D

Enfaite je veux dire que si le textbox1 est vide alors msgbox ("test") ( je pense que tu as compris ^^) sauf que j'ai 8 textbox et que pour ces 8 textbox c'est la meme commande .

Je me suis donc dit que avec Or je pourrai accumuler les textbox ...

Je peux t'assurer que si on met que " if textbox1.text or textbox2.text = "" ca marche

Et si j'ai bien compris, "TextBox1.Text = "", Textbox2.Text <> "Retour Maison", IsNumeric(TextboxMachin.Text)" va convertir le textbox en boolean ??

Merci pour ton aide ^^
17/06/2015, 22h28
sevyc64

ça converti pas, ça fait une comparaison et le résultat de la comparaison est un boolean
17/06/2015, 22h33
OnixT

Je comprend pas là, a quoi sert ce que tu m'as dit ?

Et pourquoi jopo me dis que en mettant text1 or text2 or text3 ca marche ? Qui m'aiclaire svp ?? :~(
17/06/2015, 23h05
jopopmk

Je pense que la partie intéressante et primordiale de mon message est en fin de compte : commence par lire quelques tuto.
18/06/2015, 11h57
ToshiroSama

Bonjour,

Je vais essayer à mon tour de t'expliquer ce que tu trouvera au début de n'import quel tuto :aie:

Pour commencer :

Citation:

Je peux t'assurer que si on met que " if textbox1.text or textbox2.text = "" ca marche

Je peux t'assurer que non !! en fait ce qui se passe est le suivant, tu as une condition (ton if) composée de deux expressions (séparé par le OR). ta condition sera "vraie" que si les deux expressions sont "vraies". il faut savoir que la conditionif Textbox1.Text Then marchera si on saisi un long (ou un entier.. ou quelque chose convertible automatiquement en long), du coup si tu saisi "1" elle retournera "vrai" parce que la conversion vers le type "long" est faite sans exception et que "1" est différent de "0" qui le nullable du type "long"
Autrement dit : tu était entrain de tester SI textbox2.text n'est pas null et au même temps si ce qui est saisi dans textbox1 est different de la valeur null du type long, bien entendu si tu saisi une lettre dans Textbox1, ca va te sortir une belle exception relative à la conversion de String vers Long.

Ce que tu es sensé faire :
Tester sur l'ensemble de tes TextBox. TextBox1.Text <> ... Or TextBox2.Text <> ... ainsi de suite.

Pour reprendre le mot "convertir"
ON NE CONVERTIT RIEN DANS UN BLOC IF !!!
quelque chose derrière (pour ne pas sortir d'autres termes qui risquent de poser d'autres problèmes :aie:) va tester chacune des expressions de ta condition ( rappel : IF expr1 OR expr2 AND expr3 est une condition ). et à chaque fois il va remplacer l'expression par son équivalence en terme de "Vrai/Faux" à la fin il va combiner les "vrai/faux" suivant les opérateur OR/AND... quelque chose comme FAUX AND VRAI => FAUX ...

Enfin :
PREND L'HABITUDE d'utiliser (String.Empty) et non ""...
20/06/2015, 23h30
Mortlhomme
Pour que le code soit moins lourd tu peut renommer tes textbox avec des nom plus court, ici je les nommerais ainsi = 'TB1', 'TB2', etc.
Ce n'est pas forcement la meilleur façon de les nommer mais c'est pour l'exemple...

Ensuite tu vas devoir faire comme ça :
Code:

1 2 3 If TB1.text = "" Or TB2.text = "" Or TB3.text = "" Or TB4.text = "" Or TB5.text = "" Or TB6.text = "" Or TB7.text = "" Or TB8.text = "" Then [...] End If
En fait entre chaque 'Or' il y a une seul condition, et si tu fait

Code:

If TB1.text Or TB2.Text Or TB3.Text = ""

cela ne corespond pas a lui dire 'Si dans TB1 ou dans TB2 ou dans TB3 il n'y a pas de texte alors' mais cela correspond a : "Si le texte de TB1 est vrai ou que le text de TB2 est vrai ou que il n'y a pas de texte dans TB3 alors" (cela ne veut rien dire)

un équivalent de ce que tu a écrit est

Code:

If TB1.text = True Or TB2.Text = True Or TB3.Text = ""

Bonjour,

Sinon, tu peux faire une boucle sur tes TextBox :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Dim Txt As Control
Dim Vide As Boolean = True
 
For Each Txt In Me.Controls
 
    If TypeName(Txt) = "TextBox" Then
 
        If Txt.Text <> "" Then
 
            Vide = False
            Exit For
 
        End If
 
    End If
 
Next Txt
 
If Vide = False Then
 
    MsgBox ("Au moins un des champs n'est pas vide !")
 
Else
 
    MsgBox ("Tous les champs sont vide !")
 
End If

Hervé.

21/06/2015, 13h17
rv26t
@Theze
Autant utiliser l'exemple de la FAQ Comment intervenir sur un ensemble de même type de contrôles d'un conteneur ?
Et on l'écrit
Code:

1 2 3 4 5 6 For Each ctrl In Me.Controls.OfType(Of TextBox)() if ctrl.text = "" then messagebox.show ("Vide") exit for end if Next
Et tu peux même positionner le curseur sur le textbox qui est vide (s'il y en a un). Avec ctrl.Focus() placé derrière la ligne "messagebox.show ..."
21/06/2015, 13h34
Sehnsucht
et quitte à utiliser les méthodes d'extension issues de Linq (OfType) autant pousser le vice jusqu'au bout et faire :)
Code:

1 2 3 If Controls.OfType(Of TextBox).Any(Function(tb) tb.Text = "") MessageBox.Show("vide") End If

Essai

Code:

1
2
3
If TextBox1.text = "" Or TextBox2.text = "" Or TextBox3.text = "" then
MsgBox("Texte est Vide")
EndIf