Drag and drop listview

Soyez le premier à donner votre avis sur cette source.

Vue 6 060 fois - Téléchargée 1 099 fois

Description

Un pense bête sur l'objet ListView : rappel de propriétés souvent utilisées (Drag & Drop de toutes les colonnes de la ligne) et surtout sans classe.

Source / Exemple :


Voir Zip ci-joint

Conclusion :


Un petit rappel des propriétés de l'objet Listview....pratique non ?....Mais surtout sans prétentions..

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
35
salut,

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
Messages postés
4
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
4 janvier 2009

Au fait pour le remove dans la fonction ListView1_MouseDown et ListView2_MouseDown prendre soin de vérifier que l'item n'est pas vierge.......Comme il n'y a pas de gestion d'erreurs je me permets d'apporter la correction suivante :

-=-=-=-=-=-

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

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.

Du même auteur (lucienassaillit)