Discussion :

[dinahlsg]

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

[dinahlsg]

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

[dinahlsg]

Bon... Ca ne fonctionne pas ...