在VB6和VB.net中设置桌面墙纸

在VB6中设置墙纸

在VB.NET 2003中设置墙纸

在VB.NET 2005中设置墙纸:

参考:

SystemParametersInfo函数的定义和参数:

声明如下:
   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

  其中各参数的意义如下表:

参数:意义
uActionLong,指定要设置的参数。参考uAction常数表
uParamLong,参考uAction常数表
lpvParamAny,按引用调用的Integer、Long和数据结构。
fuWinIni这个参数规定了在设置系统参数的时候,是否应更新用户设置参数

 

 

 

 下面是部分uAction参数,和使用它们的方法:

参数
意义和使用方法
6
设置视窗的大小,SystemParametersInfo(6, 放大缩小值, P, 0),lpvParam为long型
17
开关屏保程序,SystemParametersInfo(17, False, P, 1),uParam为布尔型
13,24
改变桌面图标水平和垂直间距,uParam为间距值(像素),lpvParam为long型
15
设置屏保等待时间,SystemParametersInfo(15, 秒数, P, 1),lpvParam为long型
20
设置桌面背景墙纸,SystemParametersInfo(20, True, 图片路径, 1)
93
开关鼠标轨迹,SystemParametersInfo(93, 数值, P, 1),uParam为False则关闭
97
开关Ctrl+Alt+Del窗口,SystemParametersInfo(97, False, A, 0),uParam为布尔型

  

 

 

 



本例中我们选择图片并取得图片的完整路径,然后通过调用API函数,将这幅图设为墙纸,使用的语法为:SystemParametersInfo SPI_SETDESKWALLPAPER, 0, bmpfile, 1

  其中SystemParametersInfo表示要设置桌面墙纸,bmpfile是要设置的图片的路径。

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值