تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طلب كود (فتح ملفات PDF)
#1
Shocked 
السلام عليكم
1- هل يمكن إضافة ملفات pdf إلى روسورس البرنامج و عرضها على الفورم من خلال Abode Pdf Reader من خلال ربطها باداة Listebox
2- هل هناك اشكال في العرض من Ressources
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم
اي ملف تضيفه على الريسورس يزيد م حجم ملف التشغبل ويلتهم الداكرة 
لذلك ينصح بوضع هكذا ملفات في قاعدة البيانات او يوضع مسار الملف في قاعدة البيانات
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة:
#3
(29-05-20, 12:52 AM)ابراهيم ايبو كتب :
السلام عليكم ورحمة الله وبركاته
اخي الكريم
اي ملف تضيفه على الريسورس يزيد م حجم ملف التشغبل ويلتهم الداكرة 
لذلك ينصح بوضع هكذا ملفات في قاعدة البيانات او يوضع مسار الملف في قاعدة البيانات

شكرا اخي على التنبيه
هي ملفات صغيرة الحجم لن يتعدى مجموعها 10 ميقا
ممكن الاكواد المستعملة لاستدعاء الملف
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#4
السلام عليكم ورحمة الله وبركاته
اخي الكريم ضع ملف 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
#5
(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
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم