[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