VBScript - Menu - Fabrizio Fumagalli in internet con FABRIZIO-ONLINE.IT

Vai ai contenuti

Menu principale:

INFORMATICA > VBSCRIPT
VBScript - Menù
Lo script qui sotto, crea un menù da mostrare a video, ed in base alla scelta esegue la procedura associata. Verifica che venga inserito un numero e non una lettera, altrimenti ripresenta il menù.
Sicuramente lo script qui sotto può essere ottimizzato, semplificato,... però posso assicurarvi che questo è funzionate e perchè l'ho testato/usato personalmente.
'continuo a far inserire la scelta fino a quando non si tratta di un numero
    Valid = False
    While Valid = False
        Scelta = InputBox ("SCEGLI COSA FARE: (inserire numero)" & vbCrLf _
        & vbCrLf & "1 - scelta 1" _
        & vbCrLf & "2 - scelta 2" _
        , "MENU FUNZIONI", "")
        
       IfIsNumeric(Scelta) Then  'se viene inserito un numero 
              Valid = True
                    SelectCase scelta
                        Case1: Procedura1
                        Case2: Procedura2
                        CaseElse: MsgBox scelta & " non è una scelta valida"
                                   Valid = False    
                    EndSelect
           Else
               Valid = False
               MsgBox"Inserire un numero"
             
       EndIf
        
    Wend    


Sub Procedura1()
MsgBox"hai scelto la voce 1"
EndSub

Sub Procedura2()
MsgBox"hai scelto la voce 2"
EndSub

Per eseguire lo script basta semplicemente copiare il testo delle righe qui sopra (evidenziate in azzurro), incollarlo in un file (con Blocco note) e salvarlo con estensione .vbs , e poi doppio click
 


Cerca






Fabrizio Fumagalli è in internet su FABRIZIO-ONLINE.IT
Torna ai contenuti | Torna al menu