| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 731 人关注过本帖
标题:桌面背景任你改
只看楼主 加入收藏
qzxm
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2005-11-3
收藏
 问题点数:0 回复次数:5 
桌面背景任你改
众所周知在Windows中可以通过属性面板任意修改背景图案,要在VB的程序设计中实现这一功能其实也很方便,具体实现方法如下:

  首先在VB中创建一个窗体并在其中加入一个命令按钮,第一步在窗体的通用段中输入以下代码:

  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 保留字去掉。

  然后在命令按钮中的Click事件中输入以下代码:

  '将桌面图片设定成 c:\windows\CIRCLES.bmp

  Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,"c:\windows\CIRCLES.bmp", SPIF_UPDATEINIFILE)

  '将桌面图片清除

  Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,"",SPIF_UPDATEINIFILE)

  但以上程序设定图片之后, 必须等到下次 Windows 重新启动时才生效, 如果要设定之后立刻生效,则程序须修改如下:

  Const SPIF_SENDWININICHANGE = &&H2

  Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\windows\CIRCLES.bmp", SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE )

  此外如果只有本次使用 Windows 时改变桌面图片(下次开机时还原原状), 则程序如下:

  Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\windows\CIRCLES.bmp", SPIF_SENDWININICHANGE ) ' 去掉 SPIF_UPDATEINIFILE
搜索更多相关主题的帖子: 程序设计 面板 Windows 桌面背景 通用 
2005-11-17 20:15
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
不用桌面

快上课了……
2005-11-17 20:21
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 

恩,不错。做一些定时改变桌面的小程序有用。

2005-11-17 21:32
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
以下是引用yms123在2005-11-17 21:32:00的发言:

恩,不错。做一些定时改变桌面的小程序有用。

MS已经做了,而且嵌入桌面属性选项...


快上课了……
2005-11-17 22:12
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

楼主的代码只能设置bmp格式的图片背景,无法设置jpg、htm等Active Desktop.


天津网站建设 http://www./
2005-11-17 22:20
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
其实系统把bmp会转化为jpg...

文件会备份的,所以把桌面本来定义的删除了,桌面不会改变...

快上课了……
2005-11-17 22:40
快速回复:桌面背景任你改
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018047 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved