Hallo Leute,
mein Problem hab en kleinen FTP Chat. Aber immer wen ich Etwas schreibe wird das zu letzt geschriebene Überschrieben d.h. es gibt nur eine Zeile.
Form1 Load
Sene Button:
Timer:
Hoffe jemand hatt ne idee!
PS: Das RichTextBox2.Text = Nothing ist dafür das das sendefenster gecleart wird
mein Problem hab en kleinen FTP Chat. Aber immer wen ich Etwas schreibe wird das zu letzt geschriebene Überschrieben d.h. es gibt nur eine Zeile.
Form1 Load
VB.NET-Quellcode
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim wcl As New Net.WebClient
- wcl.Credentials = New Net.NetworkCredential("keydrow", "*********")
- RichTextBox1.Text = wcl.DownloadString("ftp://keydrow.bplaced.net/filemanager/chat.txt")
- Timer1.Enabled = True
- End Sub
Sene Button:
VB.NET-Quellcode
- Dim wcl As New Net.WebClient
- Dim name As String
- name = nametxt.Text
- ProgressBar.Value = 10
- wcl.Credentials = New Net.NetworkCredential("keydrow", "*******")
- ProgressBar.Value = 45
- wcl.UploadString("ftp://keydrow.bplaced.net/filemanager/chat.txt", "<" & name & ">" & RichTextBox2.Text)
- ProgressBar.Value = 100
- RichTextBox2.Text = Nothing
Timer:
VB.NET-Quellcode
Hoffe jemand hatt ne idee!
PS: Das RichTextBox2.Text = Nothing ist dafür das das sendefenster gecleart wird