TwipsPerPixel in Access

[freewilly]

Hi Team

Does anyone know how to get the VB equivilent of Screen.TwipsPerPixel in Access?

I'm want to be able to edit the values in a ListView by double clicking it. I need TwipsPerPixel to know where I clicked.

Thanks

FW

 

[oharab]

Microsoft Knowledge Base Article - 210590 gives you the function you need:

http://support.microsoft.com/defaul...port/kb/articles/Q210/5/90.asp&NoWebContent=1

Option Explicit

Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
ByVal hdc As Long) As Long
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long

Const WU_LOGPIXELSX = 88
Const WU_LOGPIXELSY = 90

Function ConvertTwipsToPixels (lngTwips as Long, _
lngDirection as long) As Long

'Handle to device
Dim lngDC as long
Dim lngPixelsPerInch as Long
Const nTwipsPerInch = 1440
lngDC = GetDC(0)

If (lngDirection = 0) Then 'Horizontal
lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSX)
Else 'Vertical
lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSY)
End If
lngDC = ReleaseDC(0, lngDC)
ConvertTwipsToPixels = (lngTwips / nTwipsPerInch) * lngPixelsPerInch

End Function


hth

Ben

----------------------------------------------
Ben O'Hara

http://www.RobotParade.co.uk

"Where are all the stupid people from...
...And how'd they get so dumb?"
NoFX-The Decline
----------------------------------------------

 

[freewilly]

Thanks hth

Just what I needed

FW