ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Imprimer un Treeview   



L'auteur

Gregory Adam
Belgique Belgique
Membre Actif (personne physique)
# 0000001121
enregistré le 04/06/2006

Fiche personnelle


Note des membres
pas de note

Contributions > 08 - ActiveX - (OLE)

Imprimer un Treeview
# 0000000346
ajouté le 12/08/2006 18:25:24 et modifié le 12/08/2006
consulté 5807 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0


Le téléchargement des pièces jointes est limité aux membres
Veuillez vous identifier ou vous inscrire si vous n'avez pas encore de compte ...
Description

Inclus dans le zip un petit project avec un exemple pour imprimer un treeview

L'exemple se trouve dans test

Test fait 4 choses

  1. Preparer un objet TV - puisqu'il faut un exemple
  2. Traverser le TV, mettant la sequence d'acces aux noeuds dans un Queue
  3. Preparer un curseur (Letter), que servira a l'impression
  4. Montrer le report en preview

Pour que le report puisse imprimer les images utilisees, il faut que le TV et le report se mettent d'accord sur le nom en l'endroit des images.  La fonction  Treeview_Image_Queue(@m.QueueObj) servira a donner un Queue avec les noms et chemins (externes au exe, puisque LoadPicture() a besoin d'un fichier sur disque)

On peut donc, inclure les images dans le projet/exe.  Treeview_Image_Queue() les mettra sur disque

Niveaux:

  • la preparation du curseur:  max 32
  • le report: max 16

 

Bonne chance,

 

Commentaires
le 31/08/2006, eddymaue a écrit :
ca marche pô
le 08/09/2006, eddymaue a écrit :
Salut Grégory, il n'y a pas de table et au démarrage on commence par ou le fichier main qui n'a pas de lancement de fontions ou on active le rapport et lui va aller chercher les fonctions utiles dans les fichiers Prg.

Excuse si je prends du temps à répondre l'été je suis en vancanes.... J'travaille pô

A+ Eddy

le 08/09/2006, eddymaue a écrit :
ok ca fonctionne sauf que j'ai dû apporter une toute petite correction
j'ai remplacer dans le fichier treeview à ligne 359 la ligne suivante
with eval(.ExpandedImage,"")
par
iif(isnull(.ExpandedImage),'',.ExpandedImage)

.ExpandedImage vire au null pour une raison que j'ignore

a+ Eddy


Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3