Drag and drop dans une listboxRésolu

Question

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.

xav0 · Accepted Answer

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.

PCPT · Answer

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

gigi1902 · Answer

Merci beaucoup ça marche du tonnerre exactement je que je voulais faite

PCPT · Answer

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

Galactus13 · Answer

Magnifique pour moi t'aussi ! sa m'a bien aidé ! 
PCPT reste un génie de simplicité !

Galactus le Vrai (Bof...)!

cs_Charlie76 · Answer

Super

Drag and drop dans une listbox

6 réponses

Votre réponse

Discussions similaires