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

Code:

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 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~

[HyperRPG]

thx.