Hallo miteinander ich möchte mich gerne mit folgender sache an euch richten !
Und zwar habe ich einen winzigen chat (( Sender + Empfänger )) Nun möchte ich meiner saits mit einem Button_Click bei meinem gegenüber ,
die Farbe der Textbox Ändern !
Dank für jede hilfe im foraus !
SENDER:
EMPFÄNGER:
Und zwar habe ich einen winzigen chat (( Sender + Empfänger )) Nun möchte ich meiner saits mit einem Button_Click bei meinem gegenüber ,
die Farbe der Textbox Ändern !
Dank für jede hilfe im foraus !
SENDER:
VB.NET-Quellcode
- Option Explicit On
- Imports System.IO
- Imports System.Net.Sockets
- Public Class Form1
- Dim client As TcpClient
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Try
- client = New TcpClient("127.0.0.1", 8000)
- Dim writer As New StreamWriter(client.GetStream())
- writer.Write(TextBox1.Text)
- writer.Flush()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- End Sub
- Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
- End Sub
- End Class
EMPFÄNGER:
VB.NET-Quellcode
- Option Explicit On
- Imports System.IO
- Imports System.Net.Sockets
- Public Class Form1
- Dim Listener As New TcpListener(8000)
- Dim Client As TcpClient
- Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Dim message As String
- Dim nStart As Integer
- Dim nLast As Integer
- If Listener.Pending = True Then
- message = ""
- Client = Listener.AcceptTcpClient()
- Dim reader As New StreamReader(Client.GetStream())
- While reader.Peek > -1
- message &= Convert.ToChar(reader.Read()).ToString
- End While
- If message.Contains("</>") Then
- nStart = InStr(message, "</>") + 4
- nLast = InStr(message, "<\>")
- message = Mid(message, nStart, nLast - nStart)
- End If
- Label1.Text = message
- End If
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Timer1.Start()
- Listener.Start()
- End Sub
- Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
- Listener.Stop()
- End Sub
- End Class