Der Funktion wird ein Parameter übergeben, der die gewünschte Information darstellt. Das Ergebnis ist ein Long-Wert in der Einheit Pixel:
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long)
As Long
Zur Ermittlung der Bildschirmauflösung rufen Sie GetSystemMetrics zweimal auf, und zwar mit den folgenden Konstanten als Parametern:
Public Const SM_CXSCREEN = 0 ' Breite ermitteln
Public Const SM_CYSCREEN = 1 ' Höhe ermitteln
Um festzustellen, ob die Bildschirmauflösung nur 640 x 480 Pixel beträgt, verwenden Sie GetSystemMetrics auf folgende Weise:
Public Function AuflösungZuWenig() As Boolean
Dim SchirmBreite As Long, SchirmHöhe As Long
Dim lHilfeFenster As Long
' Breite des gesamten Bildschirms
SchirmBreite = GetSystemMetrics(SM_CXSCREEN) SchirmHöhe =
' Höhe des gesamten Bildschirms
GetSystemMetrics(SM_CYSCREEN)
AuflösungZuWenig = (SchirmBreite <= 640 And SchirmHöhe <= 480)
End Function