设置桌面图片？
我想用VB来设置桌面背景，能设置不同位置，我是指平铺，拉伸，还有居中，现在我手中的代码，只能设置，不能改变方式。 问题点数：20、回复次数：5Top
1 楼lsftest（）回复于 2006-03-19 17:19:46 得分 6
调用SystemParametersInfo修改桌面背景之前， 修改注册表的以下设定值：
HKEY_CURRENT_USER\Control Panel\Desktop\TileWallpaper
HKEY_CURRENT_USER\Control Panel\Desktop\WallpaperStyle
这两个设定值的意义如下：
TileWallpaper的设定值 WallpaperStyle的设定值 显示方式
"0" "0" 居中
"0" "2" 平铺
"1" - 拉伸
Top
2 楼rxbs（rxbs）回复于 2006-04-11 08:01:36 得分 0
那如何具体实现呢?如何修改注册表?Top
3 楼verywzm（寒江雪）回复于 2006-04-11 10:06:17 得分 6
RegOpenKeyEx
RegCloseKey
RegCreateKey
RegDeleteKey
RegQueryValueEx
RegQueryValueExA
RegSetValueEx
RegSetValueExA
RegSetValueExB
用这些函数，具体看MSDNTop
4 楼WallesCai（女人之美,在于蠢得无怨无悔,男人之美,在于撒谎撒得白日见鬼）回复于 2006-04-17 14:29:58 得分 8
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
...
sub command_click()
Dim ChangeWP as long
ChangeWP = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\1.bmp", 0)
end subTop
5 楼WallesCai（女人之美,在于蠢得无怨无悔,男人之美,在于撒谎撒得白日见鬼）回复于 2006-04-17 14:32:34 得分 0
平铺，拉伸，还有居中,就算不知道怎么设,也可以通过别的方法做到:
将手头的图像处理成平铺，拉伸，居中的图片保存一下再设成背景,就一样了.
不能解决的问题就绕过去吧.不用一头撞到黑Top
