Desktop-Background bei VB

[HyperRPG]

Hallo,

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

[Ineluki]

Also ueber die Windows-API kannst du das so loesen


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

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

[RB [Redbounty]]

Was man nicht alles mit §google (http://www.google.de) findet ;).



'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 (http://www.vbarchiv.net/archiv/tipp_113.html)

~RB~

[HyperRPG]

thx.