Declare Function GdipCreateBitmapFromGraphics Lib "gdiplus" (ByVal Width As Long, ByVal Height As Long, ByVal graphics As Long, bitmap As Long) As GpStatus
Dim bitmap As Long, graphics As Long
Dim color As Long
InitGDIPlus
GdipCreateFromHDC Me.hDC, graphics
GdipGraphicsClear graphics, &HFFFF0000 '紅色底色
GdipCreateBitmapFromGraphics 100, 100, graphics, bitmap '創建一個現存的副本
GdipBitmapGetPixel bitmap, 0, 0, color '取色
Debug.Print Hex(color)
GdipDeleteGraphics graphics
GdipDisposeImage bitmap
TerminateGDIPlus
關鍵代碼就是以上這些了
就是從Graphics創建Bitmap
但是最后不管怎么樣取到的顏色都是0
如果用從圖片檔案創建Graphics就是正常的
求大神們幫忙看下哪里有問題
uj5u.com熱心網友回復：
http://download.csdn.net/detail/veron_04/4039695uj5u.com熱心網友回復：
我就是看的這個教程
可是只有CreateBitmapFromGraphics
取得的bitmap一直是空的 但是bitmap指標是有的
如果可以的話發份可行的原始碼可以么？
uj5u.com熱心網友回復：
http://download.csdn.net/detail/veron_04/4814790轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/136357.html
標籤：API
下一篇：vba 關閉word列印功能