VS2008 - Testo scorrevole

[icosimo]

Ciao "FORUM",

VS2008 - Visual Basic - Testo scorrevole



Vorrei poter far scorrere in una "Label" del testo.
Nel FORUM ho trovato il codice per VB6 che riporto:

********************************
Dim sTesto As String, btStart As Byte
Private Sub Form_Load()
sTesto = "Prova testo scorrevole in una Lbl"
btStart = 1
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Right(sTesto, Len(sTesto) - btStart) + Left(sTesto, btStart)
btStart = btStart + 1
If btStart > Len(sTesto) Then btStart = 1
End Sub
*********************************

In VB6 , dopo aver inserito il controllo "Timer", il codice funziona, il testo scorre .
Ho fatto la stessa cosa in VS2008 , anche qui il codice funziona, non segnala alcun errore, ma il testo non scorre.
Qualcuno sa come posso risolvere?

In attesa, grazie.

[Stoicenko]

forse perchè non fai timer.start()

[icosimo]

Originariamente inviato da Stoicenko
forse perchè non fai timer.start()

Sì, grazie Stoicenko per aver risposto.

Credo di averle provate tutte, ma non so come utilizzare il tuo suggerimento. Qualsiasi cosa faccia non cambia nulla, il testo resta immobile.

Se puoi dirmi ancora qualcosa !!

Ciao.

[Boolean]

Prova questo

Public Class Form1

    Dim WithEvents tim As New Timer
    Dim TheLabel As New Label

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        TheLabel.Location = New Point(20, 20)
        TheLabel.Parent = Me
        TheLabel.AutoSize = True
        TheLabel.Text = "Questo è un testo di prova     "
        tim.Interval = 100
        tim.Enabled = True
    End Sub

    Private Sub tim_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tim.Tick
        Dim t As String = TheLabel.Text
        t = t.Substring(1) & t.Chars(0)
        TheLabel.Text = t
    End Sub
End Class

TheTruster

[icosimo]

Grazie Boolean.

Funziona benissimo.

Ciao.