Smalltalk Bereich

[Stardunk]

[OneWorld]

full wieso deinst was

[getsha]

[Impact]

GTA Real Life Teil 2 (Gronkh Let's Play) - YouTube

5:21
Ich lach mir so ein ab

@Wave so 5min noch ;D

[MC Phlegmatisch]

Nacht ihr Boons!

[Electro]

..

[Stardunk]

Was mach ich falsch, so dass https://u-img.net/img/2059Hx.png das hier raus kommt?

Imports KNLib
Public Class Form1
    Dim applet As Applet
    Dim WithEvents client As KSClient

    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        System.Environment.Exit(0)
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Control.CheckForIllegalCrossThreadCalls = False
        applet = New Applet
        client = New KSClient(applet)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim CSystem As New ChatSystem
        Select Case ComboBox1.Text
            Case "DE"
                CSystem = ChatSystem.DE
            Case "AT"
                CSystem = ChatSystem.AT
            Case "CH"
                CSystem = ChatSystem.CH
        End Select
        client.Connect(CSystem)
        client.Login(TextBox1.Text, TextBox2.Text, TextBox3.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        client.Disconnect()
    End Sub

    Private Sub TextBox4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
        If client.IsConnected = True Then
            If e.KeyCode = Keys.Enter Then
                e.SuppressKeyPress = True
                client.SendMessage(TextBox4.Text)
                TextBox4.Clear()
            End If
        Else
            MessageBox.Show("Sind wir eingeloggt?")
        End If
    End Sub
End Class
Private Sub client_OnUserListReceive(ByVal sender As Object, ByVal UserList As System.Collections.Generic.List(Of KNLib.User)) Handles client.OnUserListReceive
    ListView1.Items.Clear()
    For Each User As KNLib.User In UserList
        ListView1.Items.Add(User.Name)
    Next
End Sub

Private Sub client_OnChannelJoin(ByVal sender As Object, ByVal User As KNLib.User) Handles client.OnChannelJoin
    ListView1.Items.Add(User.Name)
End Sub

Private Sub client_OnChannelLeave(ByVal sender As Object, ByVal User As KNLib.User) Handles client.OnChannelLeave
    ListView1.FindItemWithText(User.Name).Remove()

Private Sub client_OnPublicMessage(ByVal sender As Object, ByVal Nick As String, ByVal Message As String) Handles client.OnPublicMessage
    RichTextBox1.AppendText(Nick & ": " & Message & vbLf)
End Sub

Private Sub client_OnPrivateMessage(ByVal sender As Object, ByVal fromNick As String, ByVal toNick As String, ByVal Message As String) Handles client.OnPrivateMessage
    RichTextBox1.AppendText(fromNick & " an " & toNick & ": " & Message & vbLf)
End Sub
Private Sub client_OnPing(ByVal sender As Object, ByVal Nick As String, ByVal Key As String) Handles client.OnPing
    MessageBox.Show("Ping erhalten von " & Nick)
End Sub
Private Sub client_OnPopup(ByVal sender As Object, ByVal Message As String, ByVal token() As String) Handles client.OnPopup
    MessageBox.Show(Message, "Popup")
End Sub

[OneWorld]

Dicken Kater !

[Stardunk]

Hast Urlaub oder?

[h00r4y]