View Full Version : باز کردن فایل PDFدر ویژوال بیسیک
ahp_online
چهارشنبه 24 خرداد 1391, 19:01 عصر
سلام
دوستان من یک برنامه نوشتم که فایل PDF را که در نرم افزار در مسیر مورد نظر انتخاب میکنی میاد یک کپی از فایل در مسیری که درنرم افزار براش تعریف شده کپی می کنه و نام فایل را در بانک اطلاعاتی ذخیره می کنه(فیلد از نوع تکس می باشد).حالا من میخوام وقتی اسم فایل پی دی اف رو از بانک میخونم بتونم با آکروبات باز کنم.دستورات باز کردن فایل پی دی اف در نرم افزاری که با VB6 نوشتم رو می خوام؟؟
ممنون میشم توضیح بدید؟
M.T.P
چهارشنبه 24 خرداد 1391, 19:36 عصر
مسیر فایل رو به سابروتین زیر 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
چهارشنبه 21 فروردین 1398, 22:48 عصر
سلام
طبق تصویر پیوست میخواستم که فایل پی دی اف فراخوانی و اجرا بشه
و همچنین ادرس دهی نسبی باشه
ممنون اگه راهنمایی کنید
فایل پروژه هم پیوست کردم
با تشکر
150006
isaac23
دوشنبه 26 فروردین 1398, 21:05 عصر
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
این دستور رو تست کن
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.