pimpoumvlan
Messages postés9Date d'inscriptionmardi 3 juin 2003StatutMembreDernière intervention 8 août 2003
-
16 juin 2003 à 15:53
Schlobax
Messages postés3Date d'inscriptionlundi 6 juillet 2009StatutMembreDernière intervention25 janvier 2011
-
24 janv. 2011 à 16:32
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.
Delbeke
Messages postés200Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention18 novembre 2005 16 juin 2003 à 20:21
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