使用VB6和mjwPDF类不会将图像加载到PDF中

我正在使用一个名为

mjwPDF.cls

的

VB6

类，试图将一些图像解析为

PDF

文档。 但是，它不会显示图像，Adobe会给出“pdf损坏”消息

以下是我所做的（基本上）：

---

这是一个类：

我将您的代码复制到我的项目中，我的jpg文件完美地显示出来

也许你的jpg文件有问题？您可以附加它或尝试另一个文件吗？我使用了一个bmp文件，我使用ms paint将其转换为jpg

---

我无法测试的是你的x和y坐标。变量x和y的值是多少？在我的测试中，我使用x=100和y=100，该死！我将x，y定义为整数，并认为这对于初始值0足够了，但事实并非如此。是的，这是初值问题，谢谢！感谢您发布代码，它确实帮助我解决了一个错误：）

Dim objPDF As mjwPDF

Private Sub blabla()
    Set objPDF = New mjwPDF
    With objPDF
        .PDFTitle = "My PDF Document"
        .PDFFileName = 'MyFileFullPath
        .PDFLoadAfm = App.Path & "\Fonts"
        .PDFSetLayoutMode = LAYOUT_DEFAULT
        .PDFFormatPage = FORMAT_A4
        .PDFOrientation = ORIENT_PORTRAIT
        .PDFSetUnit = UNIT_PT
        .PDFView = False
        .PDFBeginDoc
        .PDFSetFont FONT_TIMES, 5, FONT_NORMAL
        .PDFSetTextColor = vbBlack
        .PDFUseOutlines = True
        .PDFTextOut "Something bla bla bla.."
        .PDFImage 'MyImageFullPath.jpg, x + 15, y + 15, 100, 100
        .PDFTextOut "Something bla bla bla.."
        .PDFEndPage
        .PDFEndDoc
    End With
End Sub