程序代码

Private Sub Command1_Click()
    Call 加载PNG图片(App.Path & "\验证码.png", Picture1)
End Sub
'-----------------------------------以上为窗体代码-----------------------------------
'-----------------------------------以下为模块代码-----------------------------------
Option Explicit
Public Declare Function GdiplusStartup Lib "gdiplus" (Token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As Long
Public Declare Sub GdiplusShutdown Lib "gdiplus" (ByVal Token As Long)
Public Declare Function GdipLoadImageFromFile Lib "gdiplus" (ByVal FileName As Long, hImage As Long) As Long
Public Declare Function GdipDisposeImage Lib "gdiplus" (ByVal Image As Long) As Long
Public Declare Function GdipCreateFromHDC Lib "gdiplus" (ByVal hdc As Long, Graphics As Long) As Long
Public Declare Function GdipDeleteGraphics Lib "gdiplus" (ByVal Graphics As Long) As Long
Public Declare Function GdipDrawImageRectRectI Lib "gdiplus" (ByVal Graphics As Long, ByVal hImage As Long, ByVal dstX As Long, ByVal dstY As Long, ByVal dstWidth As Long, ByVal dstHeight As Long, ByVal SrcX As Long, ByVal SrcY As Long, ByVal SrcWidth As Long, ByVal SrcHeight As Long, ByVal srcUnit As Long, Optional ByVal imageAttributes As Long = 0, Optional ByVal callback As Long = 0, Optional ByVal callbackData As Long = 0) As Long
Public Declare Function GdipGetImageWidth Lib "gdiplus" (ByVal Image As Long, Width As Long) As Long
Public Declare Function GdipGetImageHeight Lib "gdiplus" (ByVal Image As Long, Height As Long) As Long
Public Const UnitPixel As Long = &H2&
Public Type GdiplusStartupInput
    GdiplusVersion As Long
    DebugEventCallback As Long
    SuppressBackgroundThread As Long
    SuppressExternalCodecs As Long
End Type
Public Function 加载PNG图片(ByVal PNG图片路径 As String, ByVal 图片控件 As Object)
    图片控件.AutoRedraw = True
    Dim Image As Long
    Dim Graphics As Long
    Dim Token As Long
    Dim GdipInput As GdiplusStartupInput
    GdipInput.GdiplusVersion = 1
    GdiplusStartup Token, GdipInput
    GdipLoadImageFromFile StrPtr(PNG图片路径), Image
    GdipGetImageWidth Image, 图片控件.Width
    GdipGetImageHeight Image, 图片控件.Height
    GdipCreateFromHDC 图片控件.hdc, Graphics
    GdipDrawImageRectRectI Graphics, Image, 0, 0, 图片控件.Width, 图片控件.Height, 0, 0, 图片控件.Width, 图片控件.Height, UnitPixel, 0, 0, 0
    GdipDeleteGraphics Graphics
    GdipDisposeImage Image
    图片控件.Refresh
    图片控件.Picture = 图片控件.Image
    GdiplusShutdown Token
End Function