bitmap_Info.bmiHeader.biSize = Len(bitmap_Info.bmiHeader)
bitmap_Info.bmiHeader.biPlanes = 1
bitmap_Info.bmiHeader.biBitCount = 8
bitmap_Info.bmiHeader.biCompression = 0
bitmap_Info.bmiHeader.biXPelsPerMeter = &HB12
bitmap_Info.bmiHeader.biYPelsPerMeter = &HB12
bitmap_Info.bmiHeader.biClrUsed = 0
bitmap_Info.bmiHeader.biClrImportant = 0
bitmap_Info.bmiHeader.biWidth = wilB.iwidth
bitmap_Info.bmiHeader.biHeight = wilB.iheight
bitmap_Info.bmiHeader.biSizeImage = CLng(iwidth) * CLng(wilB.iheight) * bitmap_Info.bmiHeader.biBitCount / 8
bitmap_FH.bfType = &H4D42
bitmap_FH.bfOffBits = Len(bitmap_FH) + Len(bitmap_Info.bmiHeader) + 1024
bitmap_FH.bfSize = bitmap_FH.bfOffBits + bitmap_Info.bmiHeader.biSizeImage
memhdc = CreateCompatibleDC(Form1.hdc)
hBitmap = CreateDIBSection(memhdc, bitmap_Info, DIB_RGB_COLORS, hOldPen, nu_ll, 0)
'CopyMemory ByVal hOldPen, bitmap_Info.bmiColors(0), 1024
CopyMemory ByVal hOldPen, wilB.bcolors(0), bitmap_Info.bmiHeader.biSizeImage
SelectObject memhdc, hBitmap
BitBlt Form1.hdc, x, y, 48, 32, memhdc, 0, 0, SRCCOPY
Form1.Refresh
Open App.Path + "\PIC\" + CStr(picNum) + ".bmp" For Binary As #1
Put #1, , bitmap_FH
Put #1, , bitmap_Info
Put #1, , wilB.bcolors
Close #1
DeleteObject hBitmap
DeleteDC memhdc
圖片保存都正確，可就是不能顯示。。。。有誰知道是哪里出錯了嗎
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/31881.html
標籤：API
上一篇：vb編程