Visual Basic Forum

Elrohir_ · Tutorial Leser Anmeldedatum: 10.09.2007 Beiträge: 59

So, ich habe jetzt in dem anfangsfenster dringeschrieben

[vb:1:6ff2c8150f]Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim newForm As New frm_Window
newForm.Show
newForm.Winsock(FindFreeIndex).Accept requestID
End Sub[/vb:1:6ff2c8150f]
Nunja, jetzt sagt er mir aber immer als Fehler:
Laufzeitfehler '340':
Element 1 des Steuerelementfelds existiert nicht

Nunja, jetzt frage ich mich aber doch, wo genau das Problem liegt, weil ich in der form "frm_Window" auch ein Winsock-Element namens Winsock eingebaut habe
_________________

The-God-of-all_ · Verfasst am: 21.09.2007, 22:54

Ich habe mal ein Beispiel Programmiert, das kannst du hier Downloaden (Source ist dabei). Du machst einen Denkfehler: Es wird mit jedem neuen Chat Fenster ein neuer Winsock geöffnet, deshalb brauchst du gar kein Winsock Array. Du brauchst die Funktion FindFreeIndex dafür garnicht.

Elrohir_ · Tutorial Leser Anmeldedatum: 10.09.2007 Beiträge: 59

entschuldige, dass ich mir mit dieser Antwort so viel Zeit lies, doch ich bin gerade erst aus dem Urlaub zurückgekehrt (4 Tage am Meer).

Vielen Dank für den Beispielcode. Dank deiner Hilfe ist es mir gelungen Smile

EDIT:
Hm, nunja, zumindest ist es mir gelungen, einiges davon umzusetzen..
jedoch sagt er mir bei der Zeile

[vb:1:f60f05af73]Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Dim NewChatFenster As New frm_Window
NewChatFenster.Accept requestID, nick
NewChatFenster.Show
End Sub[/vb:1:f60f05af73]

das eine Methode oder MItgliedsdate nicht gefunden wurde...

EDIT2: ok, ist mir letztendlich doch noch gelungen. Nochmals danke für deine Hilfe Smile

_________________