την εφαρμογή Microsoft Visual Studio , κάντε κλικ στο " New Project" από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας και να επεκτείνουν " Visual Basic " κάτω " εγκατεστημένα πρότυπα . " Κάντε κλικ στο "Windows" και κάντε διπλό κλικ στο " Windows Forms Application " από το κέντρο του παραθύρου διαλόγου για να δημιουργήσετε ένα νέο έργο . 2
διπλό κλικ στο " πλαίσιο λίστας " για να προσθέσετε ένα νέο στοιχείο ελέγχου πλαισίου λίστας σε φόρμα σας . Κάντε διπλό κλικ στο " σύνθετο πλαίσιο " για να προσθέσετε ένα νέο σύνθετο πλαίσιο στη φόρμα σας .
Εικόνων 3
διπλό κλικ στη φόρμα για να δημιουργήσετε ένα συμβάν φόρτωσης της φόρμας και προσθέστε τον ακόλουθο κώδικα στο εσωτερικό της εκδήλωσης για να συμπληρώσετε η « ListBox " και το " σύνθετο πλαίσιο " με Φτηνές 4
Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα κάτω από την εκδήλωση του φορτίου για τη δημιουργία νέων διαδικασία ρουτίνας για να συμπληρώσετε το " πλαίσιο λίστας : "
Private Sub populateListBox ( )
Me.ListBox1 . Items.Clear ( )
Me.ListBox1.Items.Add ( " Αυτοκίνητο - Πολίτη " )
Me.ListBox1.Items.Add ( " Αυτοκίνητο - Lexus IS250 " )
Me.ListBox1.Items.Add ( " Truck - Tundra " )
Me.ListBox1.Items.Add ( " Truck - Silverado " )
Me.ListBox1.Items.Add ( " Μοτοσικλέτα - Kawasaki " )
Me.ListBox1.Items.Add ( " Μοτοσικλέτα - Ninja" )
Me.ListBox1.Items.Add ( " Μοτοσικλέτα - Susuki " )
Me.ListBox1.Items.Add ( " Truck - Lightning" )
Me.ListBox1.Items.Add ( " Truck - F150 " )
Sub End
Η 5
Επιστρέψτε στη φόρμα σας και κάντε διπλό κλικ στο " σύνθετο πλαίσιο " ελέγχου για να δημιουργήσετε ένα " SelectedIndexChanged " εκδήλωση . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο εσωτερικό της εκδήλωσης για να φιλτράρετε το " πλαίσιο λίστας : "
Αν Trim ( ComboBox1.Text ) = " ALL " Τότε
populateListBox ( )
Else
populateListBox ( )
Dim tmpLst Όπως πλαισίου λίστας = Νέο πλαίσιο λίστας
Dim s As Integer = 0
Για s = 0 Για να ListBox1.Items.Count - 1
Εάν InStr ( ListBox1.Items ( s ) ToString , ComboBox1.Text . ) Στη συνέχεια
tmpLst.Items.Add ( ListBox1.Items ( ες ) )
End If
Επόμενο
ListBox1.Items.Clear ( )
Για s = 0 Για να tmpLst.Items.Count - 1
ListBox1.Items . Προσθήκη ( tmpLst.Items ( ες ) . ToString )
Επόμενο
tmpLst.Dispose ( )
End If
Η
6 Πατήστε το πλήκτρο " F5 "για να εκτελέσετε το πρόγραμμα και να επιλέξετε ένα στοιχείο από το " σύνθετο πλαίσιο " ελέγχου για να φιλτράρετε τα στοιχεία στο " πλαίσιο λίστας ".
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα