Πώς να κάνει ένα Input Box σε Visual Basic

A Visual Basic InputBox παρέχει έναν τρόπο για τον κύριο του έργου να ζητήσει είσοδο από το χρήστη και η ανάθεση του αποτελέσματος σε μια μεταβλητή για χρήση και σε άλλα μέρη της αίτησης . Αντί για μια γραφική εικόνα , μια βασική λέξη κώδικα της Visual κάνει ένα αποτέλεσμα InputBox.The μιας μεταβλητής InputBox θα μπορούσε να γίνει μέρος μιας βάσης δεδομένων διευθύνσεων , ένα φύλλο κατανομής χρόνου ή άλλη εφαρμογή . Θα μπορούσαν να εμφανιστούν σε ανάδραση στο χρήστη , εάν η InputBox ζητά κάτι σαν « Ποιο είναι το όνομά σου», και , όταν ο χρήστης ανταποκρίνεται , ο υπολογιστής μπορεί να απαντήσει " Καλημέρα [ YourName ] . Πώς είσαι σήμερα ; " Η απάντηση παρέχεται από το χρήστη αντικαθιστά τη μεταβλητή που παρουσιάζεται εδώ σε παρένθεση . Οδηγίες
Η

1 Ανοίξτε ένα νέο έργο της Visual Basic , επιλέγοντας « Standard EXE » από τον κατάλογο των προτύπων που εμφανίζεται κατά την πρώτη φόρτωση Visual Basic . Στην επόμενη οθόνη , κάντε διπλό κλικ στο " ετικέτα " ελέγχου στην " εργαλειοθήκη " που βρίσκεται στο αριστερό μέρος της οθόνης . Αυτό θέτει ένα πλαίσιο " Label1 " στη φόρμα στο κέντρο της οθόνης . Χρησιμοποιήστε τα μικροσκοπικά κουτιά στα σύνορα αυτού του πλαισίου για να διευρύνει το πλαίσιο . 2

Κάντε κλικ σε αυτή τη νέα ετικέτα για να εμφανίσετε τις ιδιότητες του από τον πίνακα στα δεξιά . Κάντε διπλό κλικ στο " Λεζάντα " περιουσία για να επισημάνετε την προεπιλεγμένη λεζάντα , « Label1 . " Πιέστε το πλήκτρο " Delete " στο πληκτρολόγιό σας για να αφαιρέσετε τη λεζάντα .
Εικόνων 3

Κάντε διπλό κλικ στο " CommandButton , " ένα μικρό ορθογώνιο στο " Toolbox "για να προσθέσετε αυτό το έντυπο . Χρησιμοποιήστε τις ιδιότητες λίστα για να αλλάξετε την προεπιλεγμένη λεζάντα , " Command1 " στο " Εμφάνιση InputBox . " Κάντε διπλό κλικ στο κουμπί νέο όνομα για να ανοίξετε το παράθυρο κώδικα .
Η

4 Πληκτρολογήστε τον παρακάτω κώδικα μεταξύ των δύο γραμμές που υπάρχουν ήδη : " Private Sub Command1_Click ( ) " και " End Sub ".

Δημ. YourName , NoAnswer Όπως StringDim LocX , LocY Όπως IntegerLocX = 6500 « θέση της οθόνης σε twips . Υπάρχουν 1440 twips σε inchLocY = 4500 « Αλλάξτε τους αριθμούς για να ταιριάζει needsLabel1.Caption σας = " " ' αυτό σβήνει την λεζάντα κάθε φορά που το πρόγραμμα είναι runNoAnswer = " Δεν θα σας παρακαλώ να μου πεις το όνομά σου ; " YourName = InputBox ( " Ποιο είναι το όνομά σας ; " , " Δημιουργώντας ένα InputBox " , LocX , LocY ) «τα δύο κόμματα σε μια σειρά στην παραπάνω γραμμή είναι vitalIf YourName = " " ThenLabel1.Caption = NoAnswerElseLabel1.Caption = " Καλημέρα , " & YourName & " . Πώς είσαι σήμερα ; " End If
5

Press " F5 "για να εκτελέσετε το πρόγραμμα .
Η
εικόνων