Bonjour,
J'utilise le code suivant pour récupérer le Zoom appliqué sur l'écran principal (c'est fonctionnel) mais j'aimerais pouvoir faire de même sur un second écran.
En vous remerciant par avance,
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
16
17
18 Function funcZoomWindows() As Double Dim dblValue As Double Dim lngDC As Long ' Calculs relatifs à l'écran lngDC = GetDC(0) 'HWND_DESKTOP) dblValue = GetDeviceCaps(lngDC, LOGPIXELSX) 'dblvalue = GetDeviceCaps(lngDC, LOGPIXELSY) ReleaseDC HWND_DESKTOP, lngDC Select Case dblValue Case 96: funcZoomWindows = 100 Case 120: funcZoomWindows = 125 Case 144: funcZoomWindows = 150 Case 192: funcZoomWindows = 200 Case Else: funcZoomWindows = 100 End Select End Function
Partager