تور لحظه آخری
امروز : چهارشنبه ، 29 اسفند 1403    احادیث و روایات:  امام صادق (ع):براستى كه حق را دولتى است و باطل را دولتى، و هر يك از اين دو، در دولت ديگرى ذليل ...
سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون شرکت ها

تبلیغات

تبلیغات متنی

خرید پرینتر سه بعدی

سایبان ماشین

armanekasbokar

armanetejarat

Future Innovate Tech

آموزشگاه آرایشگری مردانه شفیع رسالت

پی جو مشاغل برتر شیراز

خرید یخچال خارجی

بانک کتاب

طراحی سایت تهران سایت

irspeedy

درج اگهی ویژه

تعمیرات مک بوک

قیمت فرش

خرید بلیط هواپیما

بلیط اتوبوس پایانه

خرید از چین

خرید از چین

خرید سرور اچ پی ماهان شبکه

خودارزیابی چیست

رزرو هتل خارجی

تولید کننده تخت زیبایی

سی پی کالاف

دوره باریستا فنی حرفه ای

چاکرا

استند تسلیت

کلینیک دندانپزشکی سعادت آباد

پی ال سی زیمنس

دکتر علی پرند فوق تخصص جراحی پلاستیک

تعمیر سرووموتور

تحصیل پزشکی در چین

مجله سلامت و پزشکی

تریلی چادری

خرید یوسی

مهاجرت به استرالیا

ایونا

تعمیرگاه هیوندای

کاشت ابرو با خواب طبیعی

هدایای تبلیغاتی

خرید عسل

صندوق سهامی

تزریق ژل

خرید زعفران مرغوب

تحصیل آنلاین آمریکا

سوالات آیین نامه

سمپاشی سوسک فاضلاب

بهترین دکتر پروتز سینه در تهران

صندلی گیمینگ

دفترچه تبلیغاتی

خرید سی پی

قالیشویی کرج

سررسید 1404

تقویم رومیزی 1404

ویزای توریستی ژاپن

قالیشویی اسلامشهر

قفسه فروشگاهی

چراغ خطی

ابزارهای هوش مصنوعی

آموزش مکالمه عربی

اینتیتر

استابلایزر

خرید لباس

7 little words daily answers

7 little words daily answers

7 little words daily answers

گوشی موبایل اقساطی

ماساژور تفنگی

قیمت ساندویچ پانل

مجوز آژانس مسافرتی

پنجره دوجداره

خرید رنگ نمای ساختمان

ناب مووی

خرید عطر

قرص اسلیم پلاس

nyt mini crossword answers

مشاوره تبلیغاتی رایگان

دانلود فیلم

قیمت ایکس باکس

نمایندگی دوو تهران

مهد کودک

پخش زنده شبکه ورزش

 






آمار وبسایت

 تعداد کل بازدیدها : 1866419766




هواشناسی

نرخ طلا سکه و  ارز

قیمت خودرو

فال حافظ

تعبیر خواب

فال انبیاء

متن قرآن



اضافه به علاقمنديها ارسال اين مطلب به دوستان آرشيو تمام مطالب
archive  refresh

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


واضح آرشیو وب فارسی:سایت ریسک: vb 6; نحوه باز کردن یک فایل pdf؟؟؟ Saeed Shahabi 19 مهر 1388, 11:38با عرض سلام... در vb 6 چطور میشه با کدنویسی یک فایل pdf رو باز کرد؟ البته لطفا قبلش توضیح بدید چطور باید اون فایل رو ضمیمه برنامه کنم. (می خوام واسه برنامه ام Help بذارم) ممنون... Saeed Shahabi 13 آبان 1388, 21:46با سلام... اگه ضمیمه کردن فایل pdf به پروژه و خوندنش سخته ، چه روش دیگری برای ساختن منوی Help در vb 6 هست ؟ ممنون... the_king 14 آبان 1388, 01:26با عرض سلام... در vb 6 چطور میشه با کدنویسی یک فایل 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 کنید : 2.gif دقت کنید که اکنون یک Resource با نام 101 و نوع "CUSTOM" را اضافه کرده اید (می توانید هم نام و هم نوع را تغییر دهید) : 3.gif برای باز کردن این فایل 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") & " utorial.pdf" FileNo = FreeFile Open Path For Output As FileNo Close FileNo PDFBytes = LoadResData(101, "CUSTOM") 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 ضمیمه این پست می باشد.




این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1188]

bt

اضافه شدن مطلب/حذف مطلب




-


گوناگون

پربازدیدترینها
طراحی وب>


صفحه اول | تمام مطالب | RSS | ارتباط با ما
1390© تمامی حقوق این سایت متعلق به سایت واضح می باشد.
این سایت در ستاد ساماندهی وزارت فرهنگ و ارشاد اسلامی ثبت شده است و پیرو قوانین جمهوری اسلامی ایران می باشد. لطفا در صورت برخورد با مطالب و صفحات خلاف قوانین در سایت آن را به ما اطلاع دهید
پایگاه خبری واضح کاری از شرکت طراحی سایت اینتن