Autoscroll

  • VB.NET

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

    Autoscroll

    Hallo Commi. :)
    Ich möchte wenn meine Richtextbox
    voll ist und trotzdem noch ein Tex hinzukömmt
    das sie dann Automatisch runter scrollt, könnt
    ihr mir helfen? ?(
    Danke im Vorraus :)
    Spoiler anzeigen
    Mein Bisherriger Code:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    5. My.Computer.Network.DownloadFile("ftp://testpage343.te.funpic.de/chat.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Chat\chat.txt", "testpage343", "passwort", False, 60000, True)
    6. Dim ChatProtokol As String = My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Chat\chat.txt")
    7. RichTextBox1.Text = ChatProtokol
    8. End Sub
    10. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    11. Dim nachricht As String = AktuelleZeit() & " - " & TextBox1.Text & vbNewLine & TextBox3.Text
    12. Dim ChatProtokol As String = My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Chat\chat.txt")
    14. Dim uploadString As String = ChatProtokol & vbNewLine & nachricht
    15. My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Chat\chat_upload.txt", uploadString, False)
    16. My.Computer.Network.UploadFile(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Chat\chat_upload.txt", "ftp://testpage343.te.funpic.de/chat.txt", "testpage343", "passwort")
    18. End Sub
    19. Private Function AktuelleZeit()
    20. Dim AktuelleZeitString As String
    21. AktuelleZeitString = Now.Day & "." & Now.Month & "." & Now.Year & " " & Now.Hour & ":" & Now.Minute
    22. Return AktuelleZeitString
    23. End Function
    24. End Class

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

    is zwar für ne textbox aber sollte eig auch bei ner RTB klappen ^^

    VB.NET-Quellcode

    1. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    2. TextBox1.Select(TextBox1.Text.Length, 0)
    3. TextBox1.ScrollToCaret()
    4. End Sub

    €dit: entschuldige, hab mir erst jetzt die geposteten links angeschaut :/

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „slice“ ()

Facebook
Telefonspende