需要运行后立即生效的，不需要重启的
我在网上找到找个API
SystemParametersInfo 20, 0, “c:\a.bmp”, 1 Or 2
可是行不通，没有任何反映
应该怎么做，求高手指点
VB6怎么设置win7背景
答案:2 悬赏:0 手机版
解决时间 2021-03-21 01:50
- 提问者网友：你挡着我发光了
- 2021-03-20 17:07
最佳答案
- 五星知识达人网友：愁杀梦里人
- 2021-03-20 18:20
'代码对jpg,png等其它格式也是有效的。
Set sh = CreateObject("Shell.Application")
For Each v In sh.NameSpace("C:").ParseName("a.bmp").Verbs
If v.Name = "设置为桌面背景(&B)" Then v.DoIt
Next
Set sh = CreateObject("Shell.Application")
For Each v In sh.NameSpace("C:").ParseName("a.bmp").Verbs
If v.Name = "设置为桌面背景(&B)" Then v.DoIt
Next
全部回答
- 1楼网友：笑迎怀羞
- 2021-03-20 19:38
你可以试试。不过win7会有兼容性提示。所以你有以下选择：
1.忽略兼容性提示，并且以兼容模式运行，同时网上找找vb6.0for win7的补丁或设置
2.安装虚拟机，在虚拟机内安装vb6.0
3.换成xp
4.选择最新的visual studio 2010，放弃vb6.0
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯