|
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.
|
