faire monter ou descendre un item d'une listview

Question

J'ai une listview en mode report avec des icones et tout ce qu'il faut. Je voudrais savoir comment faire pour faire monter (ou descendre) l'item de mon choix. 

merci

Delbeke · Answer

Inspirez vous du code ci-desooius qui ne gére pas les sous-items. Bonne lecture

Option Explicit

Private Sub cmdPopulate_Click()
  ListView1.ListItems.Add , "Cle1", "Texte1"
  ListView1.ListItems.Add , "Cle2", "Texte2"
  ListView1.ListItems.Add , "Cle3", "Texte3"
  ListView1.ListItems.Add , "Cle4", "Texte4"
End Sub
Private Sub cmdUp_Click()
  Dim iPnt As Integer
  Dim IT As ListItem
  Set IT = ListView1.SelectedItem
  iPnt = IT.Index
  If iPnt > 1 Then
    ListView1.ListItems.Remove iPnt
    ListView1.ListItems.Add iPnt - 1, IT.Key, IT.Text
    Set ListView1.SelectedItem = ListView1.ListItems(iPnt - 1)
  End If
End Sub
Private Sub cmdDown_Click()
  Dim iPnt As Integer
  Dim iMax As Integer
  Dim IT As ListItem
  iMax = ListView1.ListItems.Count
  Set IT = ListView1.SelectedItem
  iPnt = IT.Index
  If iPnt < iMax Then
    ListView1.ListItems.Remove iPnt
    ListView1.ListItems.Add iPnt + 1, IT.Key, IT.Text
    Set ListView1.SelectedItem = ListView1.ListItems(iPnt + 1)
  End If
End Sub

Jean-Luc

Schlobax · Answer

Très utile, merci !

Faire monter ou descendre un item d'une listview

2 réponses

Discussions similaires