[ابو ليلى]

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

انت بحاجة الى فك محتويات الملف الى مجلد  ومن ثم قراءة الملف من ذلك المجلد (هكذا اعتقد)

يمكنك استخدام هذه الدالة للفك

PHP كود :

  Public Sub FileSave(ByVal BytesToWrite() As Byte, ByVal FileName As String)

      If IO.File.Exists(FileName) Then
         IO.File.Delete(FileName)
      End If

      Dim FileStream As New System.IO.FileStream(FileName, System.IO.FileMode.OpenOrCreate)
      Dim BinaryWriter As New System.IO.BinaryWriter(FileStream)

      BinaryWriter.Write(BytesToWrite)
      BinaryWriter.Close()
      FileStream.Close()

   End Sub 


نحتاج ان نفحص وجوده في مجلد البرنامج فاذا كان موجود نحذفه و من ثم نفك محتويات الملف من Resource الى مجلد البرنامج
بعد ذلك نحتاج الى قراءة الملف من المسار 

الاستدعاء , نعرف اولا متغير يشير الى مكان وجود الملف في مجلد البرنامج

PHP كود :

  Private FileName As String = String.Concat(Application.StartupPath, "\MainDocument.pdf") 


ثم نستدعي الدالة السابقة

PHP كود :

       FileSave(My.Resources.MainDocument, FileName) 


الان اصبح الملف في مجلد البرنامج يمكنك قرائته وفق مساره.

بالتوفيق