国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

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

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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 崇信县| 云浮市| 丘北县| 涞源县| 朝阳县| 阜城县| 宕昌县| 河东区| 平邑县| 凉城县| 泾源县| 鄂托克旗| 南部县| 宣化县| 乳源| 古浪县| 高陵县| 商丘市| 大竹县| 理塘县| 井研县| 呼和浩特市| 德惠市| 蒙阴县| 安化县| 林芝县| 巴林右旗| 西林县| 水富县| 山阴县| 彰化市| 淳化县| 保德县| 珠海市| 普宁市| 平山县| 大安市| 什邡市| 安平县| 新闻| 德惠市|