[VB] Microsoft Script Control weigert *

[Verwijderd]

d

[ Voor 110% gewijzigd door Verwijderd op 12-02-2004 17:18 ]

[RocketKoen]

we doen dat niet zo:
Ik heb nog geen antwoord op mijn vraag

maar zo:
*schop*

[Verwijderd]

d

[ Voor 101% gewijzigd door Verwijderd op 12-02-2004 17:18 ]

[curry684]

Ik heb even [code=vb] tags toegevoegd hier en daar, wat de layout stukken goed doet Verder ben ik zelf geen held in VB, maar lijkt het je niet handig om erbij te posten hoe de functie 'SendChatMsg' gedefinieerd is?

[Verwijderd]

d

[ Voor 100% gewijzigd door Verwijderd op 12-02-2004 17:18 ]

[curry684]

Ik ben echt de draad kwijt.... wie roept er dan die event aan? Want het lijkt erop dat je gewoon parameters op runtime zit te bedenken?

[JohanDM]

Scripting kent enkel het Variant datatype en dat levert problemen bij het doorgeven van ByRef argumenten (=default in VB 6.0) aan VB code als die niet van het datatype Variant zijn.
Je kan de argumenten van SendChatMsg best ByVal maken zodat de Scripting Engine de Variant wel gaat casten naar het eigenlijke datatype, wat in scripting niet gebeurt bij ByRef parameters.
In jouw voorbeeld word dat dan:

Visual Basic:

Public Sub SendChatMsg(ByVal nSocket As Integer, ByVal sMsg As String)
' Jouw code ...
End Sub

Als je ByRef moet werken omdat je ook een waarde wil teruggeven naar de VBScript code dan moet je ze van het datatype Variant maken.

[Verwijderd]

d

[ Voor 99% gewijzigd door Verwijderd op 12-02-2004 17:18 ]

[DukeMan]

Probeer het volgende is:

Visual Basic:

Sub ChatMsgReceived(nSocket, sMsg)
    SendChatMsg(CInt(nSocket), "Ik ben er niet zoals je ziet!!")
End Sub
REM Typemismatch dus

Dan weet je zeker dat er een integer mee gegeven wordt.

[Verwijderd]

d

[ Voor 100% gewijzigd door Verwijderd op 12-02-2004 17:18 ]