VB压缩图片（不失真）

最新推荐文章于 2024-08-08 10:27:05 发布

SkyZone_H

最新推荐文章于 2024-08-08 10:27:05 发布

阅读量2.7k

点赞数 1

分类专栏： Visual Basic 文章标签： vb function gdi+ integer token image

本文链接：https://blog.csdn.net/SkyZone_H/article/details/6628512

版权

这篇博客介绍了如何使用Visual Basic(VB)结合GDI+库进行图片无损压缩。通过定义相关数据类型和声明函数，实现GDI+的启动、关闭以及图片的加载、保存操作。示例代码中展示了从一个Bitmap对象压缩并保存为JPEG文件的过程，同时允许调整压缩质量。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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 GdipCreateB

最低0.47元/天解锁文章