Screen.TwipsPerPixelX équivalent en VBA [Résolu]

antoineraymond 99 Messages postés mardi 6 avril 2004Date d'inscription 4 décembre 2008 Dernière intervention - 18 mai 2005 à 20:19 - Dernière réponse : Neo.balastik 797 Messages postés jeudi 17 mai 2001Date d'inscription 5 mai 2009 Dernière intervention
- 19 mai 2005 à 08:53
J'aimerais savoir si il y a un équivalent à "Screen.TwipsPerPixelX" dans VBA (Access)


Merci


Antoine
Afficher la suite 

6 réponses

Neo.balastik 797 Messages postés jeudi 17 mai 2001Date d'inscription 5 mai 2009 Dernière intervention - 18 mai 2005 à 22:04
+3
Utile
Salut ;O)

Non ! Aucune équivalence.
Mais voici 2 fonctions (à mettre dans un module) qui te feront certainement plaisir :
fTwipsToPixels
fPixelsToTwips

'API DECLARATION
Public Declare Function apiGetDC Lib "user32" Alias "GetDC" (ByVal hWnd As Long) As Long
Public Declare Function apiGetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" (ByVal hDC As Long, ByVal nIndex As Long) As Long

'CONSTANT DECLARATION
Public Const DIRECTION_VERTICAL = 1
Public Const DIRECTION_HORIZONTAL = 0
Private Const LOGPIXELSX = 88
Private Const LOGPIXELSY = 90

Function fTwipsToPixels(lngTwips As Long, lngDirection As Long) As Long
' Function to convert Twips to pixels for the current screen resolution
' Accepts:
' lngTwips - the number of twips to be converted
' lngDirection - direction (x or y - use either DIRECTION_VERTICAL or DIRECTION_HORIZONTAL)
' Returns:
' the number of pixels corresponding to the given twips
On Error GoTo E_Handle
Dim lngDeviceHandle As Long
Dim lngPixelsPerInch As Long
lngDeviceHandle = apiGetDC(0)
If lngDirection = DIRECTION_HORIZONTAL Then
lngPixelsPerInch = apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSX)
Else
lngPixelsPerInch = apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSY)
End If
lngDeviceHandle = apiReleaseDC(0, lngDeviceHandle)
fTwipsToPixels = lngTwips / 1440 * lngPixelsPerInch
fExit:
On Error Resume Next
Exit Function
E_Handle:
MsgBox Err.Description, vbOKOnly + vbCritical, "Error: " & Err.Number
Resume fExit
End Function

Function fPixelsToTwips(lngPixels As Long, lngDirection As Long) As Long
On Error GoTo E_Handle

Dim lngDeviceHandle As Long
Dim lngPixelsPerInch As Long
lngDeviceHandle = apiGetDC(0)
If lngDirection = DIRECTION_HORIZONTAL Then
lngPixelsPerInch = apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSX)
Else
lngPixelsPerInch = apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSY)
End If
lngDeviceHandle = apiReleaseDC(0, lngDeviceHandle)
fPixelsToTwips = lngPixels * 1440 / lngPixelsPerInch
fExit:
On Error Resume Next
Exit Function
E_Handle:
MsgBox Err.Description, vbOKOnly + vbCritical, "Error: " & Err.Number
Resume fExit
End Function

Guy
Cette réponse vous a-t-elle aidé ?  
Neo.balastik 797 Messages postés jeudi 17 mai 2001Date d'inscription 5 mai 2009 Dernière intervention - 18 mai 2005 à 22:05
+3
Utile
Oups ! Il manque une déclaration API :

Public Declare Function apiReleaseDC Lib "user32" Alias "ReleaseDC" (ByVal hWnd As Long, ByVal hDC As Long) As Long

Guy
Cette réponse vous a-t-elle aidé ?  
antoineraymond 99 Messages postés mardi 6 avril 2004Date d'inscription 4 décembre 2008 Dernière intervention - 18 mai 2005 à 22:21
0
Utile
Merci

Antoine
Neo.balastik 797 Messages postés jeudi 17 mai 2001Date d'inscription 5 mai 2009 Dernière intervention - 18 mai 2005 à 22:31
0
Utile
En fait, à relire ta question, ces fonctions n'y répondent pas directement. Elles ne donnent pas une équivalence à TwipsPerPixelX, mais j'ai supposé que tu cherchais à convertir tes Twips en pixels et vice-versa...

Guy
Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention - 18 mai 2005 à 22:50
0
Utile
aucune idée si ça marche en VBa (?)



MsgBox ScaleX(1, vbPixels, vbTwips)



ou



MsgBox ScaleY(1, vbPixels, vbTwips)




Daniel
Neo.balastik 797 Messages postés jeudi 17 mai 2001Date d'inscription 5 mai 2009 Dernière intervention - 19 mai 2005 à 08:53
0
Utile
Daniel > voilà ce qui fait la différence entre VB et VBA. Bcp de fonctions de ce genre sont inexistantes et donc, passer par API est la seule alternative.
ScaleX et ScaleY sont inconnus au bataillon de VBA...

Guy

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.