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

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

VB編程獲取文件中集成的圖標(biāo)

2019-11-18 17:27:00
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友
----在Win95下的應(yīng)用軟件使用了打量精美的圖標(biāo)，而很多圖標(biāo)資源是集成在EXE、DLL文件中的(例如Win95的回收站就使用了Shell32.dll中的圖標(biāo),31號(hào)圖標(biāo)表示回收站空,32號(hào)表示回收站有被刪除文件)在我們編程中，可以利用Win95的API函數(shù)ExtractIcon可以將EXE、DLL文件中的圖標(biāo)資源取出，下面通過(guò)一個(gè)VB的例子通過(guò)使用該函數(shù)將文件中包含的圖標(biāo)取出并且在一個(gè)圖片框內(nèi)瀏覽。

----1、在Form1的General的Declarations中定義以下兩個(gè)函數(shù):

lNum=lNum 1
x1=ExtractIcon(App.hInstance,astr,lNum)
Form1.Refresh
x2=DrawIcon(Form1.hdc,10,10,x1)
CPrv.Enabled=True
IflNum=lCountThen
CNext.Enabled=False
EndIf
EndSub

PrivateSubCOpen_Click()'打開(kāi)文件
Dimx1AsLong
Dimx2AsLong

CommonDialog1.ShowOpen
lCount=ExtractIcon(App.hInstance,CommonDialog1.filename,-1)
IflCount>0Then
astr=CommonDialog1.filename
lNum=0
Form1.Caption=astr
CPrv.Enabled=False:CNext.Enabled=True
x1=ExtractIcon(App.hInstance,astr,lNum)
Form1.Refresh
x2=DrawIcon(Form1.hdc,10,10,x1)
Else
x1=MsgBox("FileContainnoiconresource.")
CPrv.Enabled=False:CNext.Enabled=False
EndIf
EndSub

PrivateSubCPrv_Click()'瀏覽前一個(gè)圖標(biāo)
lNum=lNum-1
x1=ExtractIcon(App.hInstance,astr,lNum)
Form1.Refresh
x2=DrawIcon(Form1.hdc,10,10,x1)
CNext.Enabled=True
IflNum=0Then
CPrv.Enabled=False
EndIf
EndSub->

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 宝丰县| 任丘市| 陆良县| 余庆县| 政和县| 苗栗县| 浦县| 江阴市| 彭阳县| 含山县| 仲巴县| 南和县| 揭西县| 建水县| 酉阳| 鄂伦春自治旗| 宽甸| 翁牛特旗| 常熟市| 建湖县| 宜川县| 通化市| 酉阳| 苏尼特右旗| 镇江市| 仪陇县| 新竹县| 姜堰市| 云阳县| 乳山市| 南澳县| 夏津县| 柳州市| 资兴市| 哈密市| 宁城县| 丹江口市| 墨江| 海南省| 平昌县| 紫云|