منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب كود (فتح ملفات PDF)
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
1- هل يمكن إضافة ملفات pdf إلى روسورس البرنامج و عرضها على الفورم من خلال Abode Pdf Reader من خلال ربطها باداة Listebox
2- هل هناك اشكال في العرض من Ressources
السلام عليكم ورحمة الله وبركاته
اخي الكريم
اي ملف تضيفه على الريسورس يزيد م حجم ملف التشغبل ويلتهم الداكرة 
لذلك ينصح بوضع هكذا ملفات في قاعدة البيانات او يوضع مسار الملف في قاعدة البيانات
(29-05-20, 12:52 AM)ابراهيم ايبو كتب : [ -> ]
السلام عليكم ورحمة الله وبركاته
اخي الكريم
اي ملف تضيفه على الريسورس يزيد م حجم ملف التشغبل ويلتهم الداكرة 
لذلك ينصح بوضع هكذا ملفات في قاعدة البيانات او يوضع مسار الملف في قاعدة البيانات

شكرا اخي على التنبيه
هي ملفات صغيرة الحجم لن يتعدى مجموعها 10 ميقا
ممكن الاكواد المستعملة لاستدعاء الملف
السلام عليكم ورحمة الله وبركاته
اخي الكريم ضع ملف pdf  في Resources هنا الملف اسمه  "test1.pdf" غير الاسم حسب اسم الملف الذي عنك
استدعي المكتبة
كود :
Imports System.IO

ثم في زر بوتون الكود التالي
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim kk As Byte() = My.Resources.test1
       Using tmp As New FileStream("test1.pdf", FileMode.Create)
           tmp.Write(kk, 0, kk.Length)
       End Using
       Process.Start("test1.pdf")
   End Sub
(29-05-20, 10:56 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اخي الكريم ضع ملف pdf  في Resources هنا الملف اسمه  "test1.pdf" غير الاسم حسب اسم الملف الذي عنك
استدعي المكتبة
كود :
Imports System.IO

ثم في زر بوتون الكود التالي
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim kk As Byte() = My.Resources.test1
       Using tmp As New FileStream("test1.pdf", FileMode.Create)
           tmp.Write(kk, 0, kk.Length)
       End Using
       Process.Start("test1.pdf")
   End Sub
شكرا أخي ابراهيم على كل ما تقدموه لنا من دعم
- ممكن تعديل الكود أنا عندي أكثر من ملف pdf على listbox ممكن تعديل الكود باستعمال الجملة الشرطية
If ListBox2.Text = "القانون المدني" Then
            Process.Start("Civ.pdf")
        ElseIf ListBox2.Text = "القانون التجاري" Then
            Process.Start("Com.pdf")
        ElseIf ListBox2.Text = "قانون الأسرة" Then
            Process.Start("Fam.pdf")
        End If