Drag and drop dans une listbox [Résolu]

Messages postés
2
Date d'inscription
lundi 27 novembre 2000
Dernière intervention
25 septembre 2007
- - Dernière réponse : cs_Charlie76
Messages postés
2
Date d'inscription
mardi 31 octobre 2000
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
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 120 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
Dernière intervention
3 février 2018
30
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
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
Dernière intervention
3 février 2018
30
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
317
Date d'inscription
lundi 29 septembre 2008
Dernière intervention
29 janvier 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
Dernière intervention
27 juillet 2011
0
Merci
Super
Commenter la réponse de cs_Charlie76

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.