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

tsaz1991

tsaz1991

2016-02-19 20:13

只要你有一台电脑或者手机,都能关注图老师为大家精心推荐的一个自动更换墙纸的小软件,手机电脑控们准备好了吗?一起看过来吧!
这个小软件的功能,自然无法同久已成名的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->

展开更多 50%)
分享

猜你喜欢

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

编程语言 网络编程
一个自动更换墙纸的小软件

开机自动更换墙纸

编程语言 网络编程
开机自动更换墙纸

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Win8如何自动播放更换喜欢的墙纸

windows系统
Win8如何自动播放更换喜欢的墙纸

Windows8中如何自动播放更换喜欢的墙纸

windows系统
Windows8中如何自动播放更换喜欢的墙纸

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

TEmbeddedwb的一个小bug

编程语言 网络编程
TEmbeddedwb的一个小bug

一个简单的自动发送邮件系统(一)

PHP
一个简单的自动发送邮件系统(一)

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

深入理解 ViewState

深入理解 ViewState

Linux系统如何使用mount命令和软件挂载ISO文件

Linux系统如何使用mount命令和软件挂载ISO文件
下拉加载更多内容 ↓