[VB6] Pb If ... End If !!!!!!!!!!!!!!!!

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB6] Pb If ... End If !!!!!!!!!!!!!!!!

GaLaCtus974

salut
ou est l'erreur plizzz car il me lance bien le prg ensuite quand je demarre comman1 il me dit:

Compile error:
End if without block If

le code:

Private Sub Command1_Click()
Image1.Visible = False
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
If (Label.Caption = 7) Or (Label2.Caption = 7) Or (Label3.Caption = 7) Then Label4.Caption = "Gagné!"

End If

End Sub

Ou est l'erreur s'il vou plait?

merci

Publicité

mareek

Et de 3 \o/

si tu met une instruction sur la même ligne que le then, tu n'as pas besoin de "end if", VB considère que le if se termine à la fin de la ligne dans ce cas.

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

GaLaCtus974

mareek a écrit a écrit :

si tu met une instruction sur la même ligne que le then, tu n'as pas besoin de "end if", VB considère que le if se termine à la fin de la ligne dans ce cas.

ok merci beaucoup
je debute juste avec vb6 et je connaissai pas cette convetion

GaLaCtus974

Par contre maintenant que j'ai enlever end if il me met un "object required" !!!

et il selectionne:
If (Label.Caption = 7) Or (Label2.Caption = 7) Or (Label3.Caption = 7) Then

j'comprend pu :??:

Harkonnen

Modérateur
Un modo pour les bannir tous

essaie comme ça :

If (Label.Caption = 7) Or (Label2.Caption = 7) Or (Label3.Caption = 7) Then
Label4.Caption = "Gagné!"
End If

---------------
J'ai un string dans l'array (Paris Hilton)

mareek

Et de 3 \o/

galactus974 a écrit a écrit :

Par contre maintenant que j'ai enlever end if il me met un "object required" !!!

et il selectionne:
If (Label.Caption = 7) Or (Label2.Caption = 7) Or (Label3.Caption = 7) Then

j'comprend pu :??:

c'est normal, ya rien sur ta ligne apres ton then

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

GaLaCtus974

mareek a écrit a écrit :

c'est normal, ya rien sur ta ligne apres ton then

harkonnen g essayer et c la meme erreur

mareek la ligne que j'ai mis c vb qui l'a selectionner sinon c'etait comme dans le code que j'ai poster !

c vraiment bizarre
:??:

mareek

Et de 3 \o/

galactus974 a écrit a écrit :

harkonnen g essayer et c la meme erreur

mareek la ligne que j'ai mis c vb qui l'a selectionner sinon c'etait comme dans le code que j'ai poster !

c vraiment bizarre
:??:

recopie ton code via un copier coller sur le forum et met la ligne que VB te selectionne en gras.

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Harkonnen

Modérateur
Un modo pour les bannir tous

j'ai trouvé !!!

galactus974 a écrit a écrit :

Private Sub Command1_Click()
Image1.Visible = False
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
If (Label.Caption = 7) Or (Label2.Caption = 7) Or (Label3.Caption = 7) Then Label4.Caption = "Gagné!"

End If

End Sub

:sol:

---------------
J'ai un string dans l'array (Paris Hilton)

GaLaCtus974

Harkonnen a écrit a écrit :

j'ai trouvé !!!

:sol:

Merci :jap:
j'ai pas les yeux en face des trous

faut que j'arrete la jamaîcaine :pt1cable:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB6] Pb If ... End If !!!!!!!!!!!!!!!!

Sujets relatifs
[VB6] pointeur sur tableau	[VB6] Tracer des courbes
VB6 Comment creer un commandbutton par le code ?	[VB] utiliser Grid32.ocx de VB5 dans VB6
appeler un macro Access avec VB6	[ODBC/CRITERIA/ADO/VB6] pb ado entre Criteria et VB6
Erreur 10048 sous VB6	[install VB6 ] - truc de ouffffffffffffffff
[VB6] Cherche bouquin particulier	Connection a uneBDD access...[VB6]
Plus de sujets relatifs à : [VB6] Pb If ... End If !!!!!!!!!!!!!!!!

Page générée en 0.035 secondes