Microsoft Access Programmierrezepte

R12.28 Den Bildschirmschoner aktivieren bzw. deaktivieren

Aufgabe

Soll der Anwender bei längeren Datenbankoperationen über den aktuellen Status informiert werden, ist es meist lästig, wenn sich dauernd der Bildschirmschoner meldet.

Lösung

Verwenden Sie die API-Funktion SystemParametersInfo, um den »ungebetenen Gast« hinaus zu komplimentieren.

Oberfläche

Lediglich ein Formular mit zwei Befehlsschaltflächen ist erforderlich.

Quelltext

Einbinden der API-Funktion:

Private Const SPI_SETSCREENSAVEACTIVE = 17

Private Declare Function SystemParametersInfo Lib "user32" Alias _
        "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
        ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Screensaver deaktivieren:

Private Sub Befehl1_Click() SystemParametersInfo ...