[VB] aidez un débutant svp

Marsh Posté le 16-02-2002 à 14:57:29

bonjour

j'ai crée un tout petit programme, mais lorsque je l'execute il y a une erreur.

Voici le code :

Citation :

Private Sub nbcouches_Change()
Dim couchescachees(5) As Single
couchescachees(1) = couche1
couchescachees(2) = couche2
couchescachees(3) = couche3
couchescachees(4) = couche4
couchescachees(5) = couche5
Dim i As Integer

For i = 1 To nbcouches.Text
couchescachees(i).Locked = False
End
For i = nbcouches.Text To 5
couchescachees(i).Locked = True
End
End Sub

l'erreur est au niveau du gras. QQun a une idée ?

merci

Marsh Posté le 16-02-2002 à 14:57:29

Marsh Posté le 16-02-2002 à 15:07:52

salut,

frnachement tu devrais plutôt faire du delphi si tu débutes !!!
pour ton pb désolé...

---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com

Marsh Posté le 16-02-2002 à 15:17:53

delphi c'est assez graphique aussi, comme VB ?
y a des classes ?

je programme deja en php et perl, mais il me faut qqch de plus graphique et j'ai pas tres envie de me mettre au C++

Marsh Posté le 16-02-2002 à 16:14:37

oui, le delphi est vraiment visuel plus que VB à mon gout, c'est le must pour les débutants. Une version personnelle est gratuite !!!

www.borland.fr

@+

---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com

Marsh Posté le 18-02-2002 à 13:11:17

Commence déjà par mettre des 'Next' à la place des 2 premiers End pour terminer tes boucles For.
Ca devrait mieux aller après !

A+

Marsh Posté le 18-02-2002 à 13:21:45

For i = 1 To val(nbcouches.Text) ' fo pas ke nbcouches > 5
couchescachees(i).Locked = False
next i

For i = val(nbcouches.Text) To Ubound(nbcouches)
couchescachees(i).Locked = True
next i

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *