bonjour

j'ai tout d'abord fait un petit programme utilisant les fonctions de bases de vbscript/wsh ;
je nomme le fichier example.vbs et j'obtiens le résultat attendu en double-cliquant sur
ce fichier ou bien en tapant dans une fenêtre dos :
>cscript example.vbs
maintenant si je commence à utiliser des fonctions évoluées, j'ai systématiquement une erreur de compilation ; ainsi avec le fichier example.vbs suivant :
Private Sub Image1_Click()
   MsgBox "Clic simple sur l'image"
End Sub

Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox "Double-clic sur l'image"
End Sub

j'ai l'erreur example.vbs(5, 42) Erreur de compilation Microsoft VBScript: ')' attendu

faut-il quelque part faire référence à une dll ? signaler cette référence en début de fichier ??

merci d'avance

Jean-Marie

 Bonsoir,


Rien à déclarer.
Exemple en mode console:
cscript d:\test\example.vbs "ceci est un argument"


WScript.Echo "début du script"
Set objArgs = WScript.Arguments
MyVar = "Bonsoir!"
If objArgs.Count = 1 Then MyVar = objArgs(0)
Set objArgs = Nothing

Call Exemple1(MyVar)
Call Exemple2(InputBox("Exemple de variable","Title InputBox",Now))

Private Sub Exemple1(MyVar)
   WScript.Echo "Variable passée en argument" &vbCrLf& MyVar
   MsgBox MyVar,,"MsgBox"
End Sub

Private Sub Exemple2(ByVal Cancel)
   WScript.Echo "variable passée en inputbox" &vbCrLf& Cancel
   MsgBox Cancel,,"Msgbox"
End Sub
WScript.Echo "fin  du script"

Attention, pour les questions concernant vbs, choisir le thème
Vous êtes ici : Thèmes / Visual Basic 6 / Langages dérivés / VBScript

jean-marc

bonjour

merci pour l'info mais çà ne résoud pas mon pb concernant la ligne :
Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Erreur de compilation Microsoft VBScript: ')' attendu au caractère 42
je m'en vais poser la question dans le bon forum
Jean-Marie

 Bonjour,

As MSForms.ReturnBoolean => déclaration pour vb6.

Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

jean-marc