VB6.0如何将32位bmp图片转换成24位bmp

Question

VB6.0如何将32位bmp图片转换成24位bmp，vb6.0中picturebox无法显示32位深度照片，如何解决此问题？我想着转换图片为24位，但又不知道如何代码实现。

Answer 1

引用 皆我百晓生 小程序回复内容作答：
在VB6.0中，你可以使用GDI+库来实现将32位BMP图片转换为24位BMP图片。以下是一个示例代码，演示如何使用GDI+库和VB6.0的Picture控件进行转换：

首先，你需要安装并引用GDI+库。这可以通过在项目中添加对"Microsoft GDI+ 1.0 Type Library"的引用来完成。

Option Explicit

Private Sub Convert32BitTo24BitBmp(sourcePath As String, destinationPath As String)
    Dim image As Object
    Set image = LoadPicture(sourcePath)
    
    Dim bmp As Object
    Set bmp = ConvertTo24Bit(image)
    
    SavePicture bmp, destinationPath
End Sub

Private Function ConvertTo24Bit(sourceImage As Object) As Object
    Dim newImage As Object
    Set newImage = CreateObject("GDIPlus.Bitmap")
    
    newImage.FromPicture sourceImage
    
    Dim encoderClsid As Object
    Set encoderClsid = CreateObject("GDIPlus.GpEncoderClsid")
    
    ' 获取24Bit Bitmap编码器的Clsid
    Dim pClsid As Long
    encoderClsid.GetEncoderClsid "image/bmp", pClsid
    
    ' 设定编码器参数
    Dim encoderParams As Object
    Set encoderParams = CreateObject("GDIPlus.GpEncoderParameters")
    encoderParams.AddEncoderParam encoderClsid.EncoderQuality, CLng(100)
    
    ' 保存为24Bit BMP
    Dim destination As Object
    Set destination = CreateObject("GDIPlus.Bitmap")
    destination.FromPicture newImage
    destination.Save_ Encoder:=pClsid, Filename:="", Params:=encoderParams
    
    Set ConvertTo24Bit = destination
End Function

Private Sub Form_Load()
    ' 例子：将32位BMP图片转换为24位
    Convert32BitTo24BitBmp "C:\Path\To\32BitImage.bmp", "C:\Path\To\24BitImage.bmp"
End Sub

该示例代码中的sourcePath参数是需要转换的32位BMP图片的文件路径，而destinationPath参数是将转换后的24位BMP图片保存到的文件路径。你可以根据自己的需求修改这些参数。

注意，由于VB6.0的PictureBox控件无法直接显示32位BMP图片，因此我们在此示例中使用GDI+库进行转换。转换后的24位BMP图片可以通过VB6.0的Picture控件显示。

确保在使用此代码时，你的项目已正确引用了GDI+库并且具有适当的许可证。