亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

一個自動更換墻紙的小軟件

2019-11-18 17:29:35
字體：大 中 小
來源：轉載
供稿：網友
這個小軟件的功能，自然無法同久已成名的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

　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->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
国产在线高清精品| 久久久久日韩精品久久久男男| 久久精品视频va| 日韩av免费在线播放| 精品视频在线导航| 日韩精品中文字幕在线| 国产欧美日韩免费看aⅴ视频| 国产精品女主播视频| 日韩在线观看网站| 久久av红桃一区二区小说| 亚洲成人精品在线| 4438全国成人免费| 精品久久久久久电影| 色综合久综合久久综合久鬼88| 久久天天躁狠狠躁老女人| 亚洲最新av网址| 久久成人av网站| 国产精品久久9| 亚洲精品久久久一区二区三区| 欧美一级电影在线| 欧美国产亚洲视频| 欧美午夜精品久久久久久浪潮| 欧美亚洲第一区| 国产成人高清激情视频在线观看| 国产自产女人91一区在线观看| 日韩经典一区二区三区| 国模精品一区二区三区色天香| 深夜成人在线观看| 欧美一级片免费在线| 精品国产依人香蕉在线精品| 欧美精品在线免费观看| 国产97在线亚洲| 国产精品入口日韩视频大尺度| 国产亚洲精品成人av久久ww| 欧美日韩亚洲一区二区三区| 亚洲人成在线观看| 久久精品国产综合| 国产香蕉97碰碰久久人人| 国产午夜精品全部视频播放| 91视频九色网站| 欧美影院在线播放| 亚洲国产精品久久久久秋霞蜜臀| 欧美精品做受xxx性少妇| 亚洲精品久久7777777| 亚洲欧美日韩综合| 欧美激情国内偷拍| 91精品国产高清久久久久久91| 亚洲亚裔videos黑人hd| 97avcom| 欧美日韩亚洲国产一区| 国产成人精品av| 久久男人资源视频| 91久久精品国产| 91地址最新发布| 九九久久久久久久久激情| 成人做爰www免费看视频网站| 日韩精品小视频| 日本久久亚洲电影| 97成人精品区在线播放| 久久久久久久久网站| 亚洲精品福利在线观看| 国产成人精品网站| 日韩免费av在线| 欧美高清视频在线观看| 欧美综合一区第一页| 欧美一级成年大片在线观看| 国内久久久精品| 国产精品欧美亚洲777777| 欧美又大粗又爽又黄大片视频| 国模视频一区二区三区| 日韩电视剧免费观看网站| 欧美成人免费网| 亚洲91精品在线观看| 欧美成人精品不卡视频在线观看| 国产日韩欧美在线视频观看| 色狠狠av一区二区三区香蕉蜜桃| 日韩69视频在线观看| 97在线视频免费| 永久免费看mv网站入口亚洲| 久久久久久久999精品视频| 国产精自产拍久久久久久蜜| 欧美性猛交xxxx偷拍洗澡| 中文精品99久久国产香蕉| www.亚洲男人天堂| 欧美整片在线观看| 伊人伊成久久人综合网站| 日韩大片免费观看视频播放| 亚洲精品福利在线观看| 日韩性生活视频| 国产亚洲免费的视频看| 成人黄色网免费| 中文字幕日韩综合av| 国产欧美精品xxxx另类| 国产精品视频精品视频| 日韩高清电影好看的电视剧电影| 亚洲美女福利视频网站| 中文字幕亚洲激情| 中文字幕精品www乱入免费视频| 中文字幕av一区二区三区谷原希美| 91av在线免费观看| 日韩精品中文字幕有码专区| 2018中文字幕一区二区三区| 57pao成人国产永久免费| 欧美另类99xxxxx| 久久视频免费观看| 国产精品久久婷婷六月丁香| 国产精品免费视频久久久| 国产精品久久久久av免费| 亚洲国产天堂久久国产91| 欧美高清视频在线| 欧美日韩精品在线观看| 清纯唯美亚洲综合| 欧美极品美女视频网站在线观看免费| 欧美性猛交xxxx免费看久久久| 久久综合伊人77777尤物| 日韩av一卡二卡| 日韩在线中文字| 国产日韩欧美在线看| 国外视频精品毛片| 91精品中文在线| 精品国产自在精品国产浪潮| 欧美xxxwww| 国产狼人综合免费视频| 欧美国产精品日韩| 久久噜噜噜精品国产亚洲综合| 欧美日韩国产综合新一区| 亚洲精品在线视频| 久久久久久中文字幕| 日韩精品免费在线| 久久久久久国产免费| 亚洲自拍偷拍区| 91精品久久久久久久| 国产精品三级久久久久久电影| 亚洲经典中文字幕| 国产精品第8页| 欧美精品videos另类日本| 亚洲欧美日韩国产中文专区| 美女少妇精品视频| 亚洲夜晚福利在线观看| 91亚洲国产成人久久精品网站| 久久久久久国产精品三级玉女聊斋| 亚洲第一区第二区| 欧美福利小视频| 日韩免费不卡av| 青草青草久热精品视频在线网站| 97视频人免费观看| 国产区亚洲区欧美区| 精品久久久久久久久国产字幕| 欧美精品videosex性欧美| 欧美精品一区二区免费| 久久久亚洲精选| 国产国语刺激对白av不卡| 色老头一区二区三区在线观看| 成人xxxx视频| 九色精品免费永久在线| 亚洲精品www久久久久久广东| 亚洲精品电影在线观看| 亚洲精品中文字幕女同| 亚洲а∨天堂久久精品喷水| 懂色av中文一区二区三区天美| 91久久久久久久一区二区| 亚洲国产欧美自拍| 俺去了亚洲欧美日韩| 欧美国产极速在线|