Find Users screen resolution in twips

[jsunnb]

So I've got a database where all my forms/switchboards are done as pop-ups and the actual access application window is hidden.



For some of the forms that pop-up, I have them size themselves to the users computer screen using this programming

Declare Function GetSystemMetrics32 Lib "user32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Private Sub Form_Open(Cancel As Integer)    
    MonitorW = GetSystemMetrics32(0) * 1440 / 96
    MonitorH = GetSystemMetrics32(1) * 1440 / 96
    
    Me.Move 600, 600, MonitorW - 1200, MonitorH - 2000
End Sub

The problem is that I'm using the assumption that all the monitors have a dpi of 96 which I've found out isn't true. Mostly, because some of the users are older and have there text sent the larger formats in windows which evidently affect the dpi of the monitor. (I know this from my self having my monitors set at 1920x1080 and this code works, and a different user who has the exact same monitors set to 1920x1080 but with the text set to large format in windows, and the form opens larger than the monitor)

Is there a way to just measure the monitor size in twips or find out what windows current have their dpi set to?

Thank you for any help
Jason

[June7]

Google: VBA screen resolution

http://www.vbaexpress.com/kb/getarticle.php?kb_id=32

[ssanfu]

Also
http://access.mvps.org/access/api/api0012.htm
http://access.mvps.org/access/api/api0029.htm
http://support.microsoft.com/kb/210603
http://www.pcreview.co.uk/forums/get...-t3224107.html

[jsunnb]

Well, I actually already have the code to get the screen resolution in pixels. The problem is that access sizes everything in Twips... no idea why though.
Here is what I know:
1 inch = 1440 Twips
1 inch = dpi of monitor or Pixels per Inch (most monitors are 96 dpi or pixels per inch)

to find Twip resolution of monitor you have to divide pixel resolution by dpi, then multiply by the Twips/inch

example: 1920pix * 1440 Twips/inch
example: 96 pix/inch
So depending no you monitor, the number of Twips (what access uses) will change. (Monitors have different DPI and the user setting can affect DPI as well)
And as I was saying in my post, if a user has their font made larger (see attachment) then the DPI of the screen changes (even though the resolution says they are at the max)

So My assumption of 96dpi isn't always accurate. That's why I was hoping to find out if there was either a way to get the resolution measured in Twips or see what the current DPI is.

[June7]

Ooops, guess I should have read more carefully. You need the specs for the monitor? And also the resolution setting? That's a new one!


Google: VBA get monitor specifications
Sample of VB.net indicates there is a Screen class, don't know if this is translatable to VBA.
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[jsunnb]

I found a way to find what the user currently has their DPI set at, it's not exactly what I wanted, but with knowing their screen resolution and their DPI (and knowing that 1440 Twips / Inch is static) I can get what I wanted without the user having to set anything.

Private Const LOGPIXELSX As Long = 88Private Declare Function GetDeviceCaps Lib "gdi32.dll" ( _
ByVal hdc As Long, _
ByVal nIndex As Long) As Long

Private Declare Function GetDC Lib "user32.dll" ( _
ByVal hwnd As Long) As Long

Declare Function ReleaseDC Lib "user32.dll" ( _
ByVal hwnd As Long, _
ByVal hdc As Long) As Long

Public Function GetDpi() As Long
Dim hdcScreen As Long
Dim iDPI As Long
iDPI = -1
hdcScreen = GetDC(0)
If (hdcScreen) Then
iDPI = GetDeviceCaps(hdcScreen, LOGPIXELSX)
ReleaseDC 0, hdcScreen
End If
GetDpi = iDPI
End Function

[PeterCole]

'Version that will work with 32-bit and 64-Bit version. PtrSafe added and some Long variables defined as LongPtr

Private Const LOGPIXELSX As Long = 88
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32.dll" ( _
ByVal hdc As LongPtr, _
ByVal nIndex As Long) As Long


Private Declare PtrSafe Function GetDC Lib "user32.dll" ( _
ByVal hwnd As LongPtr) As Long


Declare PtrSafe Function ReleaseDC Lib "user32.dll" ( _
ByVal hwnd As LongPtr, _
ByVal hdc As LongPtr) As Long




Public Function GetDpi() As Long
Dim hdcScreen As LongPtr
Dim iDPI As Long
  iDPI = -1
  hdcScreen = GetDC(0)
  If (hdcScreen) Then
    iDPI = GetDeviceCaps(hdcScreen, LOGPIXELSX)
    ReleaseDC 0, hdcScreen
  End If
  GetDpi = iDPI
End Function

[CJ_London]

Always worth checking how old the thread is - 11years in this case. Better to start a new thread - perhaps in the programming forum

[Micron]

IMO not entirely a bad thing when a question is not being asked, but instead a solution or update is given. It could help anyone who stumbles on this in a search. I probably would not start a new thread and link to this one either, unless I had a question.

[moke123]

Glad it was a short thread. Unfortunately I tried the code and it reported 96 dpi. Changed text to 150% and still 96 dpi.

[isladogs]

DPI depends on hardware but is almost always 96
It does not change when either resolution or scaling factor is changed.
In fact all that increasing the scaling factor does is reduce the effective resolution.

In fact, in my automatic form resizing application, I set the DPI as a constant = 96. See Automatic Form Resizing - 3 (isladogs.co.uk)
In over 15 years of using this on numerous machines, including those with default scaling = 125%. I have never needed to alter it ... but I provide the option if needed.