Ξεκινήστε το Microsoft Visual Basic Express , κάντε κλικ στο " New Project ... " στο αριστερό τμήμα της οθόνης σας και , στη συνέχεια, επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2
διπλό κλικ στο " Button1 " για να ανοίξει το μάθημα « Form1.vb " . Πληκτρολογήστε την ακόλουθη παραπάνω " End Class " για να φορτώσετε τα στοιχεία στο σύνθετο πλαίσιο, κατά τη διάρκεια της φόρτωσης Μορφή:
Private Sub Form1_Load ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές Υπο
εικόνων 3
Πληκτρολογήστε τα ακόλουθα στο " Button1_Click " για να αφαιρέσετε τα διπλότυπα όταν ο χρήστης κάνει κλικ " Button1 " :
Dim iCnt As Integer
Dim jCnt Όπως ακέραιος
Για iCnt = 0 Για να Me.ComboBox1.Items.Count - 2
Για jCnt = Me.ComboBox1.Items.Count - 1 Για να iCnt + 1 Step -1
Αν Me.ComboBox1.Items ( iCnt ) . ToString = Me.ComboBox1.Items ( jCnt ) . ToString συνέχεια
Me.ComboBox1.Items.RemoveAt ( jCnt )
End If
Επόμενη
Next
Η
4 Πατήστε το πλήκτρο " F5 " για να εκτελέσει το πρόγραμμα . Κάντε κλικ στο στοιχείο ελέγχου σύνθετου πλαισίου για να δείτε τα διπλότυπα στοιχεία . Κάντε κλικ στο " Button1 " για να αφαιρέσετε τα διπλότυπα στοιχεία .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα