1 Κάντε δεξί κλικ στο στοιχείο ελέγχου πλαισίου κειμένου που θέλετε να ελέγξετε και επιλέξτε Ιδιότητες . Κάντε κλικ στο εικονίδιο Events , η οποία μοιάζει με ένα κεραυνό . Μετακινηθείτε προς τα κάτω για την εκδήλωση KeyDown και κάντε διπλό κλικ δίπλα του για να δημιουργήσει το συμβάν 2
Προσθέστε την παρακάτω καθολική μεταβλητή στην περιοχή δηλώσεις κάτω από Δημόσια Τάξη Dim notANumber Όπως Boolean Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα μέσα στο KeyDown συμβάν για ελέγχου του πλαισίου κειμένου : notANumber = False Αν e.KeyCode Αν e.KeyCode Αν 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 Τύπου " F5 " για να τρέξετε το πρόγραμμά σας . Πλαίσιο κειμένου σας θα δέχεται μόνο αριθμούς .
εικόνων 3
Η
5
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα