VB压缩图片代码

最新推荐文章于 2024-08-09 09:28:15 发布

tuzi_xz

最新推荐文章于 2024-08-09 09:28:15 发布

阅读量4.4k

点赞数

分类专栏： vs.net 2003 文章标签： vb function gdi+ integer token image

本文链接：https://blog.csdn.net/tuzi_xz/article/details/2257126

版权

这段VB代码演示了如何利用GDI+库来压缩图片。通过调用GdiplusStartup、GdipCreateBitmapFromHBITMAP等函数，实现从图片句柄创建GDI+图像，并设置JPEG压缩质量参数，最后将图像保存到文件。

摘要由CSDN通过智能技术生成

'VB压缩图片
Option Explicit
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
    GUID As GUID
    NumberOfValues As Long
    type As Long
    Value As Long
End Type

Private Type EncoderParameters
Count As Long
Parameter As EncoderParameter
End Type

Private Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, inputbuf As GdiplusStartupInput, ByVal outputbuf As Long) As Long
Private Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As Long
Private Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" (ByVal hbm As Long,