comment on ecrit (different) en visual basic - VB/VBA/VBS - Programmation
Marsh Posté le 29-10-2002 à 18:45:55
william10 a écrit a écrit : if text1.text = "victoire" then goto fin |
berk
pourquoi passer par un goto aussi inutile que celui la ?
un bête "exit sub" aurait fait l'affaire...
Marsh Posté le 29-10-2002 à 18:47:36
ça marche pas avec different non plus
comment faire pour kil saute le passage si text1.text = "victory" ???
merci d'avance
Marsh Posté le 29-10-2002 à 18:52:07
En mode pas à pas, en explorant text1.text et la chaîne "test", .. ?
C'est "victoire" ou "victory" qu'il faut trouver ?
Y a pas un pb de casse : maj/minuscules ?
Le jour où j'allume VB3/Win3.11, j'essaie pour voir.
EDIT : Un peu d'indentation ça rend la lecture plus "structurée".
La solution, c'est quoi finalement ?
Marsh Posté le 30-10-2002 à 01:45:22
Je conseille d'utiliser TOUJOURS StrComp pour les comparaisons de chaine (utile lors d'une fonction de trie), 20x plus rapide qu'un <> chaine$ (source : livre vb hardcore).
Marsh Posté le 29-10-2002 à 18:19:17
c koi le symbole pour different de
ex:
if text1.text (different de) "salut" then ......
ou mieux encore:
If c2etage = 4 Then Command2(0).Visible = False
If c1etage And c2etage And c3etage And c4etage = 4 Then
Command1(0).Enabled = False
Command2(0).Enabled = False
Command3(0).Enabled = False
Command4(0).Enabled = False
Text1.Text = "egalite"
ws.SendData (Text1)
PauseTime = 0.2
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
finish = Timer
MsgBox "Egalité", vbInformation, "Egalité"
Label1.Caption = "Egalité"
End If
End Sub
je veux faire tout ça que si text1.text n'est pas egal a victoire ou alors, je ne veux pas faire ça si text1.text = victoire..
J'ai testé ça :
if text1.text = "victoire" then goto fin
If c2etage = 4 Then Command2(0).Visible = False
If c1etage And c2etage And c3etage And c4etage = 4 Then
Command1(0).Enabled = False
Command2(0).Enabled = False
Command3(0).Enabled = False
Command4(0).Enabled = False
Text1.Text = "egalite"
ws.SendData (Text1)
PauseTime = 0.2
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
finish = Timer
MsgBox "Egalité", vbInformation, "Egalité"
Label1.Caption = "Egalité"
End If
fin:
End Sub
seulement au moment ou il lit la ligne il n'a pas encore trouvé fin: donc il y a une erreur.
C'est pour ça que je veux metre different de "victory"plutot que egala ) "victory"