[VB.NET] Modifier une cellule d'une ListView
Résolu
Orci76
Messages postés
92
Date d'inscription
Statut
Membre
Dernière intervention
-
Orci76 Messages postés 92 Date d'inscription Statut Membre Dernière intervention -
Orci76 Messages postés 92 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- [VB.NET] Modifier une cellule d'une ListView
- Modifier dns - Guide
- Modifier une story facebook - Guide
- Modifier une liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Bloquer une cellule excel - 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