本例函数可以将图片控件中的图片,保存为多种图片文件格式,
调用例子
Dim FlName As String
FlName = Application.GetSaveAsFilename("二维码图片_" & Format(Now(), "yyyymmddhhmm"), "图片文件(*.jpg),*.jpg", , "保存二维码为图片")
If FlName = "False" Then MsgBox "二维码图片未保存", vbInformation + vbOKOnly, "保存二维码为图片": Exit Sub
SavePicToFile Image1.Picture, FlName
MsgBox "二维码图片保存成功!" & vbCrLf & FlName, vbInformation + vbOKOnly, "保存二维码为图片"
函数例子
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Type GdiplusStartupInput
GdiplusVersion As Long
DebugEventCallback As Long
SuppressBackgroundThread As Long
SuppressExternalCodecs As Long
End Type
Private Type EncoderParameter
nGUID As GUID
NumberOfValues As Long
Type As Long
Value As Long
End Type
Private Type EncoderParameters
Count As Long
Parameter As EncoderParameter
End Type
Enum PicType
p_BMP
p_JPG
p_GIF
p_PNG
p_TIFF
End Enum
Private Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As Long
Private Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As Long
Private Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" (ByVal hbm As Long, ByVal hPal As Long, BITMAP As Long) As Long
Private Declare Function GdipDisposeImage Lib "GDIPlus" (ByVal Image As Long) As Long
Private Declare Function GdipSaveImageToFile Lib "GDIPlus" (ByVal Image As Long, ByVal FileName As Long