Question

Vb Image加载透明png

如题　纯api，求详细代码

Answer 1

GDI+支持PNG，用GDI+直接可以打开PNG透明图像：

dim Graphics as long,IMG as long

InitGDIPlus
GdipCreateFromHDC Picture1.hDC, Graphics

GdipLoadImageFromFile StrPtr("c:\1.png"), Img
GdipDrawImage Graphics, Img, 0, 0
Picture1.Refresh

GdipDeleteGraphics Graphics
TerminateGDIPlus

'-----------------------------------------------------------------------
自己下载GDI+的声明模块，网上很多

Answer 2

我有个代码，太大不好贴，HI你了