Re: [fr-users] Re: (LOBasic)Ouverture d'un Formulaire en plein écran

Bonjour

Tout d'abord un conseil d'usage des listes. Dans ton courrielleur ou webmail il
faut utiliser l'option "Répondre à la liste" ou "Répondre à tous" sinon le message
ne va qu'au destinataire et non à la liste.

> Message du 01/11/12 18:15
> De : "Blanchard Michel"

> L'ouverture du form se réalise bien avec ContainerWindow.IsMaximized = true
> mais mon souci c'est la méthode fullscreen. mon objectif étant d'essayer de
> m'approcher d'une appli access avec disparition complète des menus

Au temps pour moi, je n'avais pas compris cela...

Donc ci-dessous deux possibilités :

1. "DemarrageTailleForm" ouvre le formulaire, et suppime les menus

2. "DemarragePleinEcran", euh... comme son nom l'indique :)

Ci-dessous les procédures

Sub DemarrageTailleForm

ThisDatabaseDocument.CurrentController.connect("","")
LibOForm =ThisDatabaseDocument.FormDocuments.getByName("F_menu_principal").open
LibOForm.CurrentController.Frame.LayoutManager.HideCurrentUI = true

End Sub


Sub DemarragePleinEcran

dim document   as object
dim dispatcher as object

dim args1(0) as new com.sun.star.beans.PropertyValue

ThisDatabaseDocument.CurrentController.connect("","")
LibOForm =ThisDatabaseDocument.FormDocuments.getByName("F_menu_principal").open

document   = LibOForm.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

args1(0).Name = "FullScreen"
args1(0).Value = true

dispatcher.executeDispatch(document, ".uno:FullScreen", "", 0, args1())

End Sub


Cordialement
Pierre-Yves

Une messagerie gratuite, garantie à vie et des services en plus, ça vous tente ?
Je crée ma boîte mail www.laposte.net

-- 
Envoyez un mail à users+help@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés