نمایش فایل های PDF در ویژوال بیسیک بدون کامپوننت

[parsiyan_mohsen]

با سلام و احترام

من در سایت برنامه نویس نتونستم دستوری رو پیدا کنم که بدون کامپوننت فایل های PDF رو باز کنه از اونجایی که خودم نیاز داشتم تونستم بفهمم که چجوری این کار رو باید انجام داد؛
دو راه برای نمایش فایلهای Pdf در ویژوال بیسیک وجود دارد :
- استفاده از دستور ShellExecute برای نمایش فایل توسط Acrobat Reader . برای مثال :

ShellExecute hwnd, "open", "C:\acrobat5\reader\acrobat.pdf", vbNullString, "C:\", 1
در این روش نرم افزار Adobe Acrobat حتماً بایستی روی هر کامپیوتری که پروژه تان را روی آن اجرا می کنید وجود داشته باشد .
- استفاده از کتابخانه Adobe Acrobat Type Library:
در این روش بایستی نرم افزار Adobe Acrobat روی کامپیوتری که پروژه تان را روی آن Develop می کنید وجود داشته باشد . ابتدا کتابخانه فوق را از بخش references موجود در منوی Project به پروژه تان اضافه کنید . سپس با استفاده از اشیای کلاس Acrobat می توانید برنامه مورد نظرتان را بنویسید . برای مثال کد زیر عنوان فایل Pdf را استخراج می کند :


Dim opdf As Acrobat.CAcroPDDoc

Set opdf = CreateObject("AcroExch.PDDoc")

opdf.Open (x)

Dim y As String

y = opdf.GetInfo("Title")


دستور زیر مشابه روش بالا است اما احتیاجی به اضافه کردن کتابخانه مذکور به references نیست :


Dim opdf As Object

Set opdf = CreateObject("AcroExch.PDDoc")

opdf.Open (x)

Dim y As String

y = opdf.GetInfo("Title")