données dans des fichiers est communément pas unique , de sorte que les programmeurs ont besoin de savoir comment faire pour supprimer rapidement des valeurs répétées avant de les ajouter à un contrôle ListBox . La meilleure façon de le faire est de lire les données du fichier dans un tableau de chaînes . En VB, vous pouvez utiliser la méthode «distinct» qui renvoie une séquence désordonnée qui ne contient pas de doublons . Enregistrer les valeurs distinctes à un nouveau tableau de chaînes et d'utiliser cette matrice comme la source de données du contrôle ListBox . Instructions
1

Cliquez sur le bouton "Démarrer " , cliquez sur la zone de texte qui dit que «les programmes de recherche et de fichiers ," type " bloc-notes " et appuyez sur "Entrée " pour lancer le Bloc-notes . Tapez " 1" et appuyez sur "Entrée " , le type "1" et appuyez sur "Entrée " , le type "2" et appuyez sur "Entrée " , le type "2" à nouveau et appuyez sur " Entrée". Ajouter "3" et "4 " en utilisant la même technique. Enregistrez le fichier dans un dossier sur votre ordinateur en tant que " myValues.txt . "
2

Lancement de Microsoft Visual Basic Express et cliquez sur "Nouveau projet" dans le volet gauche de l'écran de votre ordinateur. Cliquez Templates " Visual Basic " ci-dessous installé, cliquez sur "Application Windows Forms ", puis cliquez sur "OK ​​" pour démarrer un nouveau projet.
3

Double- cliquez sur le contrôle " ListBox " sur l' volet «boîte à outils » pour ajouter un à votre formulaire. Ajouter un "Button" en utilisant la même technique.
4

Double -cliquez sur le bouton pour créer un événement de clic de bouton. Ajoutez le code suivant pour créer vos variables :

fName Dim As String

Dim valueArray (10) As String

Dim uniqueArray (10) As String
< p > xCntr As Integer
5

Définir le chemin de votre fichier texte:

fName = " C: \\ myValues.txt "
6

boucle les données dans le fichier texte et l'enregistrer dans un tableau de chaînes :

Si System.IO.File.Exists ( fName ) = True Then

objReader As New System.IO.StreamReader ( fName )

Do While objReader.Peek () < > -1

valueArray ( xCntr ) = objReader.ReadLine

xCntr + = 1
< p > Boucle

Else

MsgBox ( "Le fichier n'existe pas " )

End If
7

sauvegarder les données d'un tableau de chaînes à un autre tableau de chaînes avec des valeurs uniques :

uniqueArray = valueArray.Distinct.ToArray
8

Utilisez le tableau de chaînes avec des valeurs uniques comme source de données pour le contrôle listbox :

Me.ListBox1.DataSource = uniqueArray
9

Appuyez sur " F5" pour exécuter le programme et cliquez sur " Button1 ".