网页功能: 加入收藏 设为首页 网站搜索  
如何改变桌面的图片
发表日期:2003-07-21作者:[] 出处:  

此一问题需调用 SystemParametersInfo API 函数,细节如下:

1. API 的声明:

Const SPI_SETDESKWALLPAPER = 20

Const SPIF_UPDATEINIFILE = &H1

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 之前加上 Public 保留

字, 并且将 Private 保留字去掉。

2. 程序范例:

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BMP图档名称,

SPIF_UPDATEINIFILE)

例如:

' 1. 将桌面图片设定成 c:windowssetup.bmp

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:windowssetup.bmp

", SPIF_UPDATEINIFILE)

' 2. 将桌面图片清掉

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "",

SPIF_UPDATEINIFILE)

程序如下:

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BMP图档名称,

SPIF_UPDATEINIFILE

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 如何改变桌面的图片
本类热点文章
  在VB中使用WMI获取系统硬件和软件有关信..
  将繁体中文字转化成简体中文
  获取CPU的ID
  在vb程序中如何获取剪贴板中所复制的文..
  更新桌面图片
  VB编程破解Windows屏幕保护密码
  让程序的鼠标支持滚轮
  用VB创建Windows快捷方式(无需DLL)
  用vb调用系统输入法
  用VB制作IE工具条自定义按钮
  修改显示器的刷新频率
  vb实现多线程
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00414