[VB6] Strings in control vullen

[Verwijderd]

Hallo,

Ik ben bezig met een soort kloon van het programma mIrc. Hierin heb ik een control genaamd Irc1 met daarin oa deze code:

Visual Basic:

Public Sub SendMessage(sTo As String, sMessage As String)
    If sSocket.State = 7 Then
        sSocket.SendData "PRIVMSG " & sTo & " " & sMessage & vbCrLf
    End If
End Sub

Nu heb ik in mijn form een sub die hij uitvoert op het moment dat er tekst ontvangen word, dit werkt wel want ik kan de text wel uitlezen in een msgbox.
Dat doe ik dus met deze code:

Visual Basic:

Private Sub Irc1_ServerPrivmsg(sPrivmsg As String, sOrigin As String, sDestination As String)
    ' Text1.Text = Text1.Text & "From: " & sOrigin & " To: " & sDestination & " -- " & sPrivmsg & vbCrLf
     If sDestination = strChannel And sPrivmsg = "Hoi" Then
     Irc1.SendMessage(strChannel, "Bier")
     End If
End Sub

strChannel is gevuld met: #test
Zoals je ziet is het dus een soort van mIrc scripting functie met een simpele trigger: Hoi, hij hoord dan in het channel te zeggen: Bier
Maar dat laatste krijg ik dus niet aan het werk, ik krijg steeds een Compile error: Expected =, hierbij is het "Irc1.SendMessage(strChannel, "Bier")" rood weergegeven.
Weet iemand wat ik fout doe?
_{Sorry maar een passender topictitel kon ik niet verzinnen}

[ Voor 7% gewijzigd door Verwijderd op 02-12-2004 15:01 ]

[Verwijderd]

je hebt de verkeerde hobby genomen ??

[Verwijderd]

offtopic:
tsssk jij hier en jij kent mijn hobbies allang

[Verwijderd]

ik zou de haakjes bij Irc1.SendMessage(strChannel, "Bier") weglaten.

Dus: Irc1.SendMessage strChannel, "Bier"

[ThunderNet]

heb je strChannel wel gedeclareert?
als dit wel zou is, zou t naar mijn idee nog wel aan de IF kunnen liggen

ThunderNet heeft altijd problemen met een AND in de IF structuur

code:

Private Sub Irc1_ServerPrivmsg(sPrivmsg As String, sOrigin As String, sDestination As String)
    ' Text1.Text = Text1.Text & "From: " & sOrigin & " To: " & sDestination & " -- " & sPrivmsg & vbCrLf
     If sDestination = strChannel Then
        If sPrivmsg = "Hoi" Then
     Irc1.SendMessage(strChannel, "Bier")
        End if
     End If
End Sub

Probeer dan dit eens (IF in IF)

edit:
wat efitskie, dat is t bij inziens zeker.... aangezien je haakjes alleen om parameters moet doen als het een functie is, en niet als je een sub aanroept

[ Voor 30% gewijzigd door ThunderNet op 02-12-2004 14:52 ]

[Verwijderd]

Verwijderd schreef op donderdag 02 december 2004 @ 14:50:
ik zou de haakjes bij Irc1.SendMessage(strChannel, "Bier") weglaten.

Dus: Irc1.SendMessage strChannel, "Bier"

Lol heb t getest en werkt, zo simpel dat ik daar niet op kwam thnx!
had al wel vanalles geprobeert, ook al wel zonder haakjes maar denk dat ik toen er een = tussen heb gedrukt

[ Voor 71% gewijzigd door Verwijderd op 02-12-2004 14:53 ]

[sopsop]

Verwijderd schreef op donderdag 02 december 2004 @ 14:50:
ik zou de haakjes bij Irc1.SendMessage(strChannel, "Bier") weglaten.

Dus: Irc1.SendMessage strChannel, "Bier"

Ik vind wat dat betreft:

code:

call Irc1.SendMessage(strChannel, "Bier")

wat mooier.