自动更换墙纸的小程序
减小字体
增大字体
如果列表框中没有图片，不做任何操作
| If Listfile.ListCount = 0 Then End |
否则把选中的图片更换为墙纸
| bmpfile = Listfile.List(Listfile.ListIndex) SystemParametersInfo SPI_SETDESKWALLPAPER, 0, bmpfile, SPIF_UPDATEINIFILE End Sub |
我们先来看看SystemParametersInfo函数的定义和参数：
使用API函数之前必须先在程序中声明如下：
| 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 |
其中各参数的意义如下表:
| 参数 | 意义 |
| uAction Long | 指定要设置的参数。参考uAction常数表 |
| uParam Long | 参考uAction常数表 |
| lpvParam Any | 按引用调用的Integer、Long和数据结构 |
| fuWinIni | 这个参数规定了在设置系统参数的时候，是否应更新用户设置参数 |
共7页。 9 1 2 3 4 5 6 7 :
Tags：
作者：佚名
- 好的评价 如果您觉得此文章好，就请您
0%(0) 
- 差的评价 如果您觉得此文章差，就请您
0%(0) 
中查找“自动更换墙纸的小程序”更多相关内容
中查找“自动更换墙纸的小程序”更多相关内容评论内容只代表网友观点，与本站立场无关！
评论摘要(共 0 条，得分 0 分，平均 0 分)
查看完整评论