英特尔®游戏设计大赛100美元现金周周送	专题改版：Java Web 专题

更该不了桌面墙纸

楼主rocketliu8899（rocket）2003-08-01 10:57:50 在 VB / API 提问

我用
call systemparametersinfo(20,0,"c:\star.bmp",&H1)

更改桌面墙纸,但没有反映也没有报告错误请问是什么原因问题点数：0、回复次数：9Top

1 楼wxy_xiaoyu（猪是的看来过倒）回复于 2003-08-01 17:44:17 得分 0

改变墙纸
声明：
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
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
用法：
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BMP名称, SPIF_UPDATEINIFILE)
例子：
' 1. 把桌面图片设为 c:\windows\setup.bmp
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\windows\setup.bmp", SPIF_UPDATEINIFILE)
' 2. 将桌面图片清除
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "", SPIF_UPDATEINIFILE)

Top

2 楼wxy_xiaoyu（猪是的看来过倒）回复于 2003-08-01 17:48:05 得分 0

上面是用在　WIN98　的，不好意思。看下面的　：

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
'This project needs
'- a common dialog box
' (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
' and select Microsoft Common Dialog control)
'- a button
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_UPDATEINIFILE = &H1
Private Sub Command1_Click()
'Set the commondialogbox' title
CDBox.DialogTitle = "Choose a bitmap"
'Set the filter
CDBox.Filter = "Windows Bitmaps (*.BMP)|*.bmp|All Files (*.*)|*.*"
'Show the 'Open File'-dialog
CDBox.ShowOpen
'Change the desktop's background
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, CDBox.filename, SPIF_UPDATEINIFILE
End Sub
Private Sub Form_Load()
Command1.Caption = "Set Wallpaper"
End Sub
Top

3 楼wxy_xiaoyu（猪是的看来过倒）回复于 2003-08-01 17:49:02 得分 0

其实一样。

该用常量的地方不要直接用数字代替Top

4 楼harryho（基路亚）回复于 2003-08-02 00:10:08 得分 0

学到了。Top

5 楼harryho（基路亚）回复于 2003-08-02 00:10:47 得分 0

其实也可以直接修改注册表的值，也可以达到这个目的。

Top

6 楼James0001（虾米—什么时候成大虾？）回复于 2003-08-02 01:19:39 得分 0

Active Desktop 的墙纸？Top

7 楼DIPDERK（泥巴）回复于 2003-08-02 13:14:46 得分 0

SystemParametersInfo
好象只认识bmp图片
能不能更改为jpg或gif图片？Top

8 楼DIPDERK（泥巴）回复于 2003-08-02 13:15:34 得分 0

还有那个20和 &h1指什么Top

9 楼DIPDERK（泥巴）回复于 2003-08-02 17:27:59 得分 0

uTop