باز کردن فایل PDFدر ویژوال بیسیک

[ahp_online]

سلام
دوستان من یک برنامه نوشتم که فایل PDF را که در نرم افزار در مسیر مورد نظر انتخاب میکنی میاد یک کپی از فایل در مسیری که درنرم افزار براش تعریف شده کپی می کنه و نام فایل را در بانک اطلاعاتی ذخیره می کنه(فیلد از نوع تکس می باشد).حالا من میخوام وقتی اسم فایل پی دی اف رو از بانک میخونم بتونم با آکروبات باز کنم.دستورات باز کردن فایل پی دی اف در نرم افزاری که با VB6 نوشتم رو می خوام؟؟
ممنون میشم توضیح بدید؟

[M.T.P]

مسیر فایل رو به سابروتین زیر OpenFile ارسال کنید.



Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Sub OpenFile(sPath As String)
On Error Resume Next
ShellExecute 0&, vbNullString, sPath, vbNullString, vbNullString, 1&
End Sub

مثال:



OpenFile "c:\myfile.pdf"

البته باید Adobe acrobat نصب داشته باشید.

[mehdiqwerty]

سلام
طبق تصویر پیوست میخواستم که فایل پی دی اف فراخوانی و اجرا بشه
و همچنین ادرس دهی نسبی باشه
ممنون اگه راهنمایی کنید
فایل پروژه هم پیوست کردم
با تشکر
150006

[isaac23]

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecute Me.hWnd, vbNullString, App.Path & "\2.docx", vbNullString, "C:", SW_SHOWNORMAL



این دستور رو تست کن