Re: Re: [fr-users] DRAW macro gestion des couches

Bonjour;

Je te rappelle que j'ai ouvert un bug sur ta macro.

C'est pas du même ordre ?

Nicolas Paour

Le 24/11/2019 à 12:32, linux a écrit :
> Bonjour,
>
> As tu essayé avec un nom sans accent?
>
> Cordialement
>
> Jean-Luc
>
> Le 30/10/2019 à 16:26, François SEGUIN a écrit :
> > Bonjour,
> >
> > J'ai téléchargé la macro exemple pour la visibilité des couches. le 
> > code permet de rendre visible ou invisible une couche :
> >
> > Sub LibOCouche(LibOEvent)
> >
> > dim LibOGestCouches as object
> >
> > LibOGestCouches  = thiscomponent.LayerManager
> >
> >
> > if LibOGestCouches.hasByName(LibOEvent.source.model.Label) then
> > LibOGestCouches.getByName(LibOEvent.source.model.Label).IsVisible =_
> > not(LibOGestCouches.getByName(LibOEvent.source.model.Label).IsVisible)
> > else
> >     msgbox "Pas de couche " & LibOEvent.source.model.Label
> > end if
> >
> > End Sub
> >
> >
> > Cette macro fonctionne correctement.
> > ensuite j'ai modifié le code pour faire un essai en donnant 
> > directement le nom de la couche. La macro devient :
> > sub essai
> >
> > dim LibOGestCouches as object
> >
> >
> > LibOGestCouches  = thiscomponent.LayerManager
> >
> > if LibOGestCouches.hasByName("Carrés") then
> >     LibOGestCouches.getByName("Carrés").IsVisible =_
> >     not(LibOGestCouches.getByName("Carrés").IsVisible)
> > else
> >     msgbox "Pas de couche "
> > end if
> > End sub
> >  et là le code ne fonctionne plus impossible de rendre visible ou 
> > invisible la couches. Quelqu'un a t'il une idée du pourquoi?
> >
> > merci de vos réponses

--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy