URGENT : PB DE DRAG AND DROP

Question

JE CHERCHE COMMENT FONCTIONNE LA FONCTION DRAG AND DROP POUR EFFECTUER UN DEPLACEMENT DE DONNEE D'UNE LISTBOX VERS UNE OTRE 
SVP AIDEZ MOI
MERCI D'AVANCE

pace · Answer

Moi j'utilise l'évènement OLEDrag. Voici comment.

Private Sub ListBox1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    With ListBox1
          Data.SetData .List(.ListIndex), vbCFText
    End With
End Sub

Private Sub ListBox2_OLEDragDrop(Data As DataObject, Effect As Long, _
                Button As Integer, Shift As Integer, X As Single, Y As Single)

     ListBox2.AddItem Data.GetData(vbCFText)

end sub

Tu devra mettre la proprité du la liste de départ
ListBox1 OLEDragMode à 1
et la propriété de la liste qui reçoit ListBox2
OLEDropMode à 1 pour que ça fonctionne.

Pace

metal.killer · Answer

Je te remercie, tu ne saurait pas comment faire pour ke kan je déplace une donné d'une d listbox vers l'otre ke sous le curseur souris s'affiche le text ke je déplace?? 
merci d'avance