vb6; نحوه باز کردن یک فایل pdf؟؟؟

[Saeed Shahabi]

با عرض سلام...
در vb6 چطور میشه با کدنویسی یک فایل pdf رو باز کرد؟ البته لطفا قبلش توضیح بدید چطور باید اون فایل رو ضمیمه برنامه کنم.
(می خوام واسه برنامه ام Help بذارم)
ممنون...

 

[Saeed Shahabi]

با سلام...
اگه ضمیمه کردن فایل pdf به پروژه و خوندنش سخته ، چه روش دیگری برای ساختن منوی Help در vb6 هست ؟
ممنون...

 

[the_king]

با عرض سلام...
در vb6 چطور میشه با کدنویسی یک فایل pdf رو باز کرد؟ البته لطفا قبلش توضیح بدید چطور باید اون فایل رو ضمیمه برنامه کنم.
(می خوام واسه برنامه ام Help بذارم)
ممنون...

اول در منوی Add-Ins گزینه Add-Ins Manager را انتخاب نمایید.
VB 6 Resource Editor را در لیست پیدا کنید و پس از انتخاب کردنش، هم تیک Loaded/Unloaded و هم تیک Load on Startup
را بزنید تا هم اجرا شود و هم در دفعات بعدی نیاز به تکرار این تنظیم نداشته باشید.

اکنون می توانید در منوی Project، گزینه Add New Resource File را انتخاب نمایید.
ظاهر پنجره ای که باز می شود شبیه به Open است، اما می تواند فایل جدید هم ایجاد کند، پس نام و مسیر فایل جدیدی با
پسوند res مشخص کنید.

اکنون به پروژه شما یک فایل Resource اضافه شده که می تواند هر نوع فایلی را ضمیمه پروژه تان کند.
با کلیک کردن روی آیکون

و یا فایل مربوطه در لیست اجزاء
پروژه تان آنرا باز کنید.

حالا فایل PDF تان را به عنوان یک Custom Resource به پروژه تان Add کنید :

دقت کنید که اکنون یک Resource با نام 101 و نوع "CUSTOM" را اضافه کرده اید (می توانید هم نام و هم نوع را تغییر دهید) :

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

Private Const SW_SHOWNORMAL As Long = 1

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

Private Sub OpenPDF()
    Dim Path As String
    Dim FileNo As Integer
    Dim PDFBytes() As Byte
    Path = Environ("TEMP") & "\tutorial.pdf"
    FileNo = FreeFile
    Open Path For Output As FileNo
    Close FileNo
    PDFBytes = LoadResData([B]101[/B], "[B]CUSTOM[/B]")
    Open Path For Binary As FileNo
    Put #FileNo, , PDFBytes
    Close FileNo
    ShellExecute Me.hwnd, "open", Path, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

دقت کنید که در فایل اجرایی Exe دیگر به فایل pdf نیازی نخواهید داشت.

پروژه نمونه به همراه فایل اجرایی exe ضمیمه این پست می باشد.