界面部图
所需程序的数据
的原代码：
.版本2
.支持库vclbase
.程序集窗口程序集1
.程序集变量flag，逻辑型
.程序集变量bmpfile，文本型
.子程序_按钮_立即更换_被单击''当"立即更换"按钮被按下时'Sub CmdNow_Click()
'Dim bmpfile As String
''如果列表框中没有图片，不做任何操作
'If Listfile.ListCount=0Then End
''否则把选中的图片更换为墙纸
'bmpfile=Listfile.List(Listfile.ListIndex)
'SystemParametersInfo SPI_SETDESKWALLPAPER,0,bmpfile,SPIF_UPDATEINIFILE
'End Sub
.如果真(列表框1.取项目数()≠0)
bmpfile＝列表框1.取项目文本(列表框1.现行选中项)
.如果真(文件是否存在(bmpfile)＝真)
SystemParametersInfo(#SPI_SETDESKWALLPAPER,0,bmpfile, #SPIF_UPDATEINIFILE)
.如果真结束
.如果真结束
.子程序_按钮_添加墙纸_被单击
''当"添加墙纸"按钮被按下时
'Sub CmdAdd_Click()
''弹出通用对话框(打开文件)
'On Error Resume Next
'ComOpen.CancelError=True
'ComOpen.ShowOpen
'If Err=cdlCancel Then Exit Sub
''如果选择了墙纸图片则把图片的路径添加到列表框中去
'Listfile.AddItem ComOpen.FileName
'End Sub
.如果真(打开图片文件对话框1.打开())
列表框1.加入项目(打开图片文件对话框1.文件名,)
.如果真结束
.子程序_按钮_退出_被单击
''当"退出程序"按钮被按下时，退出
'Sub CmdExit_Click()
'Unload Me
'End Sub
结束()
.子程序__启动窗口_创建完毕
''窗体加载时
'Sub Form_Load()
''flag为布尔型变量，标示列表框中是否有文件存在
'flag=False
''设置自动更换墙纸的间隔时间，单位为毫秒，可以改变
'Timer1.Interval=5000
'End Sub
flag＝假
时钟1.时钟周期＝5000
.
子程序_时钟1_周期事件
''当经历一定间隔时间，定时器TIMER被唤醒，执行指定任务
'Sub Timer1_Timer()
''如果列表框中没有图片，不进行任何操作
'If Listfile.ListCount=0Then
'Exit Sub
''否则把标示flag置为True
'Else:flag=True
'End If
''bmpfile为字符串变量，存储图片路径
'Dim bmpfile As String
''如果flag为真
'If flag Then
''从列表框中读取一个文件路径并赋值给bmpfile
'bmpfile=Listfile.List(Listfile.ListIndex)
''把墙纸更换为bmpfile所指图片，并修改INI文件
'SystemParametersInfo SPI_SETDESKWALLPAPER,0,bmpfile,SPIF_UPDATEINIFILE
''如果已经是列表框中最后一张图片，把ListIndex设为0即第一张图片
'If Listfile.ListIndex=Listfile.ListCount-1Then
'Listfile.ListIndex=0
''否则ListIndex加一，指向下一张图片
'Else
'Listfile.ListIndex=Listfile.ListIndex+1
'End If
'End If
'End Sub
.如果真(列表框1.取项目数()≠0)
flag＝真
bmpfile＝列表框1.取项目文本(列表框1.现行选中项)
.如果真(文件是否存在(bmpfile)＝真)
SystemParametersInfo(#SPI_SETDESKWALLPAPER,0,bmpfile,
#SPIF_UPDATEINIFILE)
.如果(列表框1.现行选中项＝列表框1.取项目数()－1)列表框1.现行选中项＝0
.
否则
列表框1.现行选中项＝列表框1.现行选中项＋1 .如果结束
.如果真结束
.如果真结束
易语言轰炸机源码最新源码图