+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] طلب كود (فتح ملفات PDF) (/showthread.php?tid=35010)
طلب كود (فتح ملفات PDF) - paveldida - 28-05-20
السلام عليكم
1- هل يمكن إضافة ملفات pdf إلى روسورس البرنامج و عرضها على الفورم من خلال Abode Pdf Reader من خلال ربطها باداة Listebox
2- هل هناك اشكال في العرض من Ressources
RE: طلب كود - ابراهيم ايبو - 29-05-20
السلام عليكم ورحمة الله وبركاته
اخي الكريم
اي ملف تضيفه على الريسورس يزيد م حجم ملف التشغبل ويلتهم الداكرة
لذلك ينصح بوضع هكذا ملفات في قاعدة البيانات او يوضع مسار الملف في قاعدة البيانات
RE: طلب كود - paveldida - 29-05-20
(29-05-20, 12:52 AM)ابراهيم ايبو كتب :السلام عليكم ورحمة الله وبركاتهاخي الكريماي ملف تضيفه على الريسورس يزيد م حجم ملف التشغبل ويلتهم الداكرةلذلك ينصح بوضع هكذا ملفات في قاعدة البيانات او يوضع مسار الملف في قاعدة البيانات
شكرا اخي على التنبيه
هي ملفات صغيرة الحجم لن يتعدى مجموعها 10 ميقا
ممكن الاكواد المستعملة لاستدعاء الملف
RE: طلب كود - ابراهيم ايبو - 29-05-20
السلام عليكم ورحمة الله وبركاته
اخي الكريم ضع ملف 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 SubRE: طلب كود - paveldida - 29-05-20
(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
Process.Start("Civ.pdf")
ElseIf ListBox2.Text = "القانون التجاري" Then
Process.Start("Com.pdf")
ElseIf ListBox2.Text = "قانون الأسرة" Then
Process.Start("Fam.pdf")
End If