Private Declare Function Gdiplusstartup Lib "gdiplus" (token As Long,inputbuf As GdiplusstartupInput,Optional ByVal outputbuf As Long = 0) As GpStatus Private Declare Sub GdiplusShutdown Lib "gdiplus" (ByVal token As Long) Private Declare Function GdipCreateFromHDC Lib "gdiplus" (ByVal hwnd As Long,graphics As Long) As GpStatus Private Declare Function GdipDeleteGraphics Lib "gdiplus" (ByVal graphics As Long) As GpStatus Private Declare Function GdipDrawImageRect Lib "gdiplus" (ByVal graphics As Long,ByVal image As Long,ByVal x As Single,ByVal y As Single,ByVal Width As Single,ByVal Height As Single) As GpStatus Private Declare Function GdipLoadImageFromFile Lib "gdiplus" (ByVal filename As String,image As Long) As GpStatus Private Declare Function GdipGetimageWidth Lib "gdiplus" (ByVal image As Long,Width As Long) As GpStatus Private Declare Function GdipGetimageHeight Lib "gdiplus" (ByVal image As Long,Height As Long) As GpStatus Private Declare Function GdipdisposeImage Lib "gdiplus" (ByVal image As Long) As GpStatus Private Type GdiplusstartupInput Gdiplusversion As Long DebugEventCallback As Long SuppressBackgroundThread As Long SuppressExternalCodecs As Long End Type Private Enum GpStatus Ok = 0 GenericError = 1 InvalidParameter = 2 OutOfMemory = 3 ObjectBusy = 4 InsufficientBuffer = 5 NotImplemented = 6 Win32Error = 7 WrongState = 8 Aborted = 9 FileNotFound = 10 ValueOverflow = 11 AccessDenied = 12 UnkNownImageFormat = 13 FontFamilyNotFound = 14 FontStyleNotFound = 15 NottrueTypeFont = 16 UnsupportedGdiplusversion = 17 Gdiplusnotinitialized = 18 PropertyNotFound = 19 PropertyNotSupported = 20 End Enum '主要代码就下面这几句而已. Private Const c_pngPath As String = "1.png" '要显示的图片名称和路径。 Dim m_token As Long Private Sub Form_paint() Dim pImg As Long Dim pGraphics As Long Dim w As Long,h As Long Call GdipCreateFromHDC(Me.hDC,pGraphics) Call GdipLoadImageFromFile(StrConv(c_pngPath,vbUnicode),pImg) Call GdipGetimageWidth(pImg,w) Call GdipGetimageHeight(pImg,h) Call GdipDrawImageRect(pGraphics,pImg,w,h) Call GdipdisposeImage(pImg) Call GdipDeleteGraphics(pGraphics) End Sub Private Sub Form_Load() Dim StartupInput As GdiplusstartupInput StartupInput.Gdiplusversion = 1 If Gdiplusstartup(m_token,StartupInput,ByVal 0) Then MsgBox "Error initializing GDI+" Exit Sub End If End Sub Private Sub Form_Unload(Cancel As Integer) Call GdiplusShutdown(m_token) End Sub
原文地址:https://www.jb51.cc/vb/260360.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。