登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

miaozk2006

点滴积累与收藏:关于技术,关于生活

 
 
 

日志

 
 

VB 更换设置桌面背景图片函数  

2013-06-13 10:22:40|  分类: 编程-VB |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

主要是通过使用Win32 API函数中的SystemParametersInfo函数来更换墙纸,墙纸图片貌似只能是bmp格式才能成功。

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

Private Sub setWallpaper(FilePath As String)
    Dim t As Long
    t = SystemParametersInfo(ByVal SPI_SETDESKWALLPAPER, True, ByVal FilePath, SPIF_UPDATEINIFILE)
    If t Then
        MsgBox "设置成功,请看桌面"
    Else
        MsgBox "设置失败"
    End If
End Sub

Private Sub Form_Load()
    Call setWallpaper("D:\图片\墙纸\1.bmp") '图片路径
End Sub

摘自:网络整理

  评论这张
 
阅读(576)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018