Separare le lettere di una parola

[gianni21031]

Ciao a tutti!
Sto realizzando un giochino in visual basic. In pratica viene estratta una parola a caso da un database di parole (in access) e viene scritta in una label. Dopo avrei bisogno di dividere le lettere della parola in più label, una per ogni lettera. Si può relizzare?
Vi ringrazio!

[oregon]

Certo che si puo' realizzare. Utilizza la funzione Mid$ per prelevare le singole lettere e assegnale alle Label ... magari utilizza un array di Label per sfruttarne l'indice ...

Qualcosa di simile

[CODE]
For i=1 To Len(Label1.Caption)
Label2(i).Caption = Mid$(Label1.Caption, i)
Next i
[/QUOTE]

[gianni21031]

Grazie della risposta, oregon.
Però c'è ancora un problema...
Se ad esempio la parola è "ciao", nelle label con la funzione che mi hai dato, trovo scritto "ciao", "iao", "ao", "o".
Invece io volevo realizzare qualcosa del tipo "c", "i", "a", "o".
Spero di essermi spiegato e ancora grazie per la pazienza.

[yyzyyz]

pikkolo esempio ma nn so se fa al tuo caso, crea un nuovo progetto
sul form ci metti una text1 + 6 label (con la labe1 crea una matrice)

Dim x As Integer
Dim i As Integer
Private Sub Form_Load()
Text1.MaxLength = 6
For i = 0 To 5
    Label1(i).Visible = False
Next i
End Sub

Private Sub Text1_Change()
On Error Resume Next
For i = 0 To 5
    Label1(i).Visible = False
Next i

x = Len(Text1.Text)

For i = 0 To x - 1
    Label1(i).Visible = True
Next i

Label1(i - 1).Caption = Mid(Text1.Text, x, x)
End Sub

[gianni21031]

Perfetto! Tutto risolto! Grazie a tutti e due!

[oregon]

Originariamente inviato da oregon
Certo che si puo' realizzare. Utilizza la funzione Mid$ per prelevare le singole lettere e assegnale alle Label ... magari utilizza un array di Label per sfruttarne l'indice ...

Qualcosa di simile

For i=1 To Len(Label1.Caption)
   Label2(i).Caption = Mid$(Label1.Caption, i)
Next i

Mancava una parte della label, in neretto qui di seguito ...

For i=1 To Len(Label1.Caption)
   Label2(i).Caption = Mid$(Label1.Caption, i, 1 )
Next i

[sspintux]

<Cazzeggiamento seral domenicale>

Fiuuuuuuuuu!
in qualche forum che non ricordo avevo scritto:

.....e chi è senza peccato scagli la prima pietra

.....ora sto tranquillo

</Cazzeggiamento seral domenicale>

[gianni21031]

Originariamente inviato da oregon
Mancava una parte della label, in neretto qui di seguito ...

For i=1 To Len(Label1.Caption)
   Label2(i).Caption = Mid$(Label1.Caption, i, 1 )
Next i

Ah! Ecco perché non riuscivo... Grazie ancora!