| | | 自动更换墙纸的小程序 | | 2001-11-12·
· ··yesky
| 上一页 1 2 3 4 5 6 7 下一页 从列表框中读取一个文件路径并赋值给bmpfile
| bmpfile = Listfile.List(Listfile.ListIndex) |
把墙纸更换为bmpfile所指图片，并修改INI文件
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, bmpfile, SPIF_UPDATEINIFILE
如果已经是列表框中最后一张图片，把ListIndex设为0即第一张图片
If Listfile.ListIndex = Listfile.ListCount - 1 Then
Listfile.ListIndex = 0 |
否则ListIndex加一，指向下一张图片
Else
Listfile.ListIndex = Listfile.ListIndex + 1
End If
End If
End Sub |
当“立即更换”按钮被按下时
Private Sub CmdNow_Click()
Dim bmpfile As String |
上一页 1 2 3 4 5 6 7 下一页 | | | 感谢
访问天极网，如果您觉得该文章涉及版权问题，请看这里！
|
|
