For Each ... NextRésolu

Question

Salut à vous. Voici l'une de mes procédure : *** Private Sub TabOpt_Click() Dim mControl As Control For Each mControl In Me.Controls If Not TypeOf mControl Is TabStrip _ Or _ Not TypeOf mControl Is CommonDialog _ Then If mControl.Tag = "<" & TabOpt.SelectedItem & ">" Then mControl.Visible = True Else If mControl.Tag = "" Then mControl.Visible = False End If End If Next End Sub *** Malheuresement quand elle se lance, VB m'affiche : "Erreur de compilation, Next sans For". Pourtant ma boucle est complète non ? J'ai essayé de rajouter mControl après Next mais rien n'y fait. Encore une erreur stupide à mon avis. Merci de votre aide. ° The world is moving so fast these days that the person who says it can't be done is generally interrupted by someone doing it ° Harry Emerson Fosdick

Gobillot · Accepted Answer

il y a 3 if et seulement 2 end if


il manque un end if pour le troisi&#232;me ou tu met tout sur la m&#234;me ligne.

If mControl.Tag "<Tab>" Then mControl.Visible False


Daniel

cs_DARKSIDIOUS · Answer

il te manque un endif avant ton next tout simplement


If mControl.Tag = "<Tab>" Then

    mControl.Visible = False

End If


_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

cs_Jack · Answer

Salut
Probl&#232;me que tu rencontreras souvent.
En fait, le probl&#232;me ne vient aps du For-Next mais du fait que tu as oubli&#233; un EndIf sur le dernier If ..."<Tab>" Then

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

Merde, j'ai perdu au chrono !

jpleroisse · Answer

Bonsoir,

Il te manque un End If avant Next.

Que fait ce code, je l'ai essayer, mais rien ne se passe ?



jpleroisse

jpleroisse · Answer

Re,

J'ai post&#233; en retard, &#231;a fait 10 minutes que j'essaye.



jpleroisse

For Each ... Next

6 réponses

Discussions similaires