桌面背景任你改
出处：中国电脑教育报
责任编辑：pcedu
[04-2-14 9:27] 作者：YUANXIANG＿W
·热点推荐:·音频之王争霸战:WinampVS Foobar ·补丁竟也需修补！微软悄悄为补丁打补丁 ·鹿死谁手?国产优化软件大比拼! ·数据库学习:查询区分大小写 一周新软点评:拥有100GB资源的播放器 ·最炫情书:2月14日的特别来信 ·节日影片拍摄后期处理速成 ·情书宝鉴之:心要让你听见 ·情书宝鉴之:真情告白 ·调优Web站点性能完全攻略 ·绘制西门子sl55手机 ·Fireworks制作 IE 浏览器图标 ·茶·咖啡·果汁-PS营造休闲气氛 ·用Photoshop画一颗松树 ·趣味游戏,挑战自我:打企鹅 ·情人节日主题屏保-爱
众所周知在Windows中可以通过属性面板任意修改背景图案，要在VB的程序设计中实现这一功能其实也很方便，具体实现方法如下：
首先在VB中创建一个窗体并在其中加入一个命令按钮，第一步在窗体的通用段中输入以下代码：
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 保留字去掉。
然后在命令按钮中的Click事件中输入以下代码：
'将桌面图片设定成 c:\windows\CIRCLES.bmp
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,"c:\windows\CIRCLES.bmp", SPIF_UPDATEINIFILE)
'将桌面图片清除
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,"",SPIF_UPDATEINIFILE)
但以上程序设定图片之后， 必须等到下次 Windows 重新启动时才生效， 如果要设定之后立刻生效，则程序须修改如下：
Const SPIF_SENDWININICHANGE = &&H2
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\windows\CIRCLES.bmp", SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE )
此外如果只有本次使用 Windows 时改变桌面图片(下次开机时还原原状)， 则程序如下：
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\windows\CIRCLES.bmp", SPIF_SENDWININICHANGE ) ' 去掉 SPIF_UPDATEINIFILE