LABEL o altri...

[RiminiRimini]

Ciao, mi piacerebbe sapere come posso gestire la seguente situazione:
Ho 5 LABEL con il nome di LABEL1, LABEL2 .... LABEL5
Ora, voglio creare una situazione che inserendo un numero tra 1 e 5 accenda(le colora di rosso) le label corrispondenti.

Io avevo pensato ad un ciclo:

Fino a quando X è = 0 allora
(label x-1).Color =RED
x=x-1
LOOP

Ora non guardate il codice,basta il concetto... le label vengono richiamate per nome + il numero corrispondente.... si riesce a fare questa situazione?
Premesso che uso Vb.net!
GRAZIE

[RiminiRimini]

Scusate, anche se il codeice non è corretto il ciclo è il seguente:

Fino a quando X è = 0 allora
(label X).Color =RED
X=X-1
LOOP

Dove X è il numero inserito. In questo modo appunto viene chiamato il nome corrispondente della Label ad sempio


X=2
LABFino a quando X è = 0 allora
(label 2).Color =RED
x=2-1
LOOP

Fino a quando X è = 0 allora
(label 1).Color =RED
x=1-1
LOOP


Ciao e grazie

[Mabi]

Ti basta indicizzare le Label, così le puoi gestire nel ciclo come hai detto anche tu.
Poi con un ciclo esegui la selezione:

Dim Valore As Byte
Dim Cont As Integer

Valore = 2

For Cont = Valore - 1 To 0 Step -1
  Label(Cont).BackColor = vbRed
Next Cont

For Cont = 0 To Valore - 1
  Label(Cont).BackColor = vbRed
Next Cont

Cont = Valore - 1
Do Until Cont = 0
  Label(Cont).BackColor = vbRed
  Cont = Cont - 1
Loop

[RiminiRimini]

Il suggerimento che mi hai spedito è giusto... ma con VB6

Con VB net esiste TABINDEX ma i nome dei componenti sono univoci.

[Mabi]

Ah OK.
Pensavo fosse la stessa cosa, e invece...

Ciao.

[RiminiRimini]

Ho provato ma...
Purtroppo con VB.net è cambiato tutto... in meglio, ma è più complesso.
Cmq grazie mille per il tentativo!