Πώς να Αφήστε ένα πλαίσιο κειμένου για να δέχεται μόνο αριθμούς στο Microsoft Visual Basic

Ως προγραμματιστής , θα πρέπει συχνά να περιορίσετε τους τύπους των χαρακτήρων που ένας χρήστης μπορεί να εισέλθει σε ένα στοιχείο ελέγχου πλαισίου κειμένου . Στη Visual Basic μπορείτε εύκολα να ελέγξετε τα χαρακτήρων, ο χρήστης εισέρχεται χρησιμοποιώντας το KeyDown και KeyPress γεγονότα του ελέγχου του πλαισίου κειμένου . Οι εκδηλώσεις αυτές θα εκτελείται όταν ο χρήστης πιέζει ένα πλήκτρο στο πληκτρολόγιο , που σας δίνει τη δυνατότητα να δεχθούν μόνο οι αριθμοί που πρέπει να εγγραφούν . Οδηγίες
Η

1 Κάντε δεξί κλικ στο στοιχείο ελέγχου πλαισίου κειμένου που θέλετε να ελέγξετε και επιλέξτε Ιδιότητες . Κάντε κλικ στο εικονίδιο Events , η οποία μοιάζει με ένα κεραυνό . Μετακινηθείτε προς τα κάτω για την εκδήλωση KeyDown και κάντε διπλό κλικ δίπλα του για να δημιουργήσει το συμβάν 2

Προσθέστε την παρακάτω καθολική μεταβλητή στην περιοχή δηλώσεις κάτω από Δημόσια Τάξη : .
< P > Dim notANumber Όπως Boolean
εικόνων 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα μέσα στο KeyDown συμβάν για ελέγχου του πλαισίου κειμένου :

notANumber = False

Αν e.KeyCode < Keys.D0 orelse e.KeyCode > Keys.D9 τότε

Αν e.KeyCode < Keys.NumPad0 orelse e.KeyCode > Keys.NumPad9 τότε

Αν e.KeyCode < > Keys.Back τότε

notANumber = True

End If

End If

End If

Αν Control.ModifierKeys = Keys.Shift τότε

notANumber = True

End If
Η

4 Κάντε κλικ στο Εκδηλώσεις αναπτυσσόμενο πλαίσιο και επιλέξτε KeyPress να δημιουργήσετε την εκδήλωση διαδικασία . Αντιγράψτε τον παρακάτω κώδικα μέσα σε αυτήν τη διαδικασία συμβάντος :

Εάν notANumber = True Τότε

e.Handled = True

End If
5

Τύπου " F5 " για να τρέξετε το πρόγραμμά σας . Πλαίσιο κειμένου σας θα δέχεται μόνο αριθμούς .
Η
εικόνων