桌面背景任你改

　　众所周知在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

上一篇： 自己的邮件自己发
下一篇： 小叮当也战江湖—VB实例七日谈(六)

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!