[VB.NET] Modifier une cellule d'une ListView
Résolu
Orci76
Messages postés
102
Statut
Membre
-
Orci76 Messages postés 102 Statut Membre -
Orci76 Messages postés 102 Statut Membre -
Bonjour,
J'aimerais savoir s'il était possible, en VB.NET, de modifier un cellule particulière d'une ListView (en connaissance l'index horizontal et vertical).
J'ai trouvé:
http://www.codyx.org/snippet_modifier-facilement-contenu-cellule-listview_543.aspx
en VB6, ce qui me laisse donc penser que c'est possible en VB.NET, cependant, je n'ai pas trouvé.
Merci d'avance pour vos réponses;
J'aimerais savoir s'il était possible, en VB.NET, de modifier un cellule particulière d'une ListView (en connaissance l'index horizontal et vertical).
J'ai trouvé:
http://www.codyx.org/snippet_modifier-facilement-contenu-cellule-listview_543.aspx
en VB6, ce qui me laisse donc penser que c'est possible en VB.NET, cependant, je n'ai pas trouvé.
Merci d'avance pour vos réponses;
A voir également:
- [VB.NET] Modifier une cellule d'une ListView
- Modifier dns - Guide
- Modifier une liste déroulante excel - Guide
- Modifier une story facebook - Guide
- Bloquer une cellule excel - Guide
- Vous avez besoin d'une autorisation de la part de système pour modifier ce dossier - Guide
2 réponses
Bonjour,
En posant une listview initialisé comme suit :
Sur l'évènement [ lvw_Sources_ItemSelectionChanged ]
Cdt
Lupin
En posant une listview initialisé comme suit :
Private Sub Insertion()
InitialiseListView()
lvw_Sources.View = View.Details
lvw_Sources.Columns.Add("Pays", 60, HorizontalAlignment.Left)
lvw_Sources.Columns(0).Width = 100
lvw_Sources.Columns.Add("Langue", 60, HorizontalAlignment.Left)
lvw_Sources.Columns(1).Width = 100
Dim MaLigne As ListViewItem = New ListViewItem(New String() {"France", "Français"})
lvw_Sources.Items.Add(MaLigne)
MaLigne = New ListViewItem(New String() {"Angleterre", "Anglais"})
lvw_Sources.Items.Add(MaLigne)
MaLigne = New ListViewItem(New String() {"Espagne", "Espagnol"})
lvw_Sources.Items.Add(MaLigne)
MaLigne = New ListViewItem(New String() {"Italie", "Italien"})
lvw_Sources.Items.Add(MaLigne)
End Sub
Private Sub InitialiseListView()
Me.lvw_Sources.Items.Clear()
Me.lvw_Sources.Columns.Clear()
End Sub
Sur l'évènement [ lvw_Sources_ItemSelectionChanged ]
Private Sub lvw_Sources_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles lvw_Sources.ItemSelectionChanged
Dim LaLigne As ListViewItem
Dim Message As New System.Text.StringBuilder
If Not (lvw_Sources.SelectedIndices.Count.Equals(0)) Then
LaLigne = lvw_Sources.SelectedItems(0)
Message.AppendLine("Sélection de : ")
Message.AppendLine(String.Format("{0}{1}", "Pays : ", LaLigne.SubItems(0).Text))
Message.AppendLine(String.Format("{0}{1}", "Langue : ", LaLigne.SubItems(1).Text))
LaLigne.SubItems(0).Text = "Modifier : "
LaLigne.SubItems(1).Text = "par Lupin"
End If
If Not (String.IsNullOrEmpty(Message.ToString)) Then
MsgBox(Message.ToString)
End If
End Sub
Cdt
Lupin
