Découvrir si une ListBox a des éléments dupliqués vous aideront à savoir comment exécuter le code approprié pour les éliminer. Souvent les programmeurs font l'erreur de remplissage de ListBox avec double des données de base de données. Il est préférable d' éliminer les doublons lorsque vous interrogez les données. En VB , vous pouvez utiliser la propriété Items du contrôle ListBox pour obtenir une liste des éléments actuellement stockés dans la zone de liste . Une fois que vous obtenez la référence qui vous dirige vers la liste, vous pouvez parcourir les éléments à rechercher des doublons . Choses que vous devez
Microsoft Visual Studio
Voir Plus Instructions
1

Lancement de Microsoft Visual Studio, cliquez sur " Nouveau Projet" dans le volet gauche de l'écran de votre ordinateur, et étendre " Modèles installés . " " Visual Basic " ci-dessous Cliquez sur " Windows" et double-cliquez sur "Application Windows Forms " du centre de la fenêtre de dialogue pour créer un nouveau projet.
2

Double -cliquez sur " ListBox " pour ajouter une nouvelle liste de contrôle de la boîte à votre formulaire. Double- cliquez sur "Button " pour ajouter un nouveau bouton à votre formulaire.
3

Double-cliquez sur le formulaire pour créer un événement de chargement du formulaire et ajoutez le code suivant pour ajouter quelques éléments y compris les doublons à votre ListBox Hôtels 4

Revenez à "Form" vue de conception et double -cliquez sur " Button1 " pour créer un événement de clic pour ce bouton. Ajoutez le code suivant pour afficher les doublons trouvés dans la fenêtre " immédiate" et afficher un message à l'utilisateur:

Me.ListBox1.Sorted = True

Me.ListBox1.Refresh () Photos

index As Integer

dupFound As Boolean

itemcount As Integer = Me.ListBox1.Items.Count

Si itemcount > 1 alors Photos

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

index = itemcount - 2 à 0 Step -1

Si Me.ListBox1.Items (index) = lastItem Puis

dupFound = = Me.ListBox1.Items (index)

End If

Suivant

End If

Si dupFound Puis

MessageBox.Show ( " Les doublons ont été trouvés dans ListBox. " )

Else

MessageBox.Show (" Aucun doublon trouvé." )

End If
5 < p> Appuyez sur " F5" pour exécuter le programme. Cliquez sur " Button1" pour effacer les doublons et affiche un message indiquant si les doublons ont été ou sont introuvables.