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:
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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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