INFORMATICA > VBSCRIPT
MENU'
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", "")
If IsNumeric(Scelta) Then 'se viene inserito un numero
Valid = True
Select Case scelta
Case 1: Procedura1
Case 2: Procedura2
Case Else: MsgBox scelta & " non è una scelta valida"
Valid = False
End Select
Else
Valid = False
MsgBox "Inserire un numero"
End If
Wend
Sub Procedura1()
MsgBox "hai scelto la voce 1"
End Sub
Sub Procedura2()
MsgBox "hai scelto la voce 2"
End Sub
Valid = False
While Valid = False
Scelta = InputBox ("SCEGLI COSA FARE: (inserire numero)" & vbCrLf _
& vbCrLf & "1 - scelta 1" _
& vbCrLf & "2 - scelta 2" _
, "MENU FUNZIONI", "")
If IsNumeric(Scelta) Then 'se viene inserito un numero
Valid = True
Select Case scelta
Case 1: Procedura1
Case 2: Procedura2
Case Else: MsgBox scelta & " non è una scelta valida"
Valid = False
End Select
Else
Valid = False
MsgBox "Inserire un numero"
End If
Wend
Sub Procedura1()
MsgBox "hai scelto la voce 1"
End Sub
Sub Procedura2()
MsgBox "hai scelto la voce 2"
End Sub
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
Se hai trovato utili questi appunti...