2 messages in org.openoffice.fr.progRe: [prog] Difference entre ThisComp...
FromSent OnAttachments
DavhippoFeb 12, 2007 3:11 am 
Philippe AllartFeb 12, 2007 4:22 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] Difference entre ThisComponent et CurrentComponentActions...
From:Philippe Allart (pall@cudl-lille.fr)
Date:Feb 12, 2007 4:22:39 am
List:org.openoffice.fr.prog

Davhippo a écrit :

Bonjour, apres de multiple recherche je me demande quel est la différence entre ThisComponent et CurrentComponent? Certains expliquent que tous les deux se rapportent au document actif et que la différence réside dans le fait que ThisComponent représente le fichier contenant la macro...

Jusque maintenant j'utilisais uniquement thisComponent, que la macro se trouve ou non dans le document actif.

Mais j'ai décidé de remplacer toutes références à "thisComponent" par "documentCourant", et de mettre en ligne les macros suivantes, que je n'ai pas encore complètement testées.

A+

Ph.

--

------------------------------------------------------- ' ' Gestion du document courant au travers d'une pile. ' la fonction "documentCourant" renvoi le document ' au sommet de la pile ' les sous-pogrammes "nouveauDocumentCourant" et ' "abandonnerDocumentCourant" ajoutent et retirent un ' document au sommet de la pile. ' Ces deux sous-programmes doivent OBLIGATOIREMENT ' être utilisés de pair dans une même séquence ' ininterruptible '

Private taillePileDocuments as Integer Private pileDocuments(10) as object

Function documentCourant() as Object

if taillePileDocuments = 0 then documentCourant = thisComponent else documentCourant = pileDocuments(taillePileDocuments) end if End Function

Sub NouveauDocumentCourant(unDocument as Object) taillePileDocuments = taillePileDocuments + 1 pileDocuments(taillePileDocuments) = unDocument end sub

sub AbandonnerDocumentCourant() taillePileDocuments = taillePileDocuments -1 end sub