Option Explicit Dim bitmap As Long, bmW As Long, bmH As Long
Dim graphics As Long Private Sub Form_Load()
InitGDIPlus
'从文件载入Bitmap
GdipCreateBitmapFromFile StrPtr("C:\TestImg.png"), bitmap
GdipGetImageWidth bitmap, bmW
GdipGetImageHeight bitmap, bmH
'以下是用于绘制Bitmap的
GdipCreateFromHDC Me.hDC, graphics
GdipDrawImageRectI graphics, bitmap, 0, 0, bmW, bmH
'扫地工作
GdipDeleteGraphics graphics
GdipDisposeImage bitmap 'Bitmap没有释放函数，直接拿Image的来用。这是允许的，因为这样做返回0（OK）。
TerminateGDIPlus
End Sub

为什么代码 只能form load事件能用

你也可以放到Command_Click中，这都是没有问题的。
画到自己做的hDC中再用BitBlt再贴回来不就行了，我是这么做的。
我是真心不想用graphics。


初学GDI

放 command中还是没有显示，放LOAD就是有显示

你在代码的最后一行加入ReFresh就可以了，我的图片窗体当到了。

搞了半天发现了，切网页，切回去，就有图片了

额....