Smalltalk Bereich

[Electro]

hey

[Devon]

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

Alles importiert und dementsprechend deklariert? Also KNLib, Applet etc...?

[Electro]

/f 3lectronica

Neuer Nick ok?

[Bossgen]

Peace.

[Valorax]

Morgen.

[endorphinjunky]

Gutn Morgen

[Impact]

Morgen

[endorphinjunky]

Was macht'er so ? xD

[h00r4y]

Am Pimmel spielen.

[Impact]

fapp fapp fapp ;D


BILD ANZEIGEN [Warum wird das Bild nicht angezeigt?] ^Selfmade (im sinne von paint eingefügt und ausgeschitten xd)