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