首页 相关文章 一个自动更换墙纸的小软件

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

这个小软件的功能,自然无法同久已成名的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
  [ 查看全文 ]

2016-02-19 标签:

一个自动更换墙纸的小软件的相关文章

手机页面
收藏网站 回到头部