PDF Viewer OCX ریجستر شده

[sabair]

سلام دوستان
سلام
آیا از شما برنامه نویسان حرفه ای فایل ریجستر شده OCX PDF VIEWER را ندارد
خیلی ضروری است
متشکرم
دوستان

[amirsajjadi]

با سلام
شما از این dll استفاده کنید شاید بدردتون بخوره
اینم مثال کار با این dll :

Dim docPDF As sPDF.sPDF = New sPDF.sPDF("Address File DLL", , , , , , _
"TESTsPDF", "a test of sPDF!", Environment.UserName)
docPDF.setText(CShort(50), CShort(350), CShort(45))
docPDF.writeText("Oblique!", False, sPDF.sPDF.FontName.ArialHelvetica, sPDF.sPDF.FontType.BoldItalic, 50, "Blue")
docPDF.writeImage(Application.StartupPath & "\pacifica.gif", 300, 50, 30, 30)
docPDF.setText(320, 300)
docPDF.writeText("field1 (write here!)", False, sPDF.sPDF.FontName.CourierNew, sPDF.sPDF.FontType.BoldItalic, 20, "Blue", True)
docPDF.setText(320, 330)
docPDF.writeText("field2 (write here!)", False, sPDF.sPDF.FontName.CourierNew, sPDF.sPDF.FontType.BoldItalic, 20, "Green", True)
docPDF.setText(320, 360)
docPDF.writeText("field3 (write here!)", False, sPDF.sPDF.FontName.CourierNew, sPDF.sPDF.FontType.BoldItalic, 20, "Yellow", True)
docPDF.setText(150, 450, 30, 0)
docPDF.writeText("Courier Bold", False, sPDF.sPDF.FontName.CourierNew, sPDF.sPDF.FontType.Bold, 24)
docPDF.writeText("Courier Italic", True, sPDF.sPDF.FontName.CourierNew, sPDF.sPDF.FontType.Italic, 24)
docPDF.writeText("ArialHelvetica", True, sPDF.sPDF.FontName.ArialHelvetica, sPDF.sPDF.FontType.Regular, 24)
docPDF.writeText("etc... etc...", True, sPDF.sPDF.FontName.ArialHelvetica, sPDF.sPDF.FontType.BoldItalic, 24, "Red")
docPDF.writeWebLink("http://www.google.it", "http://www.google.it", 350, 630, , , , 16)
docPDF.writeLine(40, 800, 40, 500)
docPDF.writeLine(40, 800, 100, 600)
docPDF.writeLine(40, 800, 160, 700)
docPDF.writeLine(40, 800, 200, 800)
docPDF.closePDF(True)
docPDF = Nothing

[javad_gol]

من که هرکار کردم نشد