OVH Cloud OVH Cloud

ListView

3 réponses
Avatar
DIP
Bonjour,
Je cherche à écrire dans 2 colonnes des données. Malheureusement je n'arrive
pas à affiche les données dans la 2ème colonnes.Pourriez-vous svp m'aider à
résoudre ce problème.

ListView.View = View.Details
ListView.Columns.Add("Utilisateurs", 100, HorizontalAlignment.Left)
ListView.Columns.Add("Password", 100, HorizontalAlignment.Left)

For Each user In alluser
x = user.userName ' as string
y = user.password ' as string
ListBox.Items().Add(x.ToString & " " & y.ToString)
LVI.Text = x.ToString
LVI.SubItems.Add((y).ToString).Text = y.ToString '(ceci ne
fonctionne pas)
ListView.Items.Add(LVI.Text)
i = i + 1
Next
Merci d'avance pour votre aide
Salutations
DIP

3 réponses

Avatar
Jacques93
Bonjour DIP,
DIP a écrit :
Bonjour,
Je cherche à écrire dans 2 colonnes des données. Malheureusement je n'arrive
pas à affiche les données dans la 2ème colonnes.Pourriez-vous svp m'aider à
résoudre ce problème.

ListView.View = View.Details
ListView.Columns.Add("Utilisateurs", 100, HorizontalAlignment.Left)
ListView.Columns.Add("Password", 100, HorizontalAlignment.Left)

For Each user In alluser
x = user.userName ' as string
y = user.password ' as string
ListBox.Items().Add(x.ToString & " " & y.ToString)
LVI.Text = x.ToString
LVI.SubItems.Add((y).ToString).Text = y.ToString '(ceci ne
fonctionne pas)
ListView.Items.Add(LVI.Text)
i = i + 1
Next
Merci d'avance pour votre aide
Salutations
DIP



Si ListView est le nom de ton Listview (ce qui est à éviter, remplacé
ici par lvwUser):

Dim LVI As ListViewItem

lvwUser.View = View.Details
lvwUser.Columns.Add("Utilisateurs", 100, HorizontalAlignment.Left)
lvwUser.Columns.Add("Password", 100, HorizontalAlignment.Left)

For Each user In alluser
x = user.userName ' as string
y = user.password ' as string
lstUser.Items().Add(x.ToString & " " & y.ToString)
LVI = lvwUser.Items.Add(x.ToString)
LVI SubItems.Add(y.ToString)
Next

--
Cordialement,

Jacques.
Avatar
Jacques93
Jacques93 a écrit :
Dim LVI As ListViewItem

lvwUser.View = View.Details
lvwUser.Columns.Add("Utilisateurs", 100, HorizontalAlignment.Left)
lvwUser.Columns.Add("Password", 100, HorizontalAlignment.Left)

For Each user In alluser
x = user.userName ' as string
y = user.password ' as string
lstUser.Items().Add(x.ToString & " " & y.ToString)
LVI = lvwUser.Items.Add(x.ToString)
LVI SubItems.Add(y.ToString)



==> LVI.Subitems.Add(y.ToString)

avec un point, bien sûr !

Next





--
Cordialement,

Jacques.
Avatar
tabasko
Pense à Remercier, ca fait toujours plaisir ;)
tabasko