Πώς να μετατρέψετε ένα Textbox Ακίνητα σε δεκαδικό

Visual Basic 6 είναι μια γραφική γλώσσα προγραμματισμού για τα Windows . Μία κοινή χρήση για VB6 είναι να δημιουργήσει ένα περιβάλλον εισαγωγής δεδομένων για μια βάση δεδομένων ή άλλο πρόγραμμα . Μια τέτοια διασύνδεση πρέπει να λαμβάνει τα δεδομένα που εισάγει ο χρήστης και να το μετατρέψει σε μια μορφή που το υποκείμενο λογισμικό μπορεί να χρησιμοποιήσει . Ένα από τα πιο κοινά παραδείγματα αυτό παίρνει το κείμενο που εισάγει ο χρήστης σε ένα στοιχείο ελέγχου πλαισίου κειμένου και να το μετατρέψει σε μια αριθμητική τιμή . Οδηγίες
Η

1 Ελέγξτε ότι το TextBox περιέχει έναν αριθμό :

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

Η IsNumeric η λειτουργία καθορίζει εάν ένα string περιέχει μια αριθμητική τιμή . Αυτό είναι σημαντικό , διότι προσπαθεί να μετατρέψει ένα μη αριθμητικό string σε ακέραιο αριθμό θα μπορούσε να προκαλέσει ένα σφάλμα 2

Μετατροπή ιδιότητα Text του TextBox για έναν ακέραιο αριθμό : .

PIN = CDbl ( Text1 . κειμένου)

η λειτουργία CDbl μετατρέπει μια αριθμητική τιμή σε δεκαδικό αριθμό εικόνων
3

Ορίστε τη μεταβλητή σε μια προκαθορισμένη τιμή , εάν το ακίνητο κείμενο δεν είναι αριθμητική : .

Else

PIN = 0

End If

Μπορείτε επίσης να ειδοποιεί τον χρήστη σε αυτό το σημείο ότι μια έγκυρη τιμή είχε εγγραφεί.


εικόνων