Microsoft Access Programmierrezepte

R12.27 Die Anzahl der Bildschirme bestimmen

Aufgabe

Bestimmen Sie die Anzahl der Monitore, die an den Anwender-PC angeschlossen sind.

Lösung

Wir verwenden die API-Funktion GetSystemMetrics.

Oberfläche

Auf dem Formular platzieren Sie lediglich zwei Befehlsschaltflächen und ein Textfeld.

Quelltext

Das Einbinden der API-Funktion:

Private Declare Function GetSystemMetrics& Lib "user32" (ByVal l&)

Eine kleine Hilfsfunktion:

Function GetMonitors&()
  GetMonitors = GetSystemMetrics(80)
End Function

Die Verwendung:

Private Sub OK_Click()
  Meldung.value = "Das System verfügt über " & GetMonitors & "Monitor(e)"
End Sub

Test

Öffnen Sie das Formular und klicken Sie auf die Start-Schaltfläche.

Abbildung 12.27 Laufzeitansicht