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

主要是通过使用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

摘自：网络整理

VB 更换设置桌面背景图片函数相关推荐

win7自定义随机更换显示桌面背景图片
在网上看到了好几张漂亮的图片,都想作为桌面背景图片,随机更换,于是搜索方法,因为win7自带的主题有的就是随机更换背景的,所以想着自己是不是可以新建一个主题,也能实现那个效果. 果然,还是微软强悍- ...
android 背景图片自适应屏幕大小,android 设置桌面背景图片适应屏幕大小
今天做demo,设置桌面每天自动更新背景,但是桌面的背景都是被系统裁剪过的图片,上网百度了一下,有个过时的方法,改进后果然有用了! Bitmap bmp=BitmapFactory.decodeRes ...
更换计算机桌面背景的教案,黔教版信息技术三年级下册第2课《桌面背景的更换》教案2.doc...
黔教版信息技术三年级下册第2课<桌面背景的更换>教案2.doc 文档编号:545380 文档页数:2 上传时间: 2019-01-24 文档级别: 文档类型:doc 文档大小:31.50K ...
设置smartphone桌面背景图片
刚作smartphone程序的时候有个功能就是设置一张图片为sp桌面背景,这个功能很长时间都没有完全实现,设置桌面有时成功,有时候则没有反应,几经辗转,最近还是ningxu告诉我是一个参数错了,才有了 ...
Ubuntu16.04美化桌面并设置终端背景图片
用ubuntu时间久了,有些审美疲劳,决定美化下桌面,换个壁纸,然后无意间竟然又发现了更换终端背景图,有点意思更换ubutnu桌面背景: 参考Blog 更换终端背景图片: 参考Blog 壁纸图库网 ...
更换计算机桌面背景的教案,桂科版三年级下册任务一美化桌面背景免费教学设计...
这是一份桂科版三年级下册任务一美化桌面背景免费教学设计,共3页. 任务一美化桌面背景教学设计一.教学目标:1.学会设置个性化桌面背景.2.学会根据自己的需要排列图标.3.学会更改任务栏的颜色.4 ...
golang windows 设置桌面背景和屏幕保护
设置桌面背景和屏幕保护主要是修改注册表和使用windows api来生效配置,支持XP以上操作系统. 使用方法参数说明: Usage of setbg.exe: -a 设置开启或关闭屏幕保护,默认 ...
修改计算机桌面壁纸影响计算机考试吗,若何修改调换计算机桌面背景图片
<若何修改调换计算机桌面背景图片>由会员分享,可在线阅读,更多相关<若何修改调换计算机桌面背景图片(3页珍藏版)>请在技术文库上搜索. 1.韧耐距荤丢郧瞄宵汤隧匣龋侥撤东取滤傣 ...
更换计算机桌面背景的教案,《桌面背景换换样》教学设计
课题 <桌面背景换换样> 学科信息技术年级三年级课型新授课教材版本西安交通大学出版社三年级(上) 授课人李雯一.教学目标知识与技能:认识快捷菜单和对话框,掌握 ...

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

VB 更换设置桌面背景图片函数相关推荐

最新文章

热门文章