R12.6 Die aktuelle Bildschirmauflösung bestimmen

Aufgabe

Bestimmen Sie die physikalische Auflösung des Bildschirms.

Lösung

Verwenden Sie die API-Funktion GetSystemMetrics.

Oberfläche

Zum Testen genügt ein einfaches Formular mit einem Textfeld und zwei Befehlsschaltflächen.

Quelltext

API-Funktion und zwei Konstanten einbinden:

Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Die Verwendung der API-Funktion (wir verzichten aus nahe liegenden Gründen auf eine Hilfsfunktion):

Private Sub OK_Click() Meldung.Value = "<b>Bildschirmauflösung (X): </b>" & GetSystemMetrics(SM_CXSCREEN) & "<br>" & _ "<b>Bildschirmauflösung (Y): </b>" & GetSystemMetrics(SM_CYSCREEN) End ...

Get Microsoft Access Programmierrezepte now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.

Start your free trial