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
Partager