Question

我正在尝试将图片粘贴到应用中并立即从位图转换为jpeg。我之前有它工作，但是对于将要使用该应用程序的某些计算机，Microsoft Image Acquisition dll是不可能的。我找到了修改它的代码来执行此操作：

如果Clipboard.GetFormat（vbCFMetafile）或Clipboard.GetFormat（vbCFBitmap）那么 strFileName =格式（现在，“ddhhmmss”）

    If Clipboard.GetFormat(vbCFMetafile) Then
        SavePicture Clipboard.GetData(vbCFMetafile), strTemp & "\" & strFileName & ".bmp"
    Else
        Dim bm As Bitmap
        bm = Clipboard.GetData(vbCFBitmap)
        bm.Save strTemp & "\" & strFileName & ".jpg", System.Drawing.Imaging.ImageFormat.Jpg

    End If
    'UPLOAD to the DB

End If

然而，当我运行应用程序时，它表示未在“System.Drawing.Imaging.ImageFormat.Jpg”中定义的变量，我尝试了不同的Imaging.ImageFormat.Jpg和Drawing.Imaging.ImageFormat.Jpg组合无效。我在Project - ＆gt; References“System.Drawing.dll”下添加了，但我不知道在这种情况下是否必须导入它或在其他地方定义它。

有谁知道如何让这些代码生效，或者让我更好地进行转换？

Answer 1

能够使用此链接中的代码解决我自己的问题：http://www.vbforums.com/showthread.php?694045-RESOLVED-Bitmap-to-GIF

VB6使用粘贴引用转换为Jpeg

1 个答案: