用VB实现任意修改Win桌面背景

时间:2010-01-27 11:10:19  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:n 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事件中输入以下代码: ...
  正文:

首先在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实现任意修改Win桌面背景》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/VB/12474.html


关键字:

关于《用VB实现任意修改Win桌面背景》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td