【文件属性】：
文件名称：vb-将BMP图转化为ICO
文件大小：6KB
文件格式：RAR
更新时间：2014-11-28 10:43:47
BMP
Private Sub ExtractIconComposite(inPic As PictureBox)
On Error Resume Next
Dim ipic As IPicture
Dim icoinfo As ICONINFO
Dim pDesc As pictDesc
Dim hDCWork
Dim hBMOldWork
Dim hNewBM
Dim hBMOldMono
GetIconInfo inPic.Picture, icoinfo
hDCWork = CreateCompatibleDC(0)
hNewBM = CreateCompatibleBitmap(inPic.hdc, stdW, stdH)
hBMOldWork = SelectObject(hDCWork, hNewBM)
hBMOldMono = SelectObject(hdcMono, icoinfo.hBMMask)
BitBlt hDCWork, 0, 0, stdW, stdH, hdcMono, 0, 0, vbSrcCopy
SelectObject hdcMono, hBMOldMono
SelectObject hDCWork, hBMOldWork
【文件预览】：
将BMP图转化为ICO
----iconwrks.vbw(214B)
----Bmp2Icon.frm(15KB)
----Project1.vbp(794B)
----Project1.vbw(54B)
----Bmp2Icon.frx(2KB)
----Fromico.bmp(3KB)
----MSSCCPRJ.SCC(195B)
网友评论
- 测试通过可用，不过还需编写代码来提高易用性。