Pour les mordus de treeview

Soyez le premier à donner votre avis sur cette source.

Vue 21 194 fois - Téléchargée 2 436 fois

Description

Pour les mordus des TreeViews...
      • VOIR AUSSI la livraison TREVIEW (SUITE)...

Ecrites en VB 5/6, ces quelques lignes permettent de :

Faire du Drag-And-Drop dans un TreeView (je sais, déjà vu...). J'ai aussi une version qui permet de la faire entre des noeuds non visibles simultanément dans la fenêtre en cours...

Reorganiser les enfants d'un noeud par Up-Down, pour les idiots, un exemple :

Papa
- Fiston 1
- Fiston 2
- Fiston 3

Sélection de fiston 1, deux fois Down (spinButton dans l'exemple) et ca devient :

Papa
- Fiston 2
- Fiston 3
- Fiston 1

Lecture du Treeview entier ou d'un noeud, de ses freres et soeurs et enfants, paramétrable
(dans une listbox pour cet exemple), selon la vision à l'écran (ordonné comme à l'écran, quoi...)
et non selon l'index (l'ordre de création).

Ca marche aussi, avec quelques adaptations, en Access 97, en faisant du Drag-and-Drop Ole (sans ODK).
Exemple sur demande.

Enfin, avec la petite base access 97 associée (une seule table) :
- Champs : 1 - KeyData (clé primaire de l'enreg)
2 - LibelleData
3 - KeyParent, qui correspond à l'enreg Parent dans la même table.

et alimentation du Treeview par lecture séquentielle de la base access, sans plantage si le parent n'a pas été encore créé dans le treeview.

En préparation : Transformer un noeud enfant en noeud racine en conservant ses enfants. Mouliner tout ca avec des collections.


Bon amusement.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Greengold
Messages postés
57
Date d'inscription
mercredi 16 octobre 2002
Statut
Membre
Dernière intervention
31 mars 2004
-
Très bonne source 9/10
stefDeNice
Messages postés
9
Date d'inscription
jeudi 12 juin 2003
Statut
Membre
Dernière intervention
31 décembre 2003
-
Cette source est bonne, la partie drag&drop est bien commentée.
Mais en adaptant ce code à mon appli, j'obtiens un problème (je suppose que cela viens des propriétés des controles ou du form à la conception) :
une shape détourant le treeview entier (1 rectangle de même taille) suit le pointeur de la souris lors du Drag sur un noeud. C'est inesthétique. D'ou cela peut venir ?
stefDeNice
Messages postés
9
Date d'inscription
jeudi 12 juin 2003
Statut
Membre
Dernière intervention
31 décembre 2003
-
(bon ben j'ai ma réponse : cela se produit qd il n'y a pas d'icone dans la propriété ^^ DragIcone ^^ du treeview ... )
cs_edemar
Messages postés
1
Date d'inscription
lundi 31 mars 2003
Statut
Membre
Dernière intervention
13 mars 2007
-
Merci beaucoup renaud !!
j'avais un problème pour éviter de droper un parent sur un child !!
ton code ma bien aidé..

Encore merci

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.