PDA

Visualizza la versione completa : [VB]Far scorrere il testo


Andreass
10-05-2002, 21:59
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
10-05-2002, 22:10
Penso che potresti ottenere questo effetto lavorando con un timer e con la proprietÓ left della label

ma non chiedermi come fare;)

Andreass
10-05-2002, 22:14
Grazie zampa!!!!!!!!!!!!!Ho provato con il timer ma non riesco a farlo scorrere!!!!!!!!

zampa28
10-05-2002, 22:15
posta il codice che magari te lo incasino

Andreass
10-05-2002, 22:25
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
11-05-2002, 18:05
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
11-05-2002, 19:59
Ma left sposta la label o il testo che Ŕ all'interno???
Ma si deve fare un controllo lettera per lettera?:master:

Andreass
12-05-2002, 10:50
up

Andreass
12-05-2002, 20:15
:(

PUNTO
12-05-2002, 22:50
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 !

Loading