Hjælp til Scrolling text

Her er et eks. 

Dim A As String
Dim B As String
Dim Tel As Long
Private Sub Form_Load()
A = "                          Nyhed: Køb en blå jakke t-shirt fra HalsolPOOl"
End Sub

Private Sub Timer1_Timer()
Tel = Tel + 1
If (Tel - 1) = Len(A) Then
    Tel = 1
End If
B = Mid$(A, Tel, (Len(A) + 1) - Tel)
Form1.Label1.Caption = B
End Sub


den indeholder en label og en timer som har interval 250, du kan lave den bedre hvis du fastlår hvoir mange bostaver der kan være ilabel evt. via fastlå størelsen på tegn og lkængde af teksten ved  lægndepålabelke/srtørelse tegn= tegng i label.

så kan du få den helt ud i begge hjørne elelr begynde før.

-Thomas

NU har jeg lavet det sådan her

Public Class Form1
    Dim A As String
    Dim B As String
    Dim Tel As Long


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Tel = Tel + 1
        If (Tel - 1) = Len(A) Then
            Tel = 1
        End If
        B = Mid$(A, Tel, (Len(A) + 1) - Tel)
        Label1.Text = B
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        A = "                          Nyhed: Køb en blå jakke t-shirt fra HalsolPOOl"
    End Sub
End Class

der skulle lave lidt om Caption hedder nemlig Text i Visual Studio 2005

Men der er problemer fordi når jeg køre programmet står der bare Label1 og det køre ikke hen over programmet.

Du har husket at sættet en interval på din timer?

-Thomas

Her er et eksempel på hvordan jeg har lavet det:

http://www.online-net.dk/Interval.JPG

ser det forkert ud??? Før stod interval på 100 det virker jo ikke. Så satte jeg den op på 500 men det hjalp heller ikke.

Det kan være det bliver nemmer når du kan se det på et billede.

;o)

Jep, så det ikke pga. interval!

500 svare til 0.30 sekund elelr ½sekund da det måles i mille sekunder
og der går 1000 milisekunder på 1 sekund.

du burde kunne skrive a.length ikke?
eller lign.

så prøv flg.
  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Tel = Tel + 1
        If (Tel - 1) = a.length Then
            Tel = 1
        End If
        B = Mid$(A, Tel, (a.lentgh + 1) - Tel)
        Label1.Text = B
End Sub

det burde være mere rigtig.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Tel = Tel + 1
        If (Tel - 1) = A.Length Then
            Tel = 1
        End If
        B = Mid$(A, Tel, (A.Length + 1) - Tel)
        Label1.Text = B
    End Sub


Jeg satte interval op på 10000 fordi der ikke sket noget da den stod på 1000.

Men det hjalp heller ikke... Den vil bare ikke køre hen over programmet Label1.

Hvad tror du jeg gør galt??? ;o)

Fejlen er af din timer ikke er enablede og at mid$ skal være mid, uden $ tegn.

den kode vil sæt timer til true, efter a er sat.

Public Class Form1
    Dim A As String
    Dim B As String
    Dim Tel As Long


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Tel = Tel + 1
        If (Tel - 1) = Len(A) Then
            Tel = 1
        End If
        B = Mid(A, Tel, (Len(A) + 1) - Tel)
        Label1.Text = B
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        A = "                          Nyhed: Køb en blå jakke t-shirt fra HalsolPOOl"
        timer1.enabled=true
    End Sub
End Class


eller denne kode, forskellen er len er udskiftede med a.Length

Public Class Form1
    Dim A As String
    Dim B As String
    Dim Tel As Long


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Tel = Tel + 1
        If (Tel - 1) = a.Length Then
            Tel = 1
        End If
        B = Mid(A, Tel, (a.Length) + 1) - Tel)
        Label1.Text = B
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        A = "                          Nyhed: Køb en blå jakke t-shirt fra HalsolPOOl"
        timer1.enabled=true
    End Sub
End Class


-Thomas

OK nu virker det :o)

Men vil lige gerne have det sidste hjælp.

Hvordan  gør jeg sådan at der køre automatisk hen over programmet nu skal man nemlig trykke på Label1 for at den begynder... ;O)

Jeg har brugt denne kode:

Public Class Form1
    Dim A As String
    Dim B As String
    Dim Tel As Long



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Tel = Tel + 1
        If (Tel - 1) = Len(A) Then
            Tel = 1
        End If
        B = Mid(A, Tel, (Len(A) + 1) - Tel)
        Label1.Text = B


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        A = "Nyhed: Køb en blå jakke t-shirt fra HalsolPOOl"
        Timer1.Enabled = True

    End Sub
End Class


Den ande kode kunne jeg ikke lige få til at du ;o)

Sæt den i form load i stedet.


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        A = "Nyhed: Køb en blå jakke t-shirt fra HalsolPOOl"
        Timer1.Enabled = True
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click


    End Sub

-Thomas

Tak for hjælp... ;o) Jeg fandt selv ud af det sidste.

Public Class Form1
    Dim A As String
    Dim B As String
    Dim Tel As Long



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Tel = Tel + 1
        If (Tel - 1) = Len(A) Then
            Tel = 1
        End If
        B = Mid(A, Tel, (Len(A) + 1) - Tel)
        Label1.Text = B


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        A = "Nyhed: Køb en blå jakke t-shirt fra HalsolPOOl"
        Timer1.Enabled = True
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub
End Class



Nu får du dit point. ;o)