منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
رسالة عرض صورة - نسخة قابلة للطباعة

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

رسالة عرض صورة - رسول555 - 08-04-18

اخوتي الاعزاء عندي سؤال وانشاء الله انتم اهلا للاجابة

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

لكن عند النقر على زر عرض الصورة في حالة وجود صورة تعرض الصورة لكن في حال لا توجد صورة يعطي خطا 

المطلوب عند النقر على زر عرض صورة في حالة وجود صورة تعرض لكن في حالة عدم وجود صورة يعطي رسالة (لاتوجد صورة)



والسؤال الثاني هو هل من الممكن حفظ اكثر من صورة في مربع البيانات

وهل من الممكن حفظ ملف PDF بدل الصورة وعرضه 

مع الشكر الجزيل والثناء الجميل
كود :
 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       Dim pos As Integer = BindingContext(dt).Position

       PictureBox1.Image = bytetoimage(DataGridView1.Rows(pos).Cells("pictureimage").Value)
       PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

   End Sub



RE: رسالة عرض صورة - tarek - 08-04-18

ضع كود عرض الصورة بين
Try  catch

RE: رسالة عرض صورة - رسول555 - 08-04-18

(08-04-18, 03:00 PM)tarek كتب : ضع كود عرض الصورة بين
Try  catch

ممكن تطبيق الكود على المثال المرفق

RE: رسالة عرض صورة - ismail abdullah - 09-04-18

(08-04-18, 03:49 PM)رسول555 كتب :
(08-04-18, 03:00 PM)tarek كتب : ضع كود عرض الصورة بين
Try  catch

ممكن تطبيق الكود على المثال المرفق




=================================================================================================
هذا الكود ممكن تجربه أخي الكريم




كود :
   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       Try
           Dim pos As Integer = BindingContext(dt).Position

           PictureBox1.Image = bytetoimage(DataGridView1.Rows(pos).Cells("pictureimage").Value)
           PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

       Catch ex As Exception
           MsgBox("لاتوجد صورة")
       End Try
   End Sub


RE: رسالة عرض صورة - رسول555 - 10-04-18

(09-04-18, 06:45 PM)ismail abdullah كتب :
(08-04-18, 03:49 PM)رسول555 كتب :
(08-04-18, 03:00 PM)tarek كتب : ضع كود عرض الصورة بين
Try  catch

ممكن تطبيق الكود على المثال المرفق




=================================================================================================
هذا الكود ممكن تجربه أخي الكريم




كود :
   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       Try
           Dim pos As Integer = BindingContext(dt).Position

           PictureBox1.Image = bytetoimage(DataGridView1.Rows(pos).Cells("pictureimage").Value)
           PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

       Catch ex As Exception
           MsgBox("لاتوجد صورة")
       End Try
   End Sub

شكرا لك اخي الكريم لقد تم التجربة بعد تعديل بسيط وهو فعال جدا ممتاز

كود :
private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       Try
           Dim pos As Integer = BindingContext(dt).Position

           PictureBox1.Image = bytetoimage(DataGridView1.Rows(pos).Cells("pictureimage").Value)
         
       Catch ex As Exception
           MsgBox("لاتوجد صورة")
       End Try
 PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
   End Sub