桌面背景任你改

　　众所周知在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实例七日谈(六)

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有