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
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
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“ ()