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
![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)
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?
![?(](https://www.vb-paradise.de/wcf/images/smilies/confused.png)
Danke im Vorraus
![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)
Mein Bisherriger Code:
VB.NET-Quellcode
- Public Class Form1
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- My.Computer.Network.DownloadFile("ftp://testpage343.te.funpic.de/chat.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Chat\chat.txt", "testpage343", "passwort", False, 60000, True)
- Dim ChatProtokol As String = My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Chat\chat.txt")
- RichTextBox1.Text = ChatProtokol
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim nachricht As String = AktuelleZeit() & " - " & TextBox1.Text & vbNewLine & TextBox3.Text
- Dim ChatProtokol As String = My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Chat\chat.txt")
- Dim uploadString As String = ChatProtokol & vbNewLine & nachricht
- My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Chat\chat_upload.txt", uploadString, False)
- My.Computer.Network.UploadFile(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Chat\chat_upload.txt", "ftp://testpage343.te.funpic.de/chat.txt", "testpage343", "passwort")
- End Sub
- Private Function AktuelleZeit()
- Dim AktuelleZeitString As String
- AktuelleZeitString = Now.Day & "." & Now.Month & "." & Now.Year & " " & Now.Hour & ":" & Now.Minute
- Return AktuelleZeitString
- End Function
- End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „inu“ ()