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

Unsere 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.

JETZT KONTAKTIEREN

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.

JETZT KONTAKTIEREN