首先在VB中创建一个窗体并在其中加入一个命令按钮，第一步在窗体的通用段中输入以下代码：
　　
　　
　　ConstSPI_SETDESKWALLPAPER=20
　　
　　ConstSPIF_UPDATEINIFILE=&&H1
　　
　　PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,ByVallpvParamAsAny,ByValfuWinIniAsLong)AsLong
　　
　　注：如果以上的声明放在“一般模块”下，应在Const之前加上Public保留字，并且将Private保留字去掉。
　　
　　然后在命令按钮中的Click事件中输入以下代码：
　　
　　'将桌面图片设定成c:＼windows＼CIRCLES.bmp
　　
　　CallSystemParametersInfo(SPI_SETDESKWALLPAPER,0,"c:＼windows＼CIRCLES.bmp",SPIF_UPDATEINIFILE)
　　
　　'将桌面图片清除
　　
　　CallSystemParametersInfo(SPI_SETDESKWALLPAPER,0,"",SPIF_UPDATEINIFILE)
　　
　　但以上程序设定图片之后，必须等到下次Windows重新启动时才生效，如果要设定之后立刻生效，则程序须修改如下：
　　
　　ConstSPIF_SENDWININICHANGE=&&H2
　　
　　CallSystemParametersInfo(SPI_SETDESKWALLPAPER,0,"c:＼windows＼CIRCLES.bmp",SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)
　　
　　此外如果只有本次使用Windows时改变桌面图片(下次开机时还原原状)，则程序如下：
　　
　　CallSystemParametersInfo(SPI_SETDESKWALLPAPER,0,"c:＼windows＼CIRCLES.bmp",SPIF_SENDWININICHANGE)'去掉SPIF_UPDATEINIFILE->

    希望这篇用VB实现任意修改Win桌面背景的文章能够对您有所帮助，如果您觉得这篇网站维护教程有用的话，别忘了推荐给您的朋友哦！如果您有好的经验方法，不妨拿出来和大家一起分享：假如每个人都拿出一个经验，那么我们都将额外的获取一堆他人的经验。
请记住本站永久域名：（黑客防线网安服务器维护方案维护基地）Www.Rongsen.Com.Cn