自动更换墙纸的小程序

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

flag为布尔型变量，标示列表框中是否有文件存在

flag = False

设置自动更换墙纸的间隔时间，单位为毫秒，可以改变

Timer1.Interval = 5000
End Sub

当经历一定间隔时间，定时器TIMER被唤醒，执行指定任务

Private Sub Timer1_Timer()

如果列表框中没有图片，不进行任何操作

If Listfile.ListCount = 0 Then
Exit Sub

否则把标示flag置为True

Else: flag = True
End If

bmpfile为字符串变量，存储图片路径

Dim bmpfile As String

如果flag为真

If flag Then

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

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

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