Appel d'une procédure dans une DLL activex VB depuis un VBScript avec des paramèRésolu

Question

Bonjour,

L'appel d'une procédure dans une DLL activex VB depuis un VBScript avec des paramètres ByRef ne semble pas fonctionner!

J'ai un message Type Mismatch : Test lorsque je lance mon vbscript.

Voici la fonction :
Public Function Test( _
ByVal insId As String, _
ByRef outsBarCode As String) As Boolean

MsgBox insIdentification
outsBarCode = "CD0001"
End Function

Si je remplace le ByRef par un ByVal je n'ai plus de message d'erreur mais je souhaite laisser le ByRef...

Voici mon script:

Option Explicit
Dim oMyObject
Dim insPhase
Dim outsBarCode
Dim bResult

Set oMyObject = CreateObject("MYDLL.ClaTest")

insPhase = "Phase de test"
outsBarCode = ""
bResult = oMyObject.Test (insPhase, outsBarCode)

MsgBox outsBarCode
Set oDspy = Nothing

Merci pour votre aide 
 8-)

Renfield · Accepted Answer

Ne mets pas de type dans ta Dll..... ils passeront en Variant et ca devrai aller...

bien vu le outsBarCode = "" pour forcer VBS a le considerer comme un String ;-)

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

vherrero · Answer

Merci beaucoup pour la réponse rapide!

Je vais faire des tests maintenant avec des paramètres objet.

A+ :big) 
 8-)

Appel d'une procédure dans une DLL activex VB depuis un VBScript avec des paramè

2 réponses

Discussions similaires