Discussion :

[Gado2600]

Bonjour,

J'utilise ce code pour récupérer la taille de l'écran actif d'un formulaire.

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
 
    Dim lngHWND             As Long
    Dim hMonitor            As Long
    Dim MonitorInfo         As typMonitorInfo
    Dim apiReturnCode       As Long
 
    lngHWND = frm.hwnd
 
    hMonitor = MonitorFromWindow(lngHWND, MONITOR_DEFAULTTONEAREST)
    MonitorInfo.cbSize = LenB(MonitorInfo)
 
    apiReturnCode = GetMonitorInfo(hMonitor, VarPtr(MonitorInfo))
 
    ' Récupération de la taille de l'écran
    With MonitorInfo.rcMonitor
        dblWidth_Ecran = (.Right - .Left)
        dblHeight_Ecran = (.Bottom - .Top)
    End With

Sur mes écrans, si je paramètre en 1920x1080, il me remonte bien 1920x1080.
Si je passe à une mise à l'échelle de 125%, il me remonte 1536x864 (1920/1,25 & 1080/1,25).
Ce qui me convient parfaitement.

Par contre, sur d'autres postes (côté client), il remonte toujours 1920x1080, quelque soit la mise à l'échelle.

Auriez-vous une explication ou des pistes à exploiter pour que ce soit fonctionnel, comme dans le premier cas ?

Cordialement,

[argyronet]

Bonjour,

Code :

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

apiReturnCode = GetMonitorInfo(hMonitor, VarPtr(MonitorInfo))

Pourquoi utiliser une api VarPtr, assez vieille somme toute (VB4 je crois de mémoire) ?

Normalement,

Code :

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

apiReturnCode = GetMonitorInfo (hMonitor, MonitorInfo)

suffit.

Mais j'ignore d'où cela vient de votre côté car en fait, il faut énumérer les moniteurs (EnumDisplayMonitors) et ensuite voir celui qui est qualifié de principal.
Il est probable que votre code prend le premier moniteur qu'il trouve et plus particulièrement celui où se trouve l'application.

Argy

[Gado2600]

Bonjour Argynoret et merci pour ton intérêt à ce sujet.

Pour le VarPtr, cela ne semble pas avoir d'impact.
J'ai repris des codes très similaires et testé avec et sans le VarPtr.

J'ai, au début du code, une fonction qui récupère l'écran ciblé sans passer par une énumération de ceux-ci et, cette étape semble fonctionnelle.

En fait, depuis, j'ai trouvé un fichier Excel qui passe par la méthode d'énumération et fonctionnait parfaitement.
Depuis cette semaine, il me présente les mêmes symptômes : ça ne prend plus en compte la mise à l'échelle lors de la récupération de la taille de l'écran cible mais ses dimensions à échelle 100%.