Πώς μπορώ να χρησιμοποιήσω ένα σύνθετο πλαίσιο σε Visual Basic

; Ένα σύνθετο πλαίσιο ελέγχου παραλείπει την ανάγκη να υπάρχει ένα πλαίσιο κειμένου και ένα στοιχείο ελέγχου πλαισίου λίστας σε έργο της Visual Basic . Ένα σύνθετο πλαίσιο εμφανίζει ένα πλαίσιο κειμένου σε συνδυασμό με ένα στοιχείο ελέγχου πλαισίου λίστας , η οποία δίνει στο χρήστη τη δυνατότητα να εισαγάγετε ένα στοιχείο ή επιλέξτε ένα στοιχείο από τη λίστα . Η ιδιοκτησία των αντικειμένων Σας δίνει την ευελιξία να χειριστεί τα στοιχεία του ελέγχου σύνθετου πλαισίου . Χρησιμοποιήστε ένα σύνθετο πλαίσιο ελέγχου για να δώσει στο χρήστη μια λίστα των αντικειμένων για να διαλέξετε και στη συνέχεια χρησιμοποιήστε το επιλεγμένο στοιχείο για τη λήψη αποφάσεων σε άλλους τομείς του έργου σας . Οδηγίες
Η 1

την εφαρμογή Microsoft Visual Basic Express , κάντε κλικ στο " New Project ... " από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας και επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2

διπλό κλικ στο " σύνθετο πλαίσιο " από την " Toolbox" παράθυρο για να προσθέσετε ένα νέο στοιχείο ελέγχου σύνθετου πλαισίου στη Φόρμα . Κάντε διπλό κλικ στο " κουμπί" για να προσθέσετε ένα νέο κουμπί . Προσθέστε δύο κουμπιά χρησιμοποιώντας την ίδια τεχνική .
Εικόνων 3

διπλό κλικ στο " Button1 " για να ανοίξει το μάθημα « Form1.vb " . Πληκτρολογήστε το ακόλουθο κάτω από το " Button1_Click " για να προσθέσετε στοιχεία για σύνθετο πλαίσιο σας :

Me.ComboBox1.Items.Add ( " Στοιχείο δεδομένων " )

Me.ComboBox1.Items.Add ( " Data Στοιχείο » )

Me.ComboBox1.Items.Add ( " Στοιχείο δεδομένων " )

Me.ComboBox1.Items.Add ( " Στοιχείο δεδομένων " )

Me.ComboBox1 . Items.Add ( " Στοιχείο δεδομένων " )

Me.ComboBox1.Items.Add ( " Στοιχείο δεδομένων " )
Η

4 Κάντε κλικ στο " Form1.vb [ Μελέτη ] " και το διπλό κλικ στο " Button2 " για να προσθέσετε κώδικα στο συμβάν κλικ του . Πληκτρολογήστε τον ακόλουθο κώδικα για να διαγράψετε διπλότυπα στο σύνθετο πλαίσιο :

Dim xCnt As Integer

Dim yCnt As Integer

Για xCnt = 0 Για να Me.ComboBox1.Items . Count - 2

Για yCnt = Me.ComboBox1.Items.Count - 1 Για να xCnt + 1 Step -1

Αν Me.ComboBox1.Items ( xCnt ) ToString = Me.ComboBox1 . . Αντικείμενα ( yCnt ) . ToString συνέχεια

Me.ComboBox1.Items.RemoveAt ( yCnt )

End If

Επόμενη

Επόμενη

5

κάντε κλικ στο " Form1.vb [ Μελέτη ] » και κάντε διπλό κλικ στο " Button3 " για να προσθέσετε κώδικα στο συμβάν κλικ του . Πληκτρολογήστε τον ακόλουθο κώδικα για να καταργήσετε όλα τα στοιχεία από το σύνθετο πλαίσιο :

Me.ComboBox1.Items.Clear ( )
Η

6 Κάντε κλικ στο " Form1.vb [ Σχέδιο ] " και το διπλό κλικ στο σύνθετο πλαίσιο εκτελεί κώδικα όταν οι επιλεγμένες αλλαγές στοιχείο. Πληκτρολογήστε τον ακόλουθο κώδικα για να εμφανίσετε το επιλεγμένο στοιχείο μέσα από ένα πλαίσιο μηνύματος :

MsgBox ( " Επιλέξατε : " & Me.ComboBox1.Text.Trim )
Η

7 Πατήστε το πλήκτρο " F5 " να τρέξετε το πρόγραμμά σας και κάντε κλικ στο " Button1 " για να προσθέσετε στοιχεία για σύνθετο πλαίσιο σας . Κάντε κλικ στο " Button2 " για να αφαιρέσετε το διπλότυπο στοιχείο . Κάντε κλικ στο " Button3 " για να αφαιρέσετε όλα τα στοιχεία στο σύνθετο πλαίσιο .
Η
εικόνων