F
Frasch
Bekanntes Mitglied
Hallo habe mal ein Video gesehen wie man ein VB-Chat bastelt.
Nun hab ich es ausprobiert aber es kann immer nur eine Nachricht angezeigt werden die anderen vorherigen Nachrichten werden einfach ausgeblendet.
Ich will aber das alle Nachrichten angezeigt werden.
Hier der Code:
Ich hoffe ihr könnt mir helfen.
Nun hab ich es ausprobiert aber es kann immer nur eine Nachricht angezeigt werden die anderen vorherigen Nachrichten werden einfach ausgeblendet.
Ich will aber das alle Nachrichten angezeigt werden.
Hier der Code:
Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim wcl As New Net.WebClient
wcl.Credentials = New Net.NetworkCredential("**********", "************")
RichTextBox2.Text = wcl.DownloadString("***********************.txt")
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim wcl As New Net.WebClient
wcl.Credentials = New Net.NetworkCredential("**********", "********")
RichTextBox2.Text = wcl.DownloadString("**********************.txt")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Enabled = False
Dim wcl As New Net.WebClient
Dim name As String
name = TextBox1.Text
ProgressBar1.Value = 10
wcl.Credentials = New Net.NetworkCredential("********", "**********")
ProgressBar1.Value = 45
wcl.UploadString("*************.txt", (Format(Now, "<hh:mm:ss> ")) & vbNewLine & name & ": " & RichTextBox1.Text & vbNewLine)
ProgressBar1.Value = 100
Timer1.Start()
RichTextBox1.Clear()
End Sub
End Class
Ich hoffe ihr könnt mir helfen.