Bonjour,

Apache 46 a écrit :
Effectivement je me suis mal exprimé.
Je veux que la fenêtre active s'agrandisse car à l'ouverture du formulaire elle est toujours plus petite et décalée.

J'ai essayé la macro et à cette ligne :
aContainerWindow = StarDesktop.getActiveFrame().getContainerWindow()
j'ai le message suivant  :
Runtime error BASIC.
Variable d'objet non définie


C'est normal !
J'ai présenter un code générique mais pas adapté à Base.

à cette ligne
ShowWindow( aWindowHandle, 3 )
j'ai le message suivant
Runtime error BASIC.
Sous procédure ou procédure de fonction non définie

En effet j'ai oublié de préciser l'élément (spécifique à Windows).

Merci d'avance pour ta collaboration.
Raoul de Cahors

Francois Gatto a écrit :
Bonjour,


Tu trouveras ci-joint un exemple :

http://www.cijoint.fr/cij5722231072910.odb

@+
Francois

Apache 46 a écrit :
... avec cette macro les barres d'outil disparaissent et cela ne m'arrange pas.
[...]
Existe-t-il une solution.
Raoul

Heu, là j'ai du mal à comprendre !

Un mode affichage plein écran a justement vocation à masquer temporairement la plupart des éléments d'une application pour laisser un espace maximal à la zone de traitement.

A moins qu'il ne s'agisse que d'agrandir la fenêtre active, auquel cas cette macro pourrait te convenir :

Sub Window_Maximize
  Dim aContainerWindow, aWindowHandle
  aContainerWindow = StarDesktop.getActiveFrame().getContainerWindow()
  aWindowHandle = aContainerWindow.getWindowHandle(Array(), 1)
  ShowWindow( aWindowHandle, 3 )
End Sub

consulter getWindowHandle
http://api.openoffice.org/docs/common/ref/com/sun/star/awt/XSystemDependentWindowPeer.html#getWindowHandle

Francois


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à