Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau membre du Club
    Adapter automatiquement la taille des formulaires a la taille de l'ecran
    Bonjour à tous,
    Qui pourrait me donner une astuce pour que, lorsqu'un utilisateur ouvre ma base de données depuis n'importe quel PC, la taille du formulaire s'adapte automatiquement à la taille de l'écran ?
    Ceci afin que le formulaire soit complet à l'écran et que l'utilisateur n'ait pas à utiliser les ascenseurs vertical et horizontal.
    Merci par avance

  2. #2
    Nouveau membre du Club
    J'ai trouvé ce bout de code. Pensez-vous que cela est adapté à ma situation et si oui... A quel évènement dois-je l'associer ? (source)

    Code oBasic :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Sub Resolution
    Dim aRect As New com.sun.star.awt.Rectangle
    Dim oDisplayAccess As Object, oDisplay As Object, vRect As Object
        oDisplayAccess = CreateUnoService("com.sun.star.awt.DisplayAccess")
        oDisplay = oDisplayAccess.getByIndex(0)
    	vRect = oDisplay.WorkArea
    	intH = vRect.Height
    	intW = vRect.Width
    	intX = vRect.X
    	intY = vRect.Y
    End sub

  3. #3
    Nouveau membre du Club
    Redimmensionnement formulaire
    Bon... Ca ne fonctionne pas ...

###raw>template_hook.ano_emploi###