[VB.NET] Modifier une cellule d'une ListView
Résolu/Fermé
Orci76
Messages postés
92
Date d'inscription
lundi 20 décembre 2010
Statut
Membre
Dernière intervention
21 avril 2015
-
19 sept. 2012 à 13:44
Orci76 Messages postés 92 Date d'inscription lundi 20 décembre 2010 Statut Membre Dernière intervention 21 avril 2015 - 19 sept. 2012 à 18:04
Orci76 Messages postés 92 Date d'inscription lundi 20 décembre 2010 Statut Membre Dernière intervention 21 avril 2015 - 19 sept. 2012 à 18:04
A voir également:
- [VB.NET] Modifier une cellule d'une ListView
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Modifier pdf - Guide
- Modifier une liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Modifier extension fichier - 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
Orci76
Messages postés
92
Date d'inscription
lundi 20 décembre 2010
Statut
Membre
Dernière intervention
21 avril 2015
5
19 sept. 2012 à 18:04
19 sept. 2012 à 18:04
Salut Lupin,
Merci pour ta réponse, je vais tester ça de suite.
Merci pour ta réponse, je vais tester ça de suite.