• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

用vb更换桌面墙纸diy

　　在客户运行您的应用程序的时候自动更换墙纸，显然是广告宣传的一个好机会。但无论是msdn还是网络上的免费资源代码，更换墙纸几乎都是同一个api函数systemparametersinfo和同一段代码，国外站点提供的免费代码也是如此。从vb4.0开始就这样。这段代码是：

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 spi_setdeskwallpaper = 20 const spif_sendwininichange = &h2 const spif_updateinifile = &h1 private sub form_load() 　　changewp = systemparametersinfo(spi_setdeskwallpaper, 　　　　　　　　 0, "path+bmpfile", 0) end sub

　　使用这个例程确实能够切换墙纸，但存在以下问题：

　　1、用鼠标右键点击桌面，会看到【背景】→【墙纸】里面的文件名是空的。

　　2、重新启动后桌面墙纸消失。

　　3、没告诉您怎么切换"居中"或"平铺"。

　　怎么解决这些问题呢？

　　1、windows的墙纸必须以bmp格式的文件存放在windows目录下面，如果您的图片不在该目录或不是bmp文件，那么就会出现第一个问题。因此必须把您的图片转换成bmp文件并复制到windows目录下面。

　　2、要使重新启动后需要在注册表里面修改相应的键值，具体位置是 hkey_current_user\control panel\desktop中的wallpaper键，让它的键值等于您的全路径文件名。

　　3、在更换墙纸以前首先设置是否"居中"，需要修改注册表中hkey_current_user\control panel\desktop中的tilewallpaper键，键值"0"表示"居中"，"1"表示"平铺"。

 

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

标准 网站致力的规范