[VB] Problem

[DiePöse]

Guten Abend zusammen
Ich habe ein Problem in VB 10.
Ich bin gerade dabei einen Client zu erstellen und habe schon Boone gefragt, er hat mir zwar schon weiter geholfen jedoch sind weitere Probleme aufgetreten.
Ich sage sofort das ich noch nicht lange mit VB Arbeite.
Es werden mir 17 Fehler angezeigt aber ich finde keinen mehr, hoffe auf schnelle und gute Hilfe.



[HIDE=150]
Wenn Falsch gepostet bitte Verschieben )

Imports System
Imports System.Drawing
Imports System.Threading
Imports System.Windows.Forms
Imports System.Collections.Generic
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
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 mySystem As New ChatSystem

Select Case ComboBox1.Text

Case "Knuddels.de"

mySystem = ChatSystem.DE

Case "Knuddels.at"

mySystem = ChatSystem.AT

Case "Knuddels.ch"

mySystem = ChatSystem.CH

Case "Knuddels.com"

mySystem = ChatSystem.COM

Case "Mainfranken-Chat"

mySystem = ChatSystem.MFC

Case Else

mySystem = ChatSystem.DE

End Select


If TextBox5.Text = String.Empty And TextBox6.Text = String.Empty Then client.Connect(mySystem) Else client.Connect(mySystem, TextBox5.Text, TextBox6.Text)


client.Login(TextBox1.Text, TextBox2.Text, TextBox3.Text)
End Sub

Private Sub client_OnAction(ByVal sender As Object, ByVal Nick As String, ByVal Message As String) Handles client.OnAction
If Nick = String.Empty Then

RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
RichTextBox1.SelectionColor = Color.Blue
RichTextBox1.AppendText("-> " + Message + vbLf)
RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
RichTextBox1.SelectionColor = Color.Black
RichTextBox1.ScrollToCaret()

Else

RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
RichTextBox1.SelectionColor = Color.Black
RichTextBox1.AppendText(Nick + " ")
RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
RichTextBox1.SelectionColor = Color.Black
RichTextBox1.AppendText(Message + vbLf)
RichTextBox1.ScrollToCaret()


End If

End Sub

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).ForeColor = User.Color 'fügt user zur box hinzu


Next

End Sub

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

End Sub

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

End Sub

Private Sub client_OnPopuup(ByVal sender As Object, ByVal Message As String, ByVal token() As String) Handles client.OnPopup
MessageBox.Show(Message, "Popup-Melder meldet:")

End Sub

Private Sub client_onPublicMessage(ByVal sender As Object, ByVal Nick As String, ByVal Message As String) Handles client.OnPublicMessage

writeText(Nick, Message, Color.Black)

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.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
RichTextBox1.SelectionColor = Color.Red
RichTextBox1.AppendText(fromNick + " (privat an " + toNick + "): ")
RichTextBox1.SelectionColor = Color.Black
RichTextBox1.AppendText(Message + vbLf)
RichTextBox1.ScrollToCaret()

End Sub

Private Sub writeText(ByVal from As String, ByVal this As String, ByVal color As Color)
RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
RichTextBox1.SelectionColor = color.Black
RichTextBox1.AppendText(from + ": ")
RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
RichTextBox1.SelectionColor = color
RichTextBox1.AppendText(this + vbLf)
RichTextBox1.ScrollToCaret()

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("nicht eingeloggt?")

End If

End Sub

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

End Sub

End Class[/HIDE]

[Diebspiel]

"Es werden Fehler angezeigt" ist keine ausführliche Fehlerbeschreibung!

Ich vermute aber mal die Lib wurde nicht hinzugefügt zum Projekt.

[DiePöse]

ok Fehler soweit behoben aber nun habe ich noch 10 Fehler =/

[rVs14]

Sag sie doch.
Wir können doch nicht hellsehen

[DiePöse]

[HIDE=150] BILD ANZEIGEN [Warum wird das Bild nicht angezeigt?][/HIDE]

[rVs14]

Meiner Meinung nach KNLib nicht importtiert falls ich falsch liege -> Löschen

[DiePöse]

Ich bin Froh das ich das so gerade hin bekommen habe.
Könntest du oder jemand der gerade zeit hat mir über tv dabei kurz helfen oder hier eine genaue Erlärung verfassen ?

[Diebspiel]

Ich glaube, die falsche Lib hast du ausgewählt.

Er findet die Lib aber nicht das Event. Du musst die Version [2] nehmen, [1] hat keine...

[Rawr.]

Oben auf Projekt>Verweiß hinzufügen>Durchsuchen und dann die Libary suchen und mit OK bestätigen.

[Mardcore]

Du musst die gewünschten Events hinzufügen. Hast Du, soweit ich es sehe, nicht gemacht.

Beispiel in C#:

                c.OnPing += new KSClient.PingHandler(c_OnPing);
                c.OnPopup += new KSClient.PopupHandler(c_OnPopup);
                c.OnAction += new KSClient.ActionHandler(c_OnAction);
                c.OnChannelJoin += new KSClient.ChannelJoinHandler(c_OnChannelJoin);
                c.OnChannelLeave += new KSClient.ChannelLeaveHandler(c_OnChannelLeave);
                c.OnUserListReceive += new KSClient.UserListReceiveHandler(c_OnUserListReceive);
                c.OnPublicMessage += new KSClient.PublicMessageHandler(c_OnPublicMessage);
                c.OnPrivateMessage += new KSClient.PrivateMessageHandler(c_OnPrivateMessage);
                c.OnDisconnect += new KSClient.DisconnectHandler(c_OnDisconnect); 

/e: Warum ladest Du dir nicht erst mal ein Sample (von Diebspiel z. B.) und tastest dich etwas an die Materie ran?