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 O’Reilly online learning.

O’Reilly members experience live online training, plus books, videos, and digital content from 200+ publishers.

Start your free trial