Rubrik: System/Windows · Desktop/Bildschirm/Display | VB-Versionen: VB4, VB5, VB6 | 19.06.01 |
Bildschirmschoner aktivieren/deaktivieren Beispiel, das demonstriert, wie sich der Bildschirmschoner in den System-Einstellungen unter "Bildschirm" an- und abschalten lässt. | ||
Autor: Marcel Colley | Bewertung: | Views: 29.781 |
go.to/gigawin | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Dieses Beispiel demonstriert, wie sich der Bildschirmschoner in den System-Einstellungen unter "Eigenschaften von Anzeige" aktivieren bzw. deaktivieren lässt.
' benötigte API-Deklaration 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 Private Const SPI_SETSCREENSAVEACTIVE = 17
' Bildschirmschoner abschalten SystemParametersInfo SPI_SETSCREENSAVEACTIVE, _ CLng(False), &H0, 0
' Bildschirmschoner wieder einschalten SystemParametersInfo SPI_SETSCREENSAVEACTIVE, _ CLng(True), &H0, 0
Hinweis:
Mit diesem Tipp lässt sich nur die Einstellung in den Systemeinstellungen ändern. Der Code ist nicht dazu da, den Bildschirmschoner per Code zu starten.
Siehe hierzu auch:
Bildschirmschoner starten