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:     [ Jetzt bewerten ]	Views:  32.838
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 42 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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