vb6.0 GDI显示图片空白。请大神指教

答案:2 悬赏:50 手机版

解决时间 2021-12-28 17:28

提问者网友：謫仙
2021-12-28 10:24

Public Sub PaintPng(ByVal sName As String, ByVal hDC As Long, ByVal mX As Long, ByVal mY As Long)
'mX与mY单位为象素.
Call GDI_Initialize
If GdipCreateFromHDC(hDC, gdip_Graphics) <> Ok Then
GdiplusShutdown gdip_Token
Else
Call GdipLoadImageFromFile(StrConv(GetShortName(sName), vbUnicode), gdip_pngImage)
Call GdipGetImageHeight(gdip_pngImage, lngHeight) '
Call GdipGetImageWidth(gdip_pngImage, lngWidth)
With Form1.Pic1
.Width = lngWidth * 15
.Height = lngHeight * 15
End With
If GdipDrawImageRect(gdip_Graphics, gdip_pngImage, mX, mY, lngWidth, lngHeight) <> GpStatus.Ok Then Debug.Print "err" Else Debug.Print "ok"
End If
Call GDI_Terminate
End Sub

这段代码，如果不改变图片框尺寸，是能正常显示的，但改变了，就显示空白，不知道错在哪了？

最佳答案

五星知识达人网友：人间朝暮
2021-12-28 11:55

是不是显示尺寸不对，所以不能显示呢？

全部回答

1楼网友：傲气稳了全场
2021-12-28 12:04

gdi是graphic device interface的缩写，也就是图像设备接口。这个是通过gdi32.dll的api调用来使用的。具体例子可以百度。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息