DRAG AND DROP LISTVIEW
lucienassaillit
Messages postés
4
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
4 janvier 2009
-
4 janv. 2009 à 21:05
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 4 janv. 2009 à 22:22
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 4 janv. 2009 à 22:22
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/48882-drag-and-drop-listview
https://codes-sources.commentcamarche.net/source/48882-drag-and-drop-listview
4 janv. 2009 à 22:22
exactement le genre d'exemple ou le module de classe apporte un avantage certain!
çà serait un plus, plus que 4 lignes grosso-modo pour intégrer le code, et çà donne du "propre" s'il y a plusieurs listview sur la même form
(code non testé)
ps : dommage qu'il n'y ait aucun commentaire
4 janv. 2009 à 21:05
-=-=-=-=-=-
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
Set ListView1.SelectedItem = ListView1.HitTest(x, y)
str1 = App.Path & "/DRAG2PG.ico"
ListView1.DragIcon = LoadPicture(str1)
ListView1.Drag vbBeginDrag
Else
If Button = vbRightButton Then
str1 = TypeName(ListView1.SelectedItem)
If str1 <> "Nothing" Then
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End If
End If
End If
End Sub