LAUFTEXT

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von MartinB..

    Kannst du näher beschreiben was du mit Lauftext meinst? So wie es scheint, weiß hier keiner was du meinst!?!

    Ich gehe davon aus das es ein einfacher Text sein soll der durch die Textbox "läuft" (wie bei werbebannern oder so).
    Wüsste jetzt aber nicht wie man das macht, bin selber noch zu frisch :D

    Guck mal !!hier!!

    Ist von VB6 und älter aber vielleicht bringt es dir ja was!

    Würde auch gern wissen ob und wie so etwas funktioniert!

    MfG
    MartinB.

    So wie es scheint, weiß hier keiner was du meinst!?!
    Manche Leute haben nebenbei nochwas anderes zu tun ;)

    Einstellen kann man das bei einer Textbox nicht. Es gibt so eine Funktion standardmäßig nicht.

    Eine Laufschrift wird normal ganz einfach verwirklicht: Je nach Richtung, wird das erste oder letzte Zeichen des Inhalts der Textbox abgeschnitten und am andere Ende wieder hinzugefügt.

    Wenn du dies in einem Timer regelmäßig (z.B. jede Sekunde) machen lässt, hast du den Laufschrift-Effekt.

    Da der Text aber ggfs nicht die ganze Länge der Textbox ausfüllt, muss man mit Leerzeichen auffüllen. bloß wie viele? -> TextRenderer!

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private WithEvents t As New System.Windows.Forms.Timer With {.Enabled = False, .Interval = 25}
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    8. Dim s As String = "Hallo Welt"
    9. While TextRenderer.MeasureText(s, TextBox1.Font).Width < TextBox1.Width
    10. s &= " "
    11. End While
    12. s = s.Substring(0, s.Length - 1)
    13. TextBox1.Text = s
    14. TextBox1.ReadOnly = True
    15. t.Enabled = True
    17. End Sub
    20. Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles t.Tick
    22. Dim s As String = TextBox1.Text
    23. Dim c As Char = s(s.Length - 1)
    24. TextBox1.Text = c.ToString & s.Substring(0, s.Length - 1)
    26. End Sub
    27. End Class


    Nachtrach:
    Gekapselt ist schöner!
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Lauftext
    3. Private WithEvents tm As New Timers.Timer With {.AutoReset = True, .Enabled = False, .Interval = 100}
    4. Private tb As TextBox
    6. Public Sub New(ByVal t As TextBox, ByVal s As String, Optional ByVal intrval As Integer = 100)
    8. If intrval < 10 Or intrval > 10000 Then intrval = 100
    9. tm.Interval = intrval
    10. While TextRenderer.MeasureText(s, t.Font).Width < t.Width
    11. s &= " "
    12. End While
    13. s = s.Substring(0, s.Length - 1)
    14. t.Text = s
    15. t.ReadOnly = True
    16. tb = t
    17. tm.Start()
    19. End Sub
    21. Private Delegate Sub dlgSetText(ByVal s As String)
    22. Private Sub SetText(ByVal s As String)
    23. tb.Text = s
    24. End Sub
    26. Private Sub tm_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles tm.Elapsed
    27. Try
    28. Dim d As dlgSetText = AddressOf SetText
    29. Dim s As String = tb.Text
    30. Dim c As Char = s(s.Length - 1)
    31. tb.Invoke(d, c.ToString & s.Substring(0, s.Length - 1))
    32. Catch
    33. tm.Stop()
    34. End Try
    35. End Sub
    36. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „picoflop“ ()