开发学院软件开发VB 一个自动更换墙纸的小软件 阅读

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

 2006-02-27 21:11:36 来源:WEB开发网   
核心提示:这个小软件的功能,自然无法同久已成名的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->

Tags:一个 自动 更换

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接