Autres Resolution USERFORM et Ecran

FOUQUET Yves · 29 Juillet 2020

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.

VB:

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

youky(BJ) · 29 Juillet 2020

Voici comme moi je procède...
L'user est en plein écran selon le ratio de largeur et selon le ratio de hauteur
ainsi que tout les contrôles
Bruno

patricktoulon · 1 Août 2020

regarde

Dudu2 · 1 Août 2020

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 · 1 Août 2020

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

Autres Resolution USERFORM et Ecran

FOUQUET Yves

XLDnaute Occasionnel

youky(BJ)

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Discussions similaires