Mit Hilfe von Visual Basic und der SystemParametersInfo-API können Sie ganz leicht das Desktophintergrundbild ändern. So könnten Sie ein Programm schreiben, das den Desktophintergrundbild je nach Tages- oder Jahreszeit in einem anderem Licht erstrahlen lässt.

Ihre Bewertung:   1 2 3 4 5

Bewertung dieses Tipps:

(bewertet von insgesamt 13 Besuchern)

Um die folgenden Funktionen in eigenen Projekten nutzen zu können, müssen sie zuerst im Kopf der Form oder des Moduls deklariert werden:

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIniAs Long) As Long
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1
Private Const SPIF_SENDWININICHANGE = &H2

Nun benötigen wir noch eine kleine Routine, die das Ganze etwas komfortabler erledigt. Ich empfehle Ihnen, diese Prozedur in einem Modul zu plazieren, da sie dann projektweit verfügbar ist:

Function ChangeDeskPic(ByVal Filename As String) As Boolean
   ChangeDeskPic = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, Filename, SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE)
End Function

Anmerkung: Um das Hintergrundbild zu löschen, geben Sie einfach als Filename "(none)" ein.

Hier können Sie sich ein Beispielprojekt für Vb5 und Vb6 herunterladen, das vielleicht alles noch einmal etwas anschaulicher erklärt.

Projekt herunterladen

---

Quellen: SHADOWare.de Letzte Änderung: 26.01.01

©2001 by SHADOWare, Felix Weis