cs_Fripouil
Messages postés175Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention 8 mai 2017 29 janv. 2004 à 13:21
Salut
Je vais te donner ma solution que j ai trouvé cela dit on peut surement l optimiser.
Il faut 2 ListBox : List1 et List2
Tout d abord la liste qui recoit les données : la List1
OleDragMode = Manual
OleDropMode = Manual
celle qui envoie les données : la List2
OleDragMode = Automatique
OleDropMode = None
Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
List1.AddItem List2.Text
End Sub
Voila ca se trouve il y a d autres solutions mais celle la marche.