Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να ελέγξετε αν μια Input Textbox Είναι Αριθμητικό σε Visual Basic

Μπορείτε να βελτιώσετε σημαντικά την απόδοση της εφαρμογή της Visual Basic σας δεν χρειάζεται να ελέγχει κάθε χαρακτήρα που εισάγει ο χρήστης . Στη VB , μπορείτε να χρησιμοποιήσετε τη λειτουργία " IsNumeric " για να καθοριστεί εάν τα δεδομένα που έχουν καταχωρηθεί είναι αριθμητικό . Αυτή η συνάρτηση επιστρέφει μια τιμή Boolean που υποδεικνύει εάν μια παράσταση μπορεί να υπολογιστεί σαν αριθμός . Μπορείτε να χρησιμοποιήσετε μια μεταβλητή String για να συλλάβει το κείμενο που εισάγει ο χρήστης και να χρησιμοποιήσετε τη λειτουργία " IsNumeric " για να ελέγξετε τη μεταβλητή . Οδηγίες
Η 1

την εφαρμογή Microsoft Visual Basic Express και κάντε κλικ στο " New Project" στο αριστερό τμήμα της οθόνης του υπολογιστή σας . Κάντε κλικ στο " Visual Basic " κάτω " Εγκατεστημένα πρότυπα , κάντε" κλικ " Windows Forms Application " και κάντε κλικ στο " OK " για να ξεκινήσει ένα νέο έργο . 2

Κάντε διπλό κλικ στο " Πλαίσιο κειμένου " ελέγχου στο "Toolbox « παράθυρο για να προσθέσετε ένα στη φόρμα σας . Προσθέστε ένα " κουμπί" , χρησιμοποιώντας την ίδια τεχνική
εικόνων 3

Κάντε διπλό κλικ στο κουμπί για να δημιουργήσετε ένα συμβάν κουμπί κλικ, και προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε δύο μεταβλητές : .

Dim numericCheck Όπως Boolean

Dim inputTxt Όπως String
Η

4 Πληκτρολογήστε τον ακόλουθο κώδικα για να πάρει την τιμή που έχει εισαχθεί στο πλαίσιο κειμένου και ελέγξτε αν είναι αριθμητικό , χρησιμοποιώντας τη λειτουργία " IsNumeric " :

inputTxt = Me.TextBox1.Text

numericCheck = IsNumeric ( inputTxt )
5

Προσθέστε τον ακόλουθο κώδικα χρησιμοποιώντας τη μεταβλητή Boolean και ας γνωρίζουμε ότι ο χρήστης , αν η αξία ήταν αριθμητικά :

Εάν numericCheck τότε

MsgBox ( " . Έχετε εισέλθει σε μια αριθμητική τιμή " )

υπόλοιπα

MsgBox ( " δεν έχετε εισάγει μια αριθμητική τιμή . " )

End If
Η

6 Πατήστε το πλήκτρο" F5 "για να εκτελέσετε τον κώδικα και κάντε κλικ στο" Button1 ".

Η

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα