Jabaco Source

'-Begin------------------------------------------------------------------
  '-External Functions---------------------------------------------------
    Private WinAPI Function GetDC Lib "user32.dll" _
      (ByVal hwnd As Long) As Long
    Private WinAPI Function ReleaseDC Lib "user32.dll" _
      (ByVal hwnd As Long, ByVal hdc As Long) As Long
    Private WinAPI Function GetDeviceCaps Lib "gdi32.dll" _
      (ByVal hdc As Long, ByVal nIndex As Long) As Long
  '-Constants------------------------------------------------------------
    Private Const HWND_DESKTOP As Long = 0
    Private Const LOGPIXELSX As Long = 88
    Private Const LOGPIXELSY As Long = 90
  '-TwipsPerPixelX-------------------------------------------------------
    Private Function TwipsPerPixelX() As Float
      Dim hDC As Long
      Dim Result As Float
      hDC = GetDC(HWND_DESKTOP)
      Result = 1440 / GetDeviceCaps(hDC, LOGPIXELSX)
      ReleaseDC(HWND_DESKTOP, hDC)
      TwipsPerPixelX = Result
    End Function  
  '-TwipsPerPixelY-------------------------------------------------------
    Private Function TwipsPerPixelY() As Float
      Dim hDC As Long
      Dim Result As Float
      hDC = GetDC(HWND_DESKTOP)
      Result = 1440 / GetDeviceCaps(hDC, LOGPIXELSY)
      ReleaseDC(HWND_DESKTOP, hDC)
      TwipsPerPixelY = Result
    End Function  
  '-Main-----------------------------------------------------------------
    Public Sub Command1_Click()
      Debug.Print CStr(TwipsPerPixelX() & " " & TwipsPerPixelY())
    End Sub
'-End--------------------------------------------------------------------