28.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 24 行

如何改变桌面的图片？ 
此一问题需调用 SystemParametersInfo API 函数，细节如下：
1. API 的声明：
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
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
注：如果以上的声明放在「一般模块」底下， 应在 Const 之前加上 Public 保留
字， 并且将 Private 保留字去掉。
2. 程序范例：
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BMP图档名称, 
SPIF_UPDATEINIFILE)
例如:
' 1. 将桌面图片设定成 c:\windows\setup.bmp
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\windows\setup.bmp
", SPIF_UPDATEINIFILE)
' 2. 将桌面图片清掉
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "", 
SPIF_UPDATEINIFILE)
程序如下：
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BMP图档名称, 
SPIF_UPDATEINIFILE