一个自动更换墙纸的小软件
2006-02-27 21:11:36 来源:WEB开发网 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁炬儳缍婇弻鐔兼⒒鐎靛壊妲紒鎯у⒔閹虫捇鈥旈崘顏佸亾閿濆簼绨绘い鎺嬪灪閵囧嫰骞囬姣挎捇鏌熸笟鍨妞ゎ偅绮撳畷鍗炍旈埀顒勭嵁婵犲嫮纾介柛灞捐壘閳ь剛鎳撻~婵嬪Ω閳轰胶鐤呯紓浣割儐椤戞瑩宕ョ€n喗鐓曟い鎰靛亝缁舵氨绱撻崘鈺傜婵﹤顭峰畷鎺戔枎閹搭厽袦婵犵數濮崑鎾绘⒑椤掆偓缁夌敻骞嗛悙鍝勭婵烇綆鍓欐俊鑲╃磼閹邦収娈滈柡灞糕偓鎰佸悑閹肩补鈧尙鏁栧┑鐐村灦閹稿摜绮旈悽绋课﹂柛鏇ㄥ灠閸愨偓濡炪倖鍔﹀鈧繛宀婁邯濮婅櫣绱掑Ο璇茶敿闂佺ǹ娴烽弫璇差嚕婵犳碍鏅插璺猴工瀹撳棝姊虹紒妯哄缂佷焦鎸冲畷鎴﹀箻鐠囧弶宓嶅銈嗘尰缁嬫垶绂嶉悙顒佸弿婵☆垳鍘ф禍楣冩倵濮樼偓瀚�

核心提示:这个小软件的功能,自然无法同久已成名的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->
更多精彩
赞助商链接