Infobulle sur image

Me.Width = ScreenWidth * PointsPerPixel
Me.Height = ScreenHeight * PointsPerPixel

Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long 
Public Declare Function GetDC Lib "user32" _
    (ByVal hwnd As Long) As Long


Public Declare Function GetDeviceCaps Lib "gdi32" _
    (ByVal hDC As Long, ByVal nIndex As Long) As Long


Public Declare Function ReleaseDC Lib "user32" _
    (ByVal hwnd As Long, ByVal hDC As Long) As Long
    
Public Const SM_CXSCREEN = 0   'Screen width
Public Const SM_CYSCREEN = 1   'Screen height
Public Const LOGPIXELSX = 88  'Pixels/inch in X

'Adapté d'une idée de Pearson
'A point is defined as 1/72 inches
Private Const POINTS_PER_INCH As Long = 72

'The width of the screen, in pixels
Public Function ScreenWidth() As Long
 ScreenWidth = GetSystemMetrics(SM_CXSCREEN)
End Function


'The height of the screen, in pixels
Public Function ScreenHeight() As Long
 ScreenHeight = GetSystemMetrics(SM_CYSCREEN)
End Function


'The size of a pixel, in points
Public Function PointsPerPixel() As Double


 Dim hDC As Long
 Dim lDotsPerInch As Long


 hDC = GetDC(0)
 lDotsPerInch = GetDeviceCaps(hDC, LOGPIXELSX)
 PointsPerPixel = POINTS_PER_INCH / lDotsPerInch
 ReleaseDC 0, hDC
End Function