自动更换墙纸的小程序

增大字体作者：佚名来源：本站整理发布时间：2001-10-26 10:45:00

从列表框中读取一个文件路径并赋值给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

共7页。 9 1 2 3 4 5 6 7 :

上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]

文章评论评论内容只代表网友观点，与本站立场无关！

评论摘要(共 0 条，得分 0 分，平均 0 分) 查看完整评论

自动更换墙纸的小程序

Tags：

文章评论评论内容只代表网友观点，与本站立场无关！

栏目导航

本类热门阅览

相关文章