منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف أحفظ مستند من pdf reader الموجود على الفورم في ملف bin الخاص بالبرنامج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 reader الموجود على الفورم في ملف bin الخاص بالبرنامج (/showthread.php?tid=24174)

كيف أحفظ مستند من pdf reader الموجود على الفورم في ملف bin الخاص بالبرنامج - ahmed_elwerfalli - 14-03-18

السلام عليكم
 قمت بفتح ملف pdf على الفورم من الأداة pdf reader 

السؤال هنا كيف انسخ الملف الموجود من  الفورم إلى ملف bin مع مراعاة تسمية الملف بــ textbox1.text 
<<<< 
بعد حفظ الملف كيف استدعيه ,, عندما ابحث عليه بالإسم .. يظهر لي على أداة pdf reader 


هذا هو الكود المستخدم في فتح الملف من القرص الصلب على الفورم 
كود :
"OpenFileDialog1.Filter = "pdf files | *.pdf"
       If OpenFileDialog1.ShowDialog = DialogResult.OK Then
           AxAcroPDF1.src = OpenFileDialog1.FileName

        End If


RE: كيف أحفظ مستند من pdf reader الموجود على الفورم في ملف bin الخاص بالبرنامج - عبدالله الدوسري - 14-03-18

بما أن ملف الـ pdf موجود أصلاً على القرص الصلب , قم بعملية نسخ عادية للملف
من وإلى المكان الجديد
كود :
My.Computer.FileSystem.CopyFile(
   "C:\UserFiles\TestFiles\testFile.txt",
   "C:\UserFiles\TestFiles2\NewFile.txt",
   Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
   Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)

فقط
غير المصدر : "C:\UserFiles\TestFiles\testFile.txt"إلى مسار الملف الأصلي
وغير الوجهة : "C:\UserFiles\TestFiles2\NewFile.txt" إلى مسار الملف الجديد


لفتح الملف : مثلاً وفر اسم الملف في الـ textbox1.text
Application.StartupPath() هو مسار الملف التنفيذي للبرنامج 

كود :
     AxAcroPDF1.src = Application.StartupPath() & "\" & textbox1.text & ".pdf"

هذا مثال , ولديك طرق كثيرة 

RE: كيف أحفظ مستند من pdf reader الموجود على الفورم في ملف bin الخاص بالبرنامج - ahmed_elwerfalli - 14-03-18

(14-03-18, 01:33 PM)عبدالله الدوسري كتب : بما أن ملف الـ pdf موجود أصلاً على القرص الصلب , قم بعملية نسخ عادية للملف
من وإلى المكان الجديد
كود :
My.Computer.FileSystem.CopyFile(
   "C:\UserFiles\TestFiles\testFile.txt",
   "C:\UserFiles\TestFiles2\NewFile.txt",
   Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
   Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)

فقط
غير المصدر : "C:\UserFiles\TestFiles\testFile.txt"إلى مسار الملف الأصلي
وغير الوجهة : "C:\UserFiles\TestFiles2\NewFile.txt" إلى مسار الملف الجديد


لفتح الملف : مثلاً وفر اسم الملف في الـ textbox1.text
Application.StartupPath() هو مسار الملف التنفيذي للبرنامج 

كود :
     AxAcroPDF1.src = Application.StartupPath() & "\" & textbox1.text & ".pdf"

هذا مثال , ولديك طرق كثيرة 


مشكور كثيراً .. 
انا قمت بعمل الكود  التالي  ... و أشتغل معايا 100%

كود :
Dim x As String = TextBox1.Text

           System.IO.File.Copy(OpenFileDialog1.FileName, Application.StartupPath() & "\" & x & ".pdf")

لكن سؤالي في البحث عند كتابة اسم الملف في تيكست  يظهر لي تلقائيا في pdf reader إن وجد في الملف التنفيذي

RE: كيف أحفظ مستند من pdf reader الموجود على الفورم في ملف bin الخاص بالبرنامج - عبدالله الدوسري - 14-03-18

كود :
       Dim FileName As String = Application.StartupPath() & "\" & TextBox1.Text & ".pdf"
       If IO.File.Exists(FileName) Then
           AxAcroPDF1.src = FileName
       Else
           MsgBox("لا توجد وثيقة بنفس الاسم")
       End If