一个自动更换墙纸的小软件

核心提示：这个小软件的功能，自然无法同久已成名的WPC（wallpaperchanger）相媲美，一个自动更换墙纸的小软件，但由于是自制的，用起来又别有一番乐趣，两文本框，两标签，古人言，“独乐”不如“众乐”

这个小软件的功能，自然无法同久已成名的WPC（wallpaperchanger）相媲美，但由于是自制的，用起来又别有一番乐趣。古人言，“独乐”不如“众乐”，所以我拿出来与大家共享，又希望能让初学者对于VB编程窥见一斑。

　这个小软件所用控件仅一列表框，两文本框，两标签，两命令及一定时控件而已。

　源代码：

DeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,ByVallpvParamAsAny,ByValfuWinIniAsLong)AsLong
DimflagAsBoolean
ConstSPI_SETDESKWALLPAPER=20
ConstSPIF_UPDATEINIFILE=&H1　
'updateWin.iniConstant
ConstSPIF_SENDWININICHANGE=&H2
'updateWin.iniandtelleveryone

PRivateSubCmdCancel_Click()
　flag=False
　Textpath=""
　Textintval=""
　Listfile.Clear
EndSub

PrivateSubCmdOK_Click()
　DimtempAsString
　temp=Textpath.Text
　Iftemp=""ThenEnd
　IfRight$(temp,1)<>"\"Then
　　　temp=temp "\"
　EndIf
　Listfile.Tag=temp
　temp=temp "*.bmp"
　temp=Dir$(temp)
　Whiletemp<>""
　　　Listfile.AddItemtemp
　　　temp=Dir$
　Wend
　Listfile.AddItem"None"
　Show
　Listfile.ListIndex=0
　IfListfile.List(0)="None"Then
　　　flag=False
　Else
　　　flag=True
　EndIf
EndSub

PrivateSubForm_Load()
　flag=False
　Timer1.Interval=Val(Textintval.Text)
EndSub

PrivateSubTimer1_Timer()
　DimtempAsString
　DimbmpfileAsString
　IfflagThen
　　　temp=Listfile.Tag
　　　bmpfile=temp Listfile.List(Listfile.ListIndex)
　　　SystemParametersInfoSPI_SETDESKWALLPAPER,0,bmpfile,SPIF_UPDATEINIFILE
　　　IfListfile.ListIndex=Listfile.ListCount-1Then
　　　　　Listfile.ListIndex=0
　　　EndIf
　　　Listfile.ListIndex=Listfile.ListIndex 1
　EndIf
EndSub->