[VB6] Risoluzione schermo 19"

[LMondi]

Dovrei rilevare la risoluzione del monitor corrente, per fare ciò uso:
pixelWidth = Screen.Width / Screen.TwipsPerPixelX
pixelHeight = Screen.Height / Screen.TwipsPerPixelY

Vorrei sapere da chi ha un'esperienza in merito, se i parametri Screen.TwipsPerPixelX e Screen.TwipsPerPixelY - variano con le dimensioni dello schermo. In altri termini ho rilevato che Screen.TwipsPerPixelX e Y per un monitor a 17" hanno come parametro 15; per un monitor a 19" il predetto parametro è maggiore o comunque diverso da 15 ?
Grazie per la collaborazione.

[oregon]

Non dovrebbe ma non vedo perche' la cosa possa importare ...

In un programma tu usi sempre le due costanti e non hai problemi.

[LMondi]

Oregon, grazie per la risposta.
Mi è capitato recentemente un errore su un programma che non riconosceva la risoluzione 1024x768 su un monitor a 19" - anche se la ris. era impostata correttamente; in tal caso usavo la costante 15.
Ho modificato il codice così, cosa ne dici, è corretto:

Public Function CheckScreenSize(pixelWidth As Long, pixelHeight As Long) As Boolean
   
    Dim lngTwipsX As Long
    Dim lngTwipsY As Long

    pixelWidth = Screen.Width / Screen.TwipsPerPixelX
    pixelHeight = Screen.Height / Screen.TwipsPerPixelY

'Verifica delle dimensioni schermo:
    If pixelWidth >= 1024 And pixelHeight >= 768 Then
        CheckScreenSize = True
    Else
        CheckScreenSize = False
    End If
    
End Function

Fammi sapere.

[oregon]

Dovrebbe andare ...

[LMondi]

Oregon,
Grazie per l'attenzione.