Auflösung des Bildschirms ermitteln

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

Dienstleistungen

Als starker Partner an Ihrer Seite unterstützen wir Sie in folgenden Breichen:

Access-Programmierung

Benötigen Sie Unterstützung bei der Programmierung von Access-Anwendungen? Wir bieten die gesamte Bandbreite von der Access-Programmierung auf Stundenbasis bis zur Durchführung eines Software-Projektes als Auftragsarbeit an. Kontaktieren Sie uns für ein kostenloses Erstgespräch.

Software-Beratung

Haben Sie ein Software-Projekt und Sie wissen nicht, ob Access die richtige Plattform ist? Wir haben über 20 Jahre Erfahrung beim Erstellen von Windows-, Web und mobilen Anwendungen. Kontaktieren Sie uns für eine kostenlose Erstberatung.