Rubrik: System/Windows · Desktop/Bildschirm/Display | VB-Versionen: VB4, VB5, VB6 | 30.01.01 |
Desktop-Hintergrundbild ändern Das Hintergrundbild des Desktops lässt sich nicht nur über die Windows-Eigenschaften ändern, sondern auch direkt aus Ihrer VB-Anwendung heraus. | ||
Autor: Dieter Otter | Bewertung: | Views: 31.885 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Das Hintergrundbild des Desktops lässt sich nicht nur über den Windows-Eigenschaften-Dialog ändern, sondern auch direkt aus Ihrer VB-Anwendung heraus. Der nachfolgende Tipp zeigt, wie Sie das Bild des Desktop-Hintergrunds ändern oder auch die aktuelle Einstellung zurücksetzen können.
' zunächst die benötigten API-Funktionen Private Declare Function SystemParametersInfo Lib "user32" _ Alias "SystemParametersInfoA" ( _ ByVal uAction As Long, _ ByVal uParam As Long, _ ByVal lpvParam As Any, _ ByVal fuWinIni As Long) As Long Private Const SPIF_SENDWININICHANGE = &H2 Private Const SPI_SETDESKWALLPAPER = 20 Private Const SPIF_UPDATEINIFILE = &H1 ' Bilddatei (sFilename) muß BITMAP enthalten Public Sub SetDesktopWallpaper(ByVal sFilename As String) SystemParametersInfo SPI_SETDESKWALLPAPER, 0, sFileName, _ SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE End Sub ' kein Desktop-Hintergrund Public Sub NoDesktopWallpaper() SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "", _ SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE End Sub