Auflösung des Bildschirms ermitteln
Veröffentlicht am 05.09.2005
Bei vielen Anwendungen ist heutzutage eine Auflösung von 640 x 480 Pixel einfach zu wenig, um mehrere Fenster übersichtlich auf den Bildschirm zu präsentieren. Für Access-Anwendungen, in denen viele Formulare gleichzeitig geöffnet bleiben, wäre es von Vorteil, eine Warnung beim Programmstart anzuzeigen, wenn die Auflösung nicht mehr als 640 x 480 beträgt. Mit der API-Funktion GetSystemMetrics können Sie u.a. die Bildschirmauflösung ermitteln.
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