منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] النقر على الصورة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] النقر على الصورة (/showthread.php?tid=40756)



النقر على الصورة - عبدالكريم - 15-02-22

السلام عليكم

اخواني لدي في فورم معين .. مربع صورة pictureBox  

رابط انا زر معين عند الضغط عليه يحفظ صورة معينه وتظهر في صندزق الصورة .. السؤال هنا

ارغب في حال حددت انا سجل معين من الداتا قريد فيو وظهرت لي الصورة وبيانات السجل كلها وكل شي تمام .. احتاج انا عند النقر على صندوق الصورة  تظهر الصورة  بشكل كامل مع امكانية طباعتها..ارجوا  المساعدة..


RE: النقر على الصورة - Taha Okla - 15-02-22

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

الأفضل أن تستخدم الكود التالي ضمن حدث النقر على الصورة لعرضها بالحجم الكامل :
كود :
Shell("explorer.exe C:\FolderX\Photo01.png")

طبعا مع اعتبار تغيير مسار الصورة بحسب المكان الموجدة عليه فيه جهازك


هذا الكود يجعل البرنامج الافتراضي لعرض الصور في نظام التشغيل لديك يقوم بفتح الصورة
ومن خلال البرنامج فيك تستخدم أفضل خصائص العرض و الطباعة للبرنامج نفسه.

ملاحظة إضافية :
هذا الكود يستخدم بنفس الطريقة لفتح ملفات الـ PDF وغيره من الملفات بمشغلاتها الافتراضية في حال كان نوع الملف أياً كان.


RE: النقر على الصورة - عبدالكريم - 15-02-22

اشكرك على الرد السريع.. لكن الصورة موجوده مثلا في المستندات .. ولكن انا لما اعبي بيانات الشخص واحددد الصورة تنحفظ في قاعدة البيانات من نوع سيكول .. ف ماعرف وين مكانهها ؟

هل في فكرة لما احفظ السجل تروح نسخه للقاعدة واصير اسحب المسار من القاعدة ؟


RE: النقر على الصورة - Taha Okla - 15-02-22

بإمكانك حفظ الصورة التي تعرض في صندوق الصور في مسار معين ثم تعطي أمر الفتح بالبرنامج الافتراضي للصور في نظام التشغيل فيصبح الكود كـ التالي :

كود :
   Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
       Dim strPath As String = "D:\123.jpg"    '  هنا ضع المسار الذي يناسبك
       PictureBox1.Image.Save(strPath, System.Drawing.Imaging.ImageFormat.Jpeg)
       Shell("Explorer.exe " & strPath)
   End Sub