[Résolu][Base] Agrandir un formulaire

[NeoTrasher]

Hello ,

Alors voila une ptite macro pour agrandir un formulaire lors de son ouverture .

Voila le code :

Code : Tout sélectionner

FUNCTION ResizeWindow(oForm as object)
'******************************
dim vFrame as Object
dim vWindow as Object
dim vRect as Object
dim intHeight as Integer
dim intWidth  as Integer
dim intXPos as Integer
dim intYPos as Integer
'xRay oForm 
   vFrame = oForm.getCurrentController.getFrame()
   vWindow = vFrame.getContainerWindow()
   vRect = vWindow.getPosSize() 
 
   'position en haut à gauche
   intXPos=0
   intYPos=0
   intHeight=1024   '<----------Résolution de l'écran
   intWidth=1280    '<---------/
 
   vWindow.setPosSize(intXPos, intYPos, intWidth, intHeight, com.sun.star.awt.PosSize.POSSIZE )
End Function

A bientot sur le forum

[cldi]

J'ai saisi votre code dans un formulaire à l'événement "Lors d'un chargement" et quand j'ouvre mon formulaire,
dès le début j'ai le message suivant "propiété ou méthode introuvable" en s'arretant sur la ligne suivante :
vFrame = oForm.getCurrentController.getFrame()

mon problème c'est que je veux que la fenetre du formulaire s'agrandisse quand je l'ouvre, comme la commande Maximize dans access.
merci

[Bidouille]

Bonjour et bienvenue,

Avez-vous lu le bandeau en haut de la page sur fond rouge ? Aucune question dans cette section, merci de poster dans celle consacrée aux macros en joignant un fichier ODB contenant le code posant problème.

[spYre]

Bonjour,

Pour Windows uniquement

Une variante qui maximise à proprement parler le formulaire :

Code : Tout sélectionner

'use the MS Windows API
Declare Function ShowWindow Lib "user32" _
(ByVal lHwnd As Long, _
ByVal lCmdShow As Long) As Boolean

sub MaximizeFrame( oEvent as object )
    dim window
    dim handle
    dim aframe
    aframe = oEvent.Source.CurrentController.Frame
    window = aframe.getContainerWindow()
    handle = window.getWindowHandle(dimarray(), 1) REM 1=WIN32
    ShowWindow( handle, 3 )
end sub

Source : http://user.services.openoffice.org/en/forum/viewtopic.php?f=13&t=2300

Fil original : viewtopic.php?f=8&t=18087