文件名称：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)