|
首先在VB中创建一个窗体并在其中加入一个命令按钮，第一步在窗体的通用段中输入以下代码： hHDLinux联盟
hHDLinux联盟
hHDLinux联盟
Const SPI_SETDESKWALLPAPER = 20 hHDLinux联盟
hHDLinux联盟
Const SPIF_UPDATEINIFILE = &&H1 hHDLinux联盟
hHDLinux联盟
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 hHDLinux联盟
hHDLinux联盟
注：如果以上的声明放在“一般模块”下，应在Const之前加上Public保留字，并且将Private保留字去掉。 hHDLinux联盟
hHDLinux联盟
然后在命令按钮中的Click事件中输入以下代码： hHDLinux联盟
hHDLinux联盟
'将桌面图片设定成c:＼windows＼CIRCLES.bmp hHDLinux联盟
hHDLinux联盟
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,"c:＼windows＼CIRCLES.bmp", SPIF_UPDATEINIFILE) hHDLinux联盟
hHDLinux联盟
'将桌面图片清除 hHDLinux联盟
hHDLinux联盟
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,"",SPIF_UPDATEINIFILE) hHDLinux联盟
hHDLinux联盟
但以上程序设定图片之后，必须等到下次Windows重新启动时才生效，如果要设定之后立刻生效，则程序须修改如下： hHDLinux联盟
hHDLinux联盟
Const SPIF_SENDWININICHANGE = &&H2 hHDLinux联盟
hHDLinux联盟
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:＼windows＼CIRCLES.bmp", SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE ) hHDLinux联盟
hHDLinux联盟
此外如果只有本次使用Windows时改变桌面图片(下次开机时还原原状)，则程序如下： hHDLinux联盟
hHDLinux联盟
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:＼windows＼CIRCLES.bmp", SPIF_SENDWININICHANGE ) '去掉SPIF_UPDATEINIFILE
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
