Πώς να Περιορίστε ένα κουτί κειμένου σε αριθμούς μόνο σε Visual Basic 6.0

κουτιά κειμένου χρησιμοποιούνται κατά κύριο λόγο για να λάβει στοιχεία από τους χρήστες , ή για να εμφανιστεί το κείμενο , είτε προ-προγραμματισμένες ή από μια πηγή δεδομένων . Στη Visual Basic 6.0 , το " Πλαίσιο κειμένου " ελέγχου χρησιμοποιείται για να σχεδιάσετε ένα πλαίσιο κειμένου σε μια φόρμα των Windows . Ιδιότητες του στοιχείου ελέγχου μπορεί να ρυθμιστεί ανάλογα με τις απαιτήσεις των χρηστών . Για παράδειγμα , μπορείτε να ορίσετε ένα πλαίσιο κειμένου μόνο για ανάγνωση ή να το επεξεργαστεί , με διαφορετικό χρώμα φόντου , ή με μπάρες κύλισης . Είναι επίσης δυνατόν να περιορίσει το είδος της εισαγωγής κειμένου μπορεί να δεχθεί . Μάθετε πώς να δημιουργήσετε ένα πρόγραμμα σε Visual Basic 6.0 που περιορίζει την είσοδο πλαίσιο κειμένου μόνο αριθμούς . Οδηγίες
Η

1 Τοποθετήστε το Visual Basic 6.0 περιβάλλοντος κάνοντας κλικ στο εικονίδιο συντόμευσης του προγράμματος από την επιφάνεια εργασίας ή επιλέγοντας " Microsoft Visual Basic 6.0 " από το μενού " Έναρξη " στον υπολογιστή σας .

2

Επιλέξτε "Standard EXE " από το παράθυρο διαλόγου " New Project" , στη συνέχεια, κάντε κλικ στο κουμπί "Άνοιγμα" .
εικόνων 3

Προσθέστε ένα πλαίσιο κειμένου στη φόρμα πατώντας το κουμπί " TextBox " έλεγχος από την " Toolbox ", στη συνέχεια, τραβώντας το επιθυμητό μέγεθος του πλαισίου κειμένου . Βεβαιωθείτε ότι είναι αρκετά μεγάλη για να κρατήσει την εισαγωγή χαρακτήρων από το χρήστη .
Η 4

Καταργήστε την λεζάντα κείμενο διαγράφοντας τη λέξη « Text1 " δίπλα στο "Text " περιουσία στο "Ιδιότητες" παράθυρο στα δεξιά πλευρά της οθόνης .
5

κάντε διπλό κλικ στο στοιχείο ελέγχου πλαισίου κειμένου για να εμφανιστεί το παράθυρο "κώδικας " . Αυτό είναι όπου θα γράψετε τις οδηγίες ή πηγαίου κώδικα που το πρόγραμμα θα εκτελεστεί κατά το χρόνο εκτέλεσης . Ο πηγαίος κώδικας θα έχετε την ευκαιρία να γράψει θα επικυρώσει την είσοδο του χρήστη και δέχεται μόνο αριθμητικούς χαρακτήρες , αλλιώς θα εμφανίσει ένα μήνυμα σφάλματος
Η 6

Εισάγετε τον παρακάτω κωδικό στο πλαίσιο του « Text1_Change " εκδήλωση : .

Αν όχι IsNumeric ( Text1.Text ) Στη συνέχεια

MsgBox " Αριθμητική είσοδος μόνο ! " , vbCritical , " Invalid Input "

Text1.Text = " "

End If

7

Πατήστε F5 ή επιλέξτε " Run " και στη συνέχεια " Start" από το μενού για να μεταβείτε σε runtime -mode .
8

ελέγξτε το πρόγραμμα για να ελέγξετε ότι είναι λειτουργεί όπως θα έπρεπε . Πληκτρολογήστε αλφαριθμητικών χαρακτήρων ή συνδυασμό γραμμάτων και αριθμών στο πλαίσιο κειμένου . Θα πρέπει να δείτε ένα μήνυμα σφάλματος που σας ενημερώνει η είσοδος είναι άκυρη . Τώρα , πληκτρολογήστε μόνο αριθμούς στο πλαίσιο κειμένου . Εάν δεν εμφανιστεί μήνυμα λάθους σκάει επάνω , το πρόγραμμα λειτουργεί σωστά .
Η 9

Αποθηκεύστε το πρόγραμμα επιλέγοντας " Save Project " από το μενού "Αρχείο" . Δώστε ένα όνομα στο χώρο που προβλέπεται , στη συνέχεια, κάντε κλικ στο κουμπί "Αποθήκευση".
Η
εικόνων