VB-Homepage Tipp 042
Hintergrundbild modifizieren
Ein recht interessanter und wenn weiß, wie es geht,
auch gar nicht schwer nachvollziehbarer Tipp.
Möchten Sie also das Hintergrundbild ändern, gehen Sie unter 16Bit folgender Maßen vor.

Öffnen Sie ein neues Projekt und geben Sie unter
General / Declaration folgendes ein.

Declare Function SystemParametersInfo Lib "User" (ByVal uAction As Integer, ByVal uParam As Integer, lpvParam As Any, ByVal fuWinIni As Integer) As Integer

Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2
Const SPIF_UPDATEINIFILE = &H1


Nun müssen Sie nur noch einer Aktion
(Form/Load oder Command1/Click) folgendes ausführen lassen.

BMPFILE$ = "Pfad und Name der Bilddatei"
Result% = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal BMPFILE$, SPIFlags%)

Auch wenn Sie es nicht glauben, das war's schon.
Tipp-Download
Quelle :
Zurück zur Übersichtsseite