国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 堆龙德庆县| 武冈市| 包头市| 怀柔区| 池州市| 舒城县| 铁力市| 肃宁县| 通化县| 白沙| 山丹县| 囊谦县| 西丰县| 谷城县| 礼泉县| 晋宁县| 喀什市| 格尔木市| 昌黎县| 沁源县| 彰化市| 武冈市| 小金县| 樟树市| 麦盖提县| 琼结县| 尚志市| 定远县| 临朐县| 曲麻莱县| 大同市| 咸阳市| 闸北区| 大邑县| 宜宾市| 宜城市| 阿尔山市| 张家口市| 临夏县| 禹城市| 镇远县|