Πώς να αναζητήσετε ένα πλαίσιο λίστας στη Visual Basic

Το γλώσσας προγραμματισμού Visual Basic της Microsoft έχει μια ισχυρή εργαλειοθήκη για τη δημιουργία εφαρμογών μορφή των Windows στη σύντομη διαταγή και με σχετική ευκολία . Το στοιχείο ελέγχου πλαισίου λίστας είναι ένα από αυτά τα εργαλεία? Χρησιμοποιήσετε για να δώσετε στους χρήστες σας μια σειρά από επιλογές για να επιλέξετε από . Είναι ακόμη δυνατό να επιτρέψει στο χρήστη να προσθέσει ή να διαγράψει από τα περιεχόμενα ενός πλαισίου λίστας , και για να το κάνουμε αυτό , θα πρέπει να είστε σε θέση να κάνετε αναζήτηση στο πλαίσιο λίστας για να αναλάβει δράση σχετικά με το κατάλληλο στοιχείο . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Έναρξη", " Όλα τα προγράμματα " και επιλέξτε το Microsoft Visual Studio ή Visual Basic Express εφαρμογή , ανάλογα με το ποια έχετε εγκαταστήσει . 2

Κάντε κλικ στο σύνδεσμο " New Project" στη σελίδα Visual Studio Έναρξη, επιλέξτε " Windows Forms Application " και κάντε κλικ στο "OK". Αυτό ανοίγει μια νέα κενή φόρμα στο παράθυρο σχεδίασης.
Εικόνων 3

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

4 Κάντε κλικ στο πλαίσιο λίστας στη φόρμα. Μετακινηθείτε προς τα κάτω στο " Αντικείμενα " ιδιοκτησίας στα παράθυρα Properties στο κάτω αριστερό μέρος της οθόνης σας . Κάντε κλικ στο πλαίσιο αποσιωπητικά για να ανοίξει ένα παράθυρο για την εισαγωγή στοιχείων . Πληκτρολογήστε πολλά στοιχεία στη λίστα , πατώντας το πλήκτρο " Enter" μετά από κάθε στοιχείο για να τα τοποθετήσετε σε ξεχωριστές γραμμές .
5

Κάντε διπλό κλικ στο κουμπί για να ανοίξετε το παράθυρο VB κώδικα . Ο δρομέας εμφανίζεται μεταξύ των γραμμών που μοιάζουν με αυτό :

Private Sub Button1_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs )

Λαβές Button1.Click

End Sub

Τοποθετήστε τον ακόλουθο κώδικα μεταξύ των παραπάνω γραμμές για να αναζητήσετε τη λίστα για ένα αντίγραφο του ό, τι ο χρήστης εισάγει στο πεδίο κειμένου :

'

το σχόλιο - ο κωδικός αυτός αναζητά το πλαίσιο λίστας για ένα αντίγραφο του τι ο χρήστης πληκτρολογήσει

» στο πλαίσιο κειμένου

«

Dim ListItemCounter Όπως Integer

Αν TextBox1.Text > Τίποτα τότε

Κάντε Μέχρι ListItemCounter = ListBox1.Items.Count ( )

Εάν TextBox1.Text.ToUpper = ( ListBox1.Items ( ListItemCounter ) ) . ToUpper ( ) Στη συνέχεια

MessageBox.Show ( " Αντίγραφο σημείο βρέθηκε" )

Επιστροφή

Else

ListItemCounter + = 1

End If

Loop

MessageBox.Show ( "Το στοιχείο που δώσατε δεν είναι στη λίστα " )

End If

Ο κωδικός αυτός αναζητά μέσα από τα αντικείμενα στο πλαίσιο λίστας για το στοιχείο που εισήχθη στο πλαίσιο κειμένου . Σημειώστε το συνημμένο μέθοδο " ToUpper " , έτσι ώστε η σύγκριση εξαλείφει περίπτωση ως ένα πιθανό πρόβλημα . Εάν το στοιχείο βρίσκεται , ένα κατάλληλο μήνυμα εκδίδεται ? Εάν το στοιχείο δεν έχει βρεθεί, ένα "δεν βρέθηκε " μήνυμα εκδίδεται
Η

6 Κάντε κλικ στο " Debug " μενού στο πάνω μέρος του . οθόνη και κάντε κλικ στο "Start debugging " σύνδεσμο . Αυτό ανοίγει την αίτησή σας σε δοκιμαστική λειτουργία . Εισάγετε ένα στοιχείο που είναι στη λίστα στο πλαίσιο κειμένου και κάντε κλικ στο κουμπί . Θα πρέπει να δείτε το μήνυμα " διπλότυπο στοιχείο " . Εισάγετε ένα στοιχείο στο πλαίσιο κειμένου που δεν είναι στη λίστα και κάντε κλικ στο κουμπί . Τώρα θα πρέπει να δείτε το μήνυμα "στοιχείο δεν βρέθηκε" .
Η
εικόνων