Bonjour,
J'ai une listview qui se génère comme cela :
J'ai mon code qui permet d'ouvrir un document texte et de sélectionner une ligne sur deux et d'afficher à partir du 16ème caractère le texte dans la colonne "Login/identifiant".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 ListView1.Columns.Add("Site de connexion", 107, HorizontalAlignment.Left) ListView1.Columns.Add("Login/identifiant", 177, HorizontalAlignment.Left) ListView1.Columns.Add("Mot de passe", 177, HorizontalAlignment.Left) ListView1.Columns.Add("Date d'ajout", 106, HorizontalAlignment.Left)
Comme il y a plusieurs lignes dans mon document texte, la ligne qui suit est copiée dans la colonne d'à côté. Ce que je voudrais c'est passer à la ligne en dessous lorsque la première case de "Login/identifiant" est remplie. J'ai essayé divers trucs mais ca ne donne rien, j'arrive pas à informer dans la boucle que quand une case est remplie, on passe à celle d'en dessous comme une listbox.
Voila mon code:
Merci à vous, si vous pouvez me dépanner
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Private Sub ChargerMAJToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChargerMAJToolStripMenuItem.Click OpenFileDialog1.AddExtension = True ' Ouvre les documents txt OpenFileDialog1.Filter = "(*.txt)|*.txt|Tous les fichiers (*.*)|*.*" 'If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then Dim monStreamReader As New StreamReader("D:\mdp.txt") 'Stream pour la lecture Dim ligne As String ' Variable contenant le texte de la ligne Dim listing As New ListViewItem Dim i As Integer = 0 ligne = monStreamReader.ReadLine() While Not ligne Is Nothing If i Mod 2 = 0 Then Dim login As String = ligne login = login.Substring(16) listing.SubItems.Add(login) End If ligne = monStreamReader.ReadLine() i = i + 1 End While ListView1.Items.Add(listing) monStreamReader.Close() End Sub![]()
Partager