您的位置：首页 → 精文荟萃 → 破解文章 → 用VB编程实现任意修改Windows桌面背景

用VB编程实现任意修改Windows桌面背景

时间：2004/10/15 1:01:00来源：本站整理作者：蓝点我要评论(0)

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

　　　　
　　　　
　　　　　
　　　　
　　　　
　　　　　

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论