Comment créer un menu déroulant pour script destiné à WinExplorer?
Bonjour à tous,
Je suis novice en programmation VbScript, j'ai tout de même réussi à aligner ces quelques lignes de code et ça fonctionne très bien.
J'ai écris le petit script ci-dessous pour WinExplorer, petit soft servant à communique avec les carte à puce de type SIM et TV.
L'extension du fichier est .xvb
Les formats supportés sont:
De simples scripts. Xpl,
VB Script. XVb,
Java Script. XJS,
Mon petit script ouvre simplement une boite de dialogue avec 4 boutons de choix et un bouton Exit.
Mais voilà ce que je recherche depuis quelques heures: :roll:
Je souhaite créer un menu déroulant de mes 4 choix, un bouton Ok et un bouton Exit.
Je ne trouve pas la commande et sa syntaxe pour réaliser un menu déroulant intégré au script, tout ce que je trouve utilise des fichiers externe de type xls ou txt!
Quelq'un sait me donner un coup de pouce?
Merci d'avance :ccool:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Sc.ClearOutputWindow
Sub Main()
Do
MenuChoice=Sc.ButtonBox("Quel est votre choix ?",vbDefaultButton1 + vbQuestion,"Explorer90", "Choix 1", "Choix 2", "Choix 3", "Choix 4", "Exit")
Select Case MenuChoice
Case 1: Choix1()
Case 2: Choix2()
Case 3: Choix3()
Case 4: Choix4()
End Select
Loop Until MenuChoice=5
End Sub
Function Choix1()
Sc.Print vbcrlf & "Vous avez choisi choix 1"
End Function
Function Choix2()
Sc.Print vbcrlf & "Vous avez choisi choix 2"
End Function
Function Choix3()
Sc.Print vbcrlf & "Vous avez choisi choix 3"
End Function
Function Choix4()
Sc.Print vbcrlf & "Vous avez choisi choix 4"
End Function |