[paveldida]

السلام عليكم

1- هل يمكن إضافة ملفات pdf إلى روسورس البرنامج و عرضها على الفورم من خلال Abode Pdf Reader من خلال ربطها باداة Listebox

2- هل هناك اشكال في العرض من Ressources

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته

اخي الكريم

اي ملف تضيفه على الريسورس يزيد م حجم ملف التشغبل ويلتهم الداكرة 

لذلك ينصح بوضع هكذا ملفات في قاعدة البيانات او يوضع مسار الملف في قاعدة البيانات

[paveldida]

(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

[paveldida]

(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