Adapter automatiquement la taille des formulaires a la taille de l'ecran

Version imprimable

22/03/2018, 15h02
dinahlsg

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

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:

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

29/03/2018, 08h38
dinahlsg

Redimmensionnement formulaire

Bon... Ca ne fonctionne pas ... :pleure: