VB-Homepage Tipp 043

Hintergrundbild modifizieren

Da es zum Aufruf unter VB4, oder besser gesagt unter 32Bit, einige wenige aber wichtige Unterschiede zum Tipp für 16Bit, soll dies hier separat behandelt werden. Das Ergebnis bleibt aber das Selbe.

Öffnen Sie ein neues Projekt und geben Sie unter
Allgemein / Deklarationen folgendes ein.

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 SPI_SETDESKWALLPAPER = 20

Nun müssen Sie wiederum nur noch die Aktion zum Hintergrundbildwechsel ausführen.

(Form/Load oder Command1/Click)
BMPFILE$ = "Pfad und Name der Bilddatei"
Result% = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal BMPFILE$, SPIFlags%)


Tipp-Download

Quelle :

Zurück zur Übersichtsseite