设置墙纸为空的问题(我已搜索了,仍没有结果)

riverlj 2004-12-21 10:56:34
如果桌面上的墙纸是BMP格式的,则调用以下函数可以设置为空。
如果桌面上的墙纸不是BMP格式的(如:JPG),则调用以下函数不能设置为空。

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, _
ByVal uParam As Long, _
ByRef lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1

Dim strDesktop As String
Dim lngValue As Long

strDesktop = ""
lngValue = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal strDesktop, _
SPIF_SENDWININICHANGE + SPIF_UPDATEINIFILE)
Debug.Print lngValue
...全文
64 点赞 收藏 2
写回复
2 条回复
蒋晟 2004年12月25日
http://www.china-askpro.com/msg48/qa87.shtml
回复 点赞
riverlj 2004年12月25日
没人试过吗?望讨论之
回复 点赞
发动态
发帖子
API
创建于2007-09-28

1196

社区成员

2.3w+

社区内容

VB API
社区公告
暂无公告