Discussion :

[patricktoulon]

bonjour a tous
voici une petite fonction qui vous donne le dpi sans api
elle peut être très utiles pour les conversion point to pixel

Code :

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

1
2
3
4
5
6
Sub test()
MsgBox DPI_off_My_Screen
End Sub
Function DPI_off_My_Screen()
With ActiveWindow.ActivePane: DPI_off_My_Screen = (.PointsToScreenPixelsY(3) - .PointsToScreenPixelsY(0)) / 3 * 72: End With
End Function

exemple
la position d'un control dans le userform en pixel par rapport a l'ecran
bien entendu pour le rapport a l'userform il faudra calculer la position de l'userform moins son width ou height Inside * DPI_off_My_Screen /72
cette méthode est employé dans ma contribution tool bar dans userform en moins de deux dans la version sans apis (dernier post)

Code :

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

msgbox me.label1.left*DPI_off_My_Screen/72

[unparia]

Bonjour Patricktoulon

Je viens de tomber à l'instant sur cette contribution
Ce qui est gênant, c'est que ta "solution" est fausse.

[patricktoulon]

de toute façon avec toi tout ce que je fait est faux et marche partout ailleurs alors
si tu parle de 95.99999999999 pour toi au lieu de 96 un round si je l'ai pas déjà fait doit être appliqué
en tout cas vérifié sur tout les pcs divers d'une boite ca colle

[patricktoulon]

retesté

a 100% =96 dpi


a 125%=120


a 150% =144

[unparia]

de toute façon avec toi tout ce que je fait est faux

Quand c'est faux, c'est faux, patricktoulon
ET DEJA : Depuis quand le DPI d'un écran dépend-il de paramètres d'affichage ?????
Tu as là un énorme problème et le plus fort, c'est que tu le mets TOI-MEME EN EVIDENCE
Excuse-moi, mais je te laisse là ...

[patricktoulon]

je parle de celui utilisé pour l'affichage

dpi=dots per inchs
Français =point par pouce
et oui il en est dépendant puisque l'on peut le modifier
bref j'obtiens la même chose qu'avec les api (get(dc),getdevicecap(x/y)
ce qui est le but
et si les résultats serait faux cela avec les api aussi

[unparia]

Sans autre commentaire que ceci :

Immuable quels que soient les "paramètres d'affichage".
Je t'abandonne là, hein ...

[patricktoulon]

Sans autre commentaire que ceci :

prolonger le débat serait polluer ma contribution!
d'autant plus que cette cle"pixelperin..". n'existe pas dans W7

[unparia]

Bon , allons allons ...
Comme nous sommes entre gens sérieux, tu vas peut-être commencer à nous expliquer la raison de ce 3 (des deux côtés) ?

Un 3 qui pourrait d'ailleurs retourner le même résultat en le remplaçant par tout multiple de 3 (et pour cause)

[patricktoulon]

il me semble l'avoir déjà expliqué dans un autre post non? que tout les multiples de 3 était valables (6,9,18,33,66,etc...)

quand a savoir pour quoi a vrai dire je n'ai pas encore bien déterminer pourquoi, peut être un soucis de précision du au décimales

mais c'est une formule qui fonctionne et donne un résultat nickel sur les 37 pc et tous différent aussi bien en mécanique que logicielle et même des vieux PCs

testé avec maformule et la formule avec api (getdc et getdevicecap)

teste ca chez toi dans toute les circonstance (windowstate max pour l'app et/ou le acivewindow)

Code :

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

1
2
3
4
5
6
7
8
Sub test()
MsgBox ActiveWindow.ActivePane.PointsToScreenPixelsX(3) '=39
' depuis quand 3 points = 39 pixels  avec le windowstate max pour l'app et le activewindow hein!!!!
MsgBox ActiveWindow.ActivePane.PointsToScreenPixelsX(0)
' depuis quand 0 points = 34 pixels  avec le windowstate max pour l'app et le activewindow hein!!!!
MsgBox ActiveWindow.ActivePane.PointsToScreenPixelsX(3) - ActiveWindow.ActivePane.PointsToScreenPixelsX(0)
' depuis quand 3 - 0 points = 5 pixels  avec le windowstate max et meme fenetré pour l'app (et/OU) le activewindow hein!!!!
End Sub

il y a que chez toi que cela est faux comme tu dis

peut entre devrais tu penser a fonctionner avec une exploitation Windows qui ne soit pas obsolète surtout avec les versions office d'aujourd'hui c'est toi qui vois

on parle de Microsoft
raisonne Windows non de dieu!!!
ma formule fonctionne sauf chez toi point barre
désolé pour toi

[unparia]

quand a savoir pour quoi a vrai dire je n'ai pas encore bien déterminer pourquoi, peut être un soucis de précision du au décimales

C'est du très grand sérieux, cela ...

peut être un soucis de précision du au décimales

Cela va bien au-delà d'un simple "souci de précision"
Bon ... j'ai observé que le soleil apparaissant tous le jours à l'est et se couchait à l'ouest --->> je vais en déduire que c'est le soleil, qui tourne autour de la terre

[patricktoulon]

et oui c'est un problème que tu a visiblement

on te donne une formule et comme mathématiquement elle ne correspond pas a ce que tu a appris .......

raisonne window non de dieu !!!

j'ai réédité mon dernier post test les msgbox
pointstoscreenpixels ne donne pas la conversion point to pixel il donne une position en en pixel par raport a un point ce qui (inclut plein de choses et de paramètres )
d'autant plus que tu le sait c'est toi même qui a soutenu qu'il fallait faire le calcul des left (application,activewindow,etc...)
purée t'est testard hein !!!!

Bon ... j'ai observé que le soleil apparaissant tous le jours à l'est et se couchait à l'ouest --->> je vais en déduire que c'est le soleil, qui tourne autour de la terre

et pour quelle raison n'en déduiront pas que c'est la terre qui tourne autour du soleil hein

le soleil bouje figure toi
sauf que la ou la terre met 1 an pour tourner autour du soleil le soleil lui met environ 260 millions d'années pour fait le tour de la voie lactée qui est son cercle de rotation
ce qui veux dire que dans x milles ans le même jour et même mois et même heure qu' aujourd'hui et que si on avait la possibilité de regarder la face visible du soleil on se rendrait compte que l'on voit pas la même face si tant est que l'on puisse le comparer le soleil n'étant pas une masse solide a proprement parler comme la terre
enfin bref
teste ces purées de msgbox

[unparia]

raisonne window non de dieu

Je suis très content d'avoir trouvé quelqu'un qui va m'expliquer cela !
J'attends donc l'exposé de "ton" mécanisme Windows. A défaut -->> excuse-moi ... je suis loin d'être preneur de ce "genre"-là !

purée t'est testard hein !!!!

ou alors -->> toi

[patricktoulon]

re

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
 
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const LOGPIXELSX = 88
Const LOGPIXELSY = 90
 
sub test1()
    hDC = GetDC(0)
    MsgBox "DPI X avec getdevicecap " & GetDeviceCaps(hDC, LOGPIXELSX)
    MsgBox "DPI Y avec getdevicecap " & GetDeviceCaps(hDC, LOGPIXELSY)
    MsgBox "DPI X  avec pointstoscreenpixels " & ((ActiveWindow.ActivePane.PointsToScreenPixelsY(3) - ActiveWindow.ActivePane.PointsToScreenPixelsY(0)) / 3) * 72
    MsgBox "DPI Y  avec pointstoscreenpixels " & (ActiveWindow.ActivePane.PointsToScreenPixelsX(3) - ActiveWindow.ActivePane.PointsToScreenPixelsX(0)) / 3 * 72
    MsgBox "coéfficient avec getdevicecap " & GetDeviceCaps(hDC, LOGPIXELSX) / 72
    MsgBox "coéfficient avec pointstoscreenpixels " & (ActiveWindow.ActivePane.PointsToScreenPixelsX(3) - ActiveWindow.ActivePane.PointsToScreenPixelsX(0)) / 3
    End Sub

point barre !!!
j'ai pas envie de m'éterniser la dessus cette contrib est suffisamment polluée comme ca

[patricktoulon]

2 autres solution avec regedit

exemple n° 1 ----> 1 W7 a W10

Code :

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

With CreateObject("WScript.Shell"): DPI= .RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI") : End With

exemple N°2 (donné par unparia)

Code :

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

1
2
Set objWSH = CreateObject("WScript.Shell")
DPI= objWSH.RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI")

[patricktoulon]

bonjour a tous
voici une petite fonction qui vous donne le dpi sans api
elle peut être très utiles pour les conversion point to pixel

Code :

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

1
2
3
4
5
6
Sub test()
MsgBox DPI_off_My_Screen
End Sub
Function DPI_off_My_Screen()
With ActiveWindow.ActivePane: DPI_off_My_Screen = (.PointsToScreenPixelsY(3) - .PointsToScreenPixelsY(0)) / 3 * 72: End With
End Function

exemple
la position d'un control dans le userform en pixel par rapport a l'ecran
bien entendu pour le rapport a l'userform il faudra calculer la position de l'userform moins son width ou height Inside * DPI_off_My_Screen /72
cette méthode est employé dans ma contribution tool bar dans userform en moins de deux dans la version sans apis (dernier post)

Code :

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

msgbox me.label1.left*DPI_off_My_Screen/72

2 autres solution avec regedit

exemple n° 1 ----> 1 W7 a W10

With CreateObject("WScript.Shell"): DPI= .RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI") : End With
exemple N°2 (donné par unparia)

1 2	Set objWSH = CreateObject("WScript.Shell") DPI= objWSH.RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI")

[unparia]

Bonjour
Une manière rigolote de procéder.
Ici, je distingue le dpi 96 du dpi 120 (Franck et moi allons tenter de faire un travail similaire avec 144) :

Code :

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

1
2
3
4
5
6
7
8
Private Function dpi() As Integer
  Dim anc As Single
  With ActiveSheet.Range("A" & Rows.Count)
    anc = .RowHeight: .RowHeight = 100.25
    If (.Height - Int(.Height)) * 100 Mod 25 = 0 Then dpi = 96 Else dpi = 120
    .RowHeight = anc
  End With
End Function

Exemple d'appel :

Code :

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

MsgBox dpi() & vbCrLf & "et donc --> " & dpi / 72

[patricktoulon]

Bonjour jacques

Code :

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

 If (.Height - Int(.Height)) * 100 Mod 25 = 0 Then dpi = 96 Else dpi = 120

si je comprends bien on peut donc sans le int récupérer la même différence que je trouve avec dpi registre /api et ma formule ptscrpix

je vais étudier cela de près ,on aurait ainsi les nuances d'erreur selon les colonnes
grosse semaine de boulot mais je regarderais le soir quand même

[unparia]

Je viens d'étendre le code du mécanisme, maintenant capable de déceler tous les dpi (96, 120, 144 et 192) --->>

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
19
Private Sub CommandButton1_Click()
  MsgBox dpi & vbCrLf & "et donc " & dpi() / 72
End Sub
Private Function dpi() As Double
  With ActiveSheet.Range("A" & Rows.Count)
    anc = .RowHeight
    .RowHeight = 100.25
    If (.Height - Int(.Height)) * 100 Mod 25 = 0 And (.Height - Int(.Height)) > 0 Then
       dpi = 96
    ElseIf (.Height - Int(.Height)) * 1000 Mod 200 = 0 And (.Height - Int(.Height)) > 0 Then
      dpi = 120
    ElseIf (.Height - Int(.Height)) Mod 100 = 0 Then
       dpi = 144
    ElseIf (.Height - Int(.Height)) * 1000 Mod 125 = 0 Then
       dpi = 192
    End If
    .RowHeight = anc
 End With
End Function