Desktop-Background bei VB

Hallo,

weiß jemand von euch wie ich bei VB auf das Desktop-Hintergrundbild zugreifen und verändern kann??

Also ueber die Windows-API kannst du das so loesen

Code:

---

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, (PCHAR)filename, SPIF_SENDCHANGE);

---

Wie das aber in VB zu implementieren ist, kann ich nicht sagen ...

Was man nicht alles mit §google findet ;).

Code:

---

'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) muss 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

---

Das Ganze in ein Modul packen und fertig.

vbarchiv.net

~RB~

thx.