[RESOLVED] How to use setprocessdpiawarenes in VB6

[JohnTurnbull]

Just upgraded my Windows 10 to build 10162 to find that setprocessdpiaware is no longer supported!

Does anyone know how to declare and use setprocessdpiawareNESS in VB6?

I want to use the function not a manifest entry.

[dilettante]

SetProcessDPIAware has been deprecated for a decade.

About the only reason I can imagine anyone ever using it might be Windows XP support, but few Windows XP systems ever faced high DPI issues because monitor technology had not gotten out of control until XP was retired in 2006.

In any case of XP is your reason for this you could always use both and trap/ignore the exception on your attempt to call SetProcessDPIAware on uplevel systems. I can't think of any other workaround besides a version check, but that amounts to the same thing anyway because you still need both.

[JohnTurnbull]

Thank you for answering but you misread my question which was.....

Does anyone know how to declare and use setprocessdpiawareNESS in VB6?

[Bonnie West]

Try this (untested!) code:

Option Explicit

Private Enum PROCESS_DPI_AWARENESS
    Process_DPI_Unaware = 0
    Process_System_DPI_Aware = 1
    Process_Per_Monitor_DPI_Aware = 2
End Enum
#If False Then
    Dim Process_DPI_Unaware, Process_System_DPI_Aware, Process_Per_Monitor_DPI_Aware
#End If

Private Declare Function SetProcessDpiAwareness Lib "shcore.dll" (ByVal Value As PROCESS_DPI_AWARENESS) As Long

Private Sub Main()
    Const S_OK = &H0&, E_INVALIDARG = &H80070057, E_ACCESSDENIED = &H80070005

    Select Case SetProcessDpiAwareness(Process_System_DPI_Aware)
        Case S_OK:           MsgBox "The current process is set as dpi aware.", vbInformation
        Case E_INVALIDARG:   MsgBox "The value passed in is not valid.", vbCritical
        Case E_ACCESSDENIED: MsgBox "The DPI awareness is already set, either by calling this API " & _
                                    "previously or through the application (.exe) manifest.", vbCritical
    End Select
End Sub

See the SetProcessDpiAwareness function's documentation for more info.

[JohnTurnbull]

Many thanks!
I couldn't find that declaration anywhere.

[dilettante]

Thank you for answering but you misread my question...

Yes, I clearly did.