Discussion :

[peaceandloveman01]

(Re)Bonjour à toutes et à tous,

j'aimerais affiché un userform en mode plein écran. Le problème est que les écrans sur lequels sera appliquée la macro ne sont pas tous les mêmes. Est-ce que quelqu'un sait comment récupérer les dimensions de la configuration de l'écran (du style 1024*768 ou 800*600 ...) ??

Et comment peut on se débarasser de la barre windows pour réellement afficher l'userform en plein écran, comme avec un lecteur vidéo ?

(Facultatif) Enfin, existe-t-il une commande pour centrer et ajuster mes controls sur l'userform suivant la taille de ce dernier ?

Merci d'avance et bonne journée !!

Lyonel

[cavo789]

Bonjour

L'API suivante te permettra de la faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
   (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Un petit exemple de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Public Const SPI_GETWORKAREA = 48
 
Dim rc As tRect
 
      Call SystemParametersInfo(SPI_GETWORKAREA, 0&, rc, 0&)
 
      wScreenWidth = GetSystemMetrics(SM_CXSCREEN)
 
      ' The screen height will be the screen height - the height of the taskbar (assume that the task bar is at the bottom)
 
      wScreenHeight = GetSystemMetrics(SM_CYSCREEN) - (GetSystemMetrics(SM_CYSCREEN) - (rc.Bottom - rc.Top))

[peaceandloveman01]

merci bcp !!!