Abspann Text (Von oben nach unten / Unten nach Oben) ???

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Einsteiger.

    Falls der Text in 'nem Label steht:

    VB.NET-Quellcode

    1. 'In einen Timer:
    2. Static n As Integer = 0
    3. Label1.Location = New Point(Me.Width / 2, n)
    4. n += 1


    Sollte geh'n


    link_275
    Hello World

    Du benötigst einen Timer, in dessen Takt der Text gescrollt wird.
    Du benötigst ein Up-Down-Flag, das die Scroll-Richtung bestimmt. Es wird invertiert, wenn das Ende bzw. der Anfang erreicht ist.
    Je nach dem wird die aktuelle Zeile in- bzw. decrementiert.

    Die korrekte Anzeige machst Du wie folgt:

    VB.NET-Quellcode

    1. int index = rtb.GetFirstCharIndexFromLine(actLine);
    2. if (index < 0) index = 0;
    3. if (index >= rtb.Text.Length) index = rtb.Text.Length - 1;
    4. rtb.SelectionStart = index;
    5. rtb.SelectionLength = 0;
    6. rtb.ScrollToCaret();


    Den Rest bekommst Du sicherlich allein raus.
    rtb: TextBox / RitchTextBox
    Grenzen für actLine: 0, rtb.Lines.Length - 1
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende