XL 2016 VBA - Où trouve-t-on les valeurs des constantes de la GetDeviceCaps function

[Dudu2]

Bonjour,

Superbe doc de MS sur GetDeviceCaps function, mais aucune information sur les constantes citées pour l'index. Pas le moindre ENUM, rien !
Exemple que vaut LOGPIXELSX, LOGPIXELSY, etc...

Alors pour l'écran je définis des constantes, mais sont-elles correctes ?

Private Const LOGPIXELSX = 88               'Pixels/inch in X
Private Const LOGPIXELSY = 90               'Pixels/inch in Y

 

[Dranreb]

Bonsoir.
Oui, ça m'a l'air bon. J'ai quelque part :

      Px72 = GetDeviceCaps(GetDC(0), 88) ' Nombre de pixels pour 72 points.
      Lft = Obj.Left: Trnq = Int(Lft / 3) * 3
      Lft = Pan.PointsToScreenPixelsX(Trnq) * 72 / Px72 + (Lft - Trnq)
      Px72 = GetDeviceCaps(GetDC(0), 90) ' Nombre de pixels pour 72 points.
      Top = Obj.Top: Trnq = Int(Top / 3) * 3
      Top = Pan.PointsToScreenPixelsY(Trnq) * 72 / Px72 + (Top - Trnq)

 

[Dudu2]

Bonjour @Dranreb,
Merci pour ton retour.

 

[Dudu2]

A toutes fins utiles, voici un lien très utile qui donne plein d'infos sur les déclarations des fonctions de l'API Windows, des types et valeurs de constantes correspondantes. Sur GetDeviceCaps() y a tout à priori.

https://github.com/ReneNyffenegger/WinAPI-4-VBA/blob/master/Win32API_PtrSafe.txt