Probleme avec l'instruction Goto

Slt

j'essaie de faire fonctionner l'instruction Goto avec une variable de cette facon :
 
   Public number As Integer

   number = 10
   Goto number
   10:
    text1 = "test"

mais apparament ca le fait pas trop. Est ce possible d'utilisé l'instruction Goto avec une variable ? sinon qu'elle autre méthode je peut uiliser

Non, Blackcatthc, tu ne peux te référer ainsi à une étiquette.
Dans ce cas, par exemple, il te faut nécessairement spécifier 10 et pas une variable qui vaudrait 10.

tu peux par contre t'intéresser de près à :
On...GoSub, On...GoTo
qui te permettent presque de faire ce que tu cherches à faire..


Ceci dit : je te recommande très vivement de tout mettre en oeuvre (on y arrive) pour éviter ces GOTO, etc...

Salut,
Goto (comme Gosub) est un héritage des vieux Basics.
Ces instructions sont à proscrire vb.
La seule utilisation possible de goto est On error goto (quoique la plupart du temps on peut ausi s'en passer).
Explique ce que tu veux faire et on te montrera que goto est inutile en vb6.

Un exemple :

Ces 2 façons de faire fonctionnent en vb6 :

Mauvaise façon :
if mavar = 1 then goto etiq1
if mavar = 2 then goto etiq2
goto etiq3
etiq1:
...
goto etiq3
etiq2:
...
etiq3:
...

Bonne façon :
if mavar = 1 then
...
elseif mavar = 2 then
...
end if

oui dolphin j'avais pensé a utilisé if et elseif. mais dans mon cas ca enchenerait au moin une centaine de elsif qui se suivent et je ne sai pas trop, mais le temp que le pc regarde condition par condition  et arrive par exemple au numero 98 il va mettre un certain temp non?. mon programme ressemble a ca:

Goto number

1:
2:
3:
4:

100:

 Parce que j'ai besion que ce soit instantané d'ou le fait que je voulais utilisé Goto.

Sinon je suis allé voir pour On Gosub On Goto jmfmarque. Entre cette instruction la et if, elseif qu'elle méthode  réponderait le plus rapidement

Faire un enchaînement de 100 if, c'est que tu dois avoir un problème de conception sûrement !

Qu'es-tu censé testé dans tes 100 if ? Ne peux-tu remplacer ton approche impérative par une approche objet : un objet par condition, ce qui te ferai non plus 100 tests à faire, mais 100 petits objets qui ont leur comportement différent par exemple ?

Je suis ok avec Caramelmou, c'est Select Case qui convient parfaitement :


    Public number As Integer

number = 10
Select Case number
    Case 10: text1 = "test"  ' si Number = 10
    Case 20: text1 = "test 2"  ' si Number = 20
    Case 30, 40: text1 = "test3"  ' si Number = 30 OU 40
    Case 41 To 50: text1 = "test 4"  ' si Number = une valeur comprise entre 41 et 50
End Select
~ Mortalino ~ Colorisation automatique

@++

---

Bonjour,

Un sommeil réparateur a réactivé mes réflexes.

Imagine,  Blackcatthc , que tu fasses plusieurs fonctions ou routines portant les mêmes premières lettres (toto par exemple) et se terminant par une chaine de caractères reprenant la valeur de ta variable.
Tu aurais ainsi les fonctions (par exemple):
toto1
toto2
.
.
tono10

etc.

.
Imagine maintenant que tu appelles la fonction correspondante à cette "concaténation" toton (ou n = 1, 2 ...etc...)

Ce serait la solution à ton problème, presqu'assurément ...
Or, il existe pour celà une fonction et son nom est CallByName
Vois ici comment elle peut être utilisée :
[ Lien ]
Bonne journée