用VB实现Windows壁纸的自动更换
Auto-Changing Windows Wallpaper in VB作者机构:中国人民解放军理工大学理学院南京210016
出 版 物:《电脑学习》 (Computer Study)
年 卷 期:2001年第3期
页 面:27-28页
学科分类:08[工学] 0835[工学-软件工程] 081202[工学-计算机软件与理论] 0812[工学-计算机科学与技术(可授工学、理学学位)]
主 题:VB语言 程序设计 Windows 注册表 窗体 壁纸
摘 要:现给大家介绍一种自动更换壁纸的方法,它能使我们的桌面每次启动后都有“新感觉。 我们知道注册表中关于壁纸的主键为HKEY_CURRENT_USER\Control Panel\Desktop,相关键值名有三个,即Wallpaper:设置壁纸,其值为壁纸图像文件名;WallpaperStyle:设置用于填充壁纸周围剩余空间的Active Desktop样式;TileWallpaper:设置壁纸的显示方式。 更换壁纸只需更改相应的键值即可。实际上,WallpaperStyle和TileWallpaper的键值不需要更换,维持原值即可,如可以把WallpaperStyle的值保持为“2,TileWallpaper的值保持为“0。使用Win32 API注册函数更改键值后,再通知Windows更换壁纸。如果能把相应的exe文件放在某处,在Windows启动时自动执行,即可实现自动更换。下面是实现的具体步骤: