Verificare che la casella di testo contiene un numero :
Se IsNumeric ( Text1.Text ) Poi
La funzione IsNumeric determina se una stringa contiene un valore numerico . Questo è importante perché si cerca di convertire una stringa non numerica in un intero causerebbe un errore
2
Converti la proprietà Text del controllo TextBox in un numero intero : .
PIN = CDbl ( Text1 . Text ) per
la funzione CDbl converte un valore numerico a un numero decimale
3
impostare la variabile su un valore predefinito se la proprietà Text non è numerico : .
Else
PIN = 0
End If
Si può anche avvisare l'utente a questo punto che è stato immesso un valore non valido .
Programmazione © www.354353.com