[VB]Far scorrere il testo

[Andreass]

Ciao!!!Dovrei al click di un pulsante far trasferire un testo che scrivo in un text in una label:fin qui tutto ok.Il problema è che dovrei poi far diventare il testo scorrevole(come il tag marquee in html),Come posso fare?
Grazie

[zampa28]

Penso che potresti ottenere questo effetto lavorando con un timer e con la proprietà left della label

ma non chiedermi come fare

[Andreass]

Grazie zampa!!!!!!!!!!!!!Ho provato con il timer ma non riesco a farlo scorrere!!!!!!!!

[zampa28]

posta il codice che magari te lo incasino

[Andreass]

Grazie!!é un casino

Private Sub Command1_Click()
Label1.Caption = Text1.Text
End Sub

Private Sub Timer1_Timer()
a = a + 1
Label1.Move (12)
End Sub

[zampa28]

Allora?

nessuno sa come inserire un tot di tempo tra un istruzione e l'altra?

[/code]
label1.left=600
tempo
label1.left=550
tempo
label1.left=500
tempo
label1.left=450
tempo

[/code]

[Andreass]

Ma left sposta la label o il testo che è all'interno???
Ma si deve fare un controllo lettera per lettera?:master:

[Andreass]

up

[Andreass]

[PUNTO]

Io ho pensato in questo modo:

'Con un tasto attivi il timer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

'Se vuoi far scorrere il testo in avanti...
Private Sub Timer1_Timer()
If Label1.Caption <> "" Then
Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption))
Else
Label1.Caption = "Stringa da ripetere"
End If
End sub

'Se vuoi far scorrere il testo al contrario...

Private Sub Timer1_Timer()

If Label1.Caption <> " " & "Striga da ripetere" Then
Label1.Caption = " " & Label1.Caption
End If
If Label1.Caption = " " & "Stringa da ripetere" Then
Label1.Caption = "Stringa da ripetere"
End If
End Sub

Ricordati di "regolare" il numero di spazi secondo le tue necessità.

Ciao !