网络编程 | 站长之家 | 网页制作 | 图形图象 | 操作系统 | 冲浪宝典 | 软件教学 | 网络办公 | 邮件系统 | 网络安全 | 认证考试 | 系统进程
Firefox | IE | Maxthon | 迅雷 | 电驴 | BitComet | FlashGet | QQ | QQ空间 | Vista | 输入法 | Ghost | Word | Excel | wps | Powerpoint
asp | .net | php | jsp | Sql | c# | Ajax | xml | Dreamweaver | FrontPages | Javascript | css | photoshop | fireworks | Flash | Cad | Discuz!
当前位置 > 网站建设学院 > 网络编程 > Visual Basic
Tag:注入,存储过程,分页,安全,优化,xmlhttp,fso,jmail,application,session,防盗链,stream,无组件,组件,md5,乱码,缓存,加密,验证码,算法,cookies,ubb,正则表达式,水印,索引,日志,压缩,base64,url重写,上传,控件,Web.config,JDBC,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,IIS,Apache,Tomcat,phpmyadmin,Gzip,触发器,socket
网络编程：ASP教程,ASP.NET教程,PHP教程,JSP教程,C#教程,数据库,XML教程,Ajax,Java,Perl,Shell,VB教程,Delphi,C/C++教程,软件工程,J2EE/J2ME,移动开发
本月文章推荐
.VisualBasic工具栏、对话框二.
.在VB中实现移动没有标题栏的窗口.
.创建ActiveX接口以移植Excel工作.
.电影结束画面的卷动效果.
.用VisualBasic开发数据库浏览器.
.得知目前Mouse所指的MenuItem是哪.
.用VB设计VCD播放器的方法与技巧.
.多用户应用程序中应注意的其它问.
.VB在CAI编程中的应用.
.建立、改变及重构Access数据库.
.VisualBasicCOM基础讲座之类的建.
.算法从哪学起.
.VisualBasicCommonDialog控件的使.
.在VisualBasic6.0中实现自动播放.
.用VB6读写数据库中的图片.
.用API函数Mcisendstring直接播放.
.VisualBasic让表单一开始就显示在.
.用Winsock实现点对点通信.
.在VB5.0中编辑数据库和电子表格.
.在VB中运行MicrosoftAccess报表的.

用VB实现任意修改Win桌面背景

发表日期：2006-2-27

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


　　ConstSPI_SETDESKWALLPAPER=20

　　ConstSPIF_UPDATEINIFILE=&&H1

　　PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,ByVallpvParamAsAny,ByValfuWinIniAsLong)AsLong

　　注：如果以上的声明放在“一般模块”下，应在Const之前加上Public保留字，并且将Private保留字去掉。

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

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

　　CallSystemParametersInfo(SPI_SETDESKWALLPAPER,0,"c:＼windows＼CIRCLES.bmp",SPIF_UPDATEINIFILE)

　　'将桌面图片清除

　　CallSystemParametersInfo(SPI_SETDESKWALLPAPER,0,"",SPIF_UPDATEINIFILE)

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

　　ConstSPIF_SENDWININICHANGE=&&H2

　　CallSystemParametersInfo(SPI_SETDESKWALLPAPER,0,"c:＼windows＼CIRCLES.bmp",SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)

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

　　CallSystemParametersInfo(SPI_SETDESKWALLPAPER,0,"c:＼windows＼CIRCLES.bmp",SPIF_SENDWININICHANGE)'去掉SPIF_UPDATEINIFILE->
上一篇：VisualBasic串口通信程序设计 人气:4340
下一篇：.NET和VB编程创建SQLServer 人气:3277
浏览全部Visual Basic的内容 Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐