Πώς μπορείτε να διαπιστώσετε Αν ένα πλαίσιο λίστας έχει Αντίγραφα

Μάθετε αν ένα πλαίσιο λίστας έχει διπλότυπα στοιχεία θα σας βοηθήσει να ξέρετε πώς να εκτελέσει τον κατάλληλο κωδικό για την άρση τους . Συχνά οι προγραμματιστές κάνουν το λάθος να τη συμπλήρωση ενός πλαισίου λίστας με τα διπλότυπα δεδομένα από τη βάση δεδομένων . Είναι καλύτερο να εξαλειφθούν τα διπλότυπα όταν πραγματοποιείτε ερώτημα για τα δεδομένα . Στη VB , μπορείτε να χρησιμοποιήσετε την ιδιότητα αντικείμενα του ελέγχου πλαισίου λίστας για να πάρετε μια λίστα με τα στοιχεία που είναι αποθηκευμένα στο πλαίσιο λίστας . Μόλις πάρετε την αναφορά που σας κατευθύνει στη λίστα , μπορείτε να βρόχο μέσα από τα αντικείμενα για να βρείτε αντίγραφα . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

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

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

διπλό κλικ φόρμα σας για να δημιουργήσετε ένα συμβάν φόρτωσης της φόρμας και προσθέστε τον παρακάτω κώδικα για να προσθέσετε κάποια στοιχεία, συμπεριλαμβανομένων διπλότυπα στο πλαίσιο λίστας σας Φτηνές 4

Μετάβαση πίσω, στην " Form" προβολή σχεδίασης και κάντε διπλό κλικ στο " Button1 " για να δημιουργήσετε ένα συμβάν click για αυτό το κουμπί . Προσθέστε τον ακόλουθο κώδικα για να εμφανίσετε όλες τις διπλές αντικείμενα που βρέθηκαν μέσα στο « Άμεση Window " και θα εμφανιστεί ένα μήνυμα στο χρήστη :

Me.ListBox1.Sorted = True

Me.ListBox1.Refresh ( )

Dim δείκτη As Integer

Dim dupFound Όπως Boolean

itemcount Dim As Integer = Me.ListBox1.Items.Count

Αν itemcount > 1 τότε

Dim lastitem As String = Me.ListBox1.Items ( itemcount - 1 )

Για index = itemcount - 2 0 Σε Step -1

Αν Me.ListBox1.Items ( index ) = lastitem τότε

dupFound = = Me.ListBox1.Items ( index )

End If

Επόμενο

End If

Εάν dupFound Τότε

MessageBox.Show ( " αντίγραφα βρέθηκαν στο πλαίσιο λίστας . " )

υπόλοιπα

MessageBox.Show ( " Δεν βρέθηκαν διπλότυπα . " )

End If
5

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