Πώς να Επισημάνετε έναν αριθμό σε ένα Πλαίσιο κειμένου με το Microsoft Visual Basic 2008

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

1 Ανοίξτε το Visual Basic 2008 και την Αρχική σελίδα , κάντε κλικ στο σύνδεσμο "Project " στα δεξιά του "Δημιουργία : " . Επιλογή 2

Αλλαγή του το όνομά προεπιλεγμένη εφαρμογή από το " WindowsApplication1 " σε " HighlightTextbox , " και στη συνέχεια κάντε διπλό κλικ στο εικονίδιο " Windows Forms Application " . Αυτό ανοίγει το παράθυρο της Visual Basic Design με μια νέα , κενή φόρμα των Windows .
Εικόνων 3

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

4 κάντε διπλό κλικ στο " πλαίσιο κειμένου " ελέγχου και το « κουμπί » ελέγχου για να προσθέσετε ένα πλαίσιο κειμένου και ένα κουμπί στη φόρμα σας . Τυλίγουμε το δρομέα από την εργαλειοθήκη και θα κλείσει αυτόματα . Τακτοποιήστε το πλαίσιο κειμένου και το κουμπί της φόρμας για μια ευχάριστη εμφάνιση .
5

Κάντε διπλό κλικ στο " Button1 " ελέγχου για να ανοίξετε το παράθυρο κώδικα . Visual Basic θα τοποθετήσετε το δρομέα μεταξύ της πρώτης και της τελευταίας γραμμές του χειρισμού συμβάντων κουμπί κλικ . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα , έτσι ώστε το τελικό προϊόν μοιάζει με αυτό :

Δημόσιας Τάξης Φόρμα1

Dim TextboxFlagHighlightBoolean Όπως Boolean = False

Private Sub Button1_Click ( ByVal αποστολέα Όπως συστήματος . Object , ByVal e Όπως

System.EventArgs ) Λαβές Button1.Click

Εάν TextBox1.Text > " " τότε

Εάν TextboxFlagHighlightBoolean τότε

TextBox1.ForeColor = Color.Black

TextBox1.Font = Νέα System.Drawing.Font ( " " , 8 , πώληση

Drawing.FontStyle.Regular )

TextboxFlagHighlightBoolean = False

Αλλιώς

TextBox1.ForeColor = Color.Red

TextBox1.Font = Νέα System.Drawing.Font ( " " , 8 , πώληση

Σχέδιο . FontStyle.Bold )

TextboxFlagHighlightBoolean = True

End If

Else

MessageBox.Show ( "Παρακαλώ εισάγετε έναν αριθμό στο πλαίσιο κειμένου " )

End If

End Sub

End Class

Αυτός ο κωδικός δηλώνει μια σημαία με το "Dim " δήλωση που αποθηκεύει την κατάσταση του ανάδειξη του TextBox . Αν είναι "False ", πατώντας το κουμπί αλλάζει το χρώμα του κειμένου του TextBox σε κόκκινο και αλλάζει τη γραμματοσειρά σε έντονη γραφή . Εάν η σημαία είναι "True " ένα κουμπί - κλικ αλλάζει το χρώμα του κειμένου πίσω σε μαύρο και τη γραμματοσειρά πάλι με το κανονικό .
Η

6 Κάντε κλικ στο " Εντοπισμός σφαλμάτων " μενού στο πάνω μέρος της οθόνης για να ελέγξετε την αίτησή σας . Όταν ανοίγει , πληκτρολογήστε έναν αριθμό στο πλαίσιο κειμένου και κάντε κλικ στο " Button1 . " Το υπόβαθρο θα πρέπει να αλλάξει σε κόκκινο . Κάντε κλικ στο κουμπί ξανά και το φόντο αλλάζει πίσω στο άσπρο .
Η
εικόνων