JeanMarie64
Messages postés9Date d'inscriptionjeudi 27 septembre 2007StatutMembreDernière intervention10 octobre 2007
-
5 oct. 2007 à 10:38
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 2018
-
8 oct. 2007 à 12:11
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 ??
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 5 oct. 2007 à 20:09
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 : [infomsg.aspx Thèmes]
JeanMarie64
Messages postés9Date d'inscriptionjeudi 27 septembre 2007StatutMembreDernière intervention10 octobre 2007 8 oct. 2007 à 09:49
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