桌面背景任你改

2004-6-11　作者：YUANXIANG＿W　转载自：中国电脑教育报　网友评论 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

今日推荐

• ·QQ邮箱新体验：容量自动翻倍，发送G级附件[组图]
• ·玩转科技奥运
• ·网络管理员必学手册
• ·从头学做网管系列教程: 如何合理规划局域网
• ·巧用QQ打开被网管隐藏的文件夹

• ·为何网管变成勤杂工
• ·网管严把服务器防火墙上"漏洞"
• ·初级网管的网络安全
• ·网管必读 教会用户自己给系统打补丁
• ·网络管理五大发展方向

重点推荐

领军企业技术文库

最新专题

电子杂志订阅

技术热点