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

首頁(yè) > 學(xué)院 > 開(kāi)發(fā)設(shè)計(jì) > 正文

創(chuàng)建動(dòng)態(tài)圖標(biāo)

2019-11-18 17:36:11
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友
所謂動(dòng)態(tài)圖標(biāo)，就是窗體左上角的圖標(biāo)不停的變化著。其實(shí)現(xiàn)原理也很
簡(jiǎn)單：經(jīng)過(guò)一個(gè)時(shí)間段，讓窗體的圖標(biāo)變成另一個(gè)圖標(biāo)。如此循環(huán)，就可以實(shí)現(xiàn)了。
下面的例子實(shí)現(xiàn)了該功能。
>>步驟1----建立新工程，在窗體上放置一個(gè)PictureBox控件，設(shè)置其Index
=0,Visible=false;一個(gè)Timer時(shí)間控件。
>>步驟2----加入部件“MicrosoftWindowsCommonControls6.0(SP3)”，
并在窗體上放置一個(gè)ImageList控件，加入圖片，例子中加入了8張圖片。
>>步驟3----編寫如下代碼：

PRivateSubForm_Load()
DimiAsInteger

SetPicture1(0).Picture=ImageList1.ListImages(1).Picture

Fori=1To7
LoadPicture1(i)
SetPicture1(i).Picture=_
ImageList1.ListImages(i 1).Picture
Next

EndSub

PrivateSubTimer1_Timer()
StaticiAsInteger
OnErrorResumeNext
Ifi=8Theni=-1
i=i 1
Me.Icon=Picture1(i).Picture
EndSub

>>步驟4----編譯運(yùn)行，看到窗體的圖標(biāo)在不停的變化了嗎？->

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 濮阳市| 呈贡县| 锦州市| 黑水县| 东至县| 永康市| 稷山县| 临沂市| 潞西市| 青川县| 聂拉木县| 珲春市| 朝阳区| 唐河县| 菏泽市| 澎湖县| 安溪县| 翁牛特旗| 平和县| 南京市| 安多县| 石台县| 岳阳县| 留坝县| 阜康市| 抚远县| 郸城县| 天津市| 台安县| 灵石县| 依安县| 永泰县| 南京市| 邻水| 台前县| 德令哈市| 夏邑县| 兰溪市| 克什克腾旗| 吉木萨尔县| 潮安县|