Autres Resolution USERFORM et Ecran

[FOUQUET Yves]

Bonjour,

Quelqu'un peut-il me dire si ces lignes de code me permettront d'adapter sur n'importe quel ordinateur la taille de l'Userform à la résolution de l'écran et la taille de Listbox à la taille de l'Userform ?

Je teste chez moi ça a l'air OK mais sur un écran avec d'autres résolution ???

Merci de vos réponses.
Bonne soirée.

LargeurEcran = GetSystemMetrics(0)
HauteurEcran = GetSystemMetrics(1)
HauteurUserf = HauteurEcran * 0.75
LargeurUserf = LargeurEcran * 0.75
Me.Move 1, 1, LargeurUserf, HauteurUserf  'pour tout modifier
ListBox1.Width = LargeurEcran * 0.74
ListBox1.Height = HauteurEcran * 0.62

 

[patricktoulon]

regarde

 

[Dudu2]

Et Office 2016.

Moi qui me dépasse, c'est que les fenêtres Aero et Basic ne se positionnent pas au même endroit.
Ce n'est pas le problème de l'utilisateur de composer avec le thème. Enfin il me semble.

Long time ago, j'avais fait des tests de positionnement UserForm et TextBox avec ce fichier.
Tu pourrais lancer le test avec ton thème Basic et voir si ça décale ?

 

[patricktoulon]

j'ai testé et j'ai toujours cet ecart en moins ou en plus que toi tu n'a pas avec ton theme bizarre
seulement avec l'userform avec le textbox c'est bon

mais je chercherais a temps perdu sur dvp la dll que l'on utilisait