Drag and drop dans une listbox [Résolu]

Messages postés
2
Date d'inscription
lundi 27 novembre 2000
Statut
Membre
Dernière intervention
25 septembre 2007
- - Dernière réponse : cs_Charlie76
Messages postés
2
Date d'inscription
mardi 31 octobre 2000
Statut
Membre
Dernière intervention
27 juillet 2011
- 27 juil. 2011 à 15:41
Bonjours a tous, voila mon probleme j'ai une listbox avec des données dedans et j'aimerais pouvoir reorganiser les lignes avec la souris.
Merci d'avance.
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
Messages postés
20
Date d'inscription
samedi 23 septembre 2006
Statut
Membre
Dernière intervention
10 octobre 2007
3
Merci
Bonjour,
il y a un exemple de code fourni avec vb pour faire exactement ça. (complément>gestionnaire de compléments>gestionnaire de modèles vb6, puis Outils>Ajouter un jeu de contrôles).
Je recolle le code ici :

Sub lstItems_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbLeftButton Then lstItems.Drag
End Sub

Private Sub lstItems_DragDrop(Source As Control, X As Single, Y As Single)
  Dim i As Integer
  Dim nID As Integer
  Dim sTmp As String
 
  If Source.Name <> "lstItems" Then Exit Sub
  If lstItems.ListCount = 0 Then Exit Sub
  With lstItems
    i = (Y \ TextHeight("A")) + .TopIndex
    If i = .ListIndex Then
      ' Déposée au-dessus
      Exit Sub
    End If
    If i > .ListCount - 1 Then i = .ListCount - 1
    nID = .ListIndex
    sTmp = .Text
    If (nID > -1) Then
      sTmp = .Text
      .RemoveItem nID
      .AddItem sTmp, i
      .ListIndex = .NewIndex
    End If
  End With
End Sub

Il vaut mieux mettre un curseur dans la propriété DragIcon de lstItems, sinon il y a un gros rectangle moche quand on déplace les éléments.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 145 internautes nous ont dit merci ce mois-ci

Commenter la réponse de xav0
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
20
0
Merci
salut,

nombreux exemples sans ce tuto

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Commenter la réponse de PCPT
Messages postés
2
Date d'inscription
lundi 27 novembre 2000
Statut
Membre
Dernière intervention
25 septembre 2007
0
Merci
Merci beaucoup ça marche du tonnerre exactement je que je voulais faite
Commenter la réponse de gigi1902
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
20
0
Merci
pense à valider là ou les réponses qui te conviennent ;)
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Commenter la réponse de PCPT
Messages postés
324
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
25 mai 2019
1
0
Merci
Magnifique pour moi t'aussi ! sa m'a bien aidé !
PCPT reste un génie de simplicité !

Galactus le Vrai (Bof...)!
Commenter la réponse de Galactus13
Messages postés
2
Date d'inscription
mardi 31 octobre 2000
Statut
Membre
Dernière intervention
27 juillet 2011
0
Merci
Super
Commenter la réponse de cs_Charlie76