[رسول555]

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

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

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

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

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

وهل من الممكن حفظ ملف 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

[tarek]

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

[رسول555]

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

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

[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

[رسول555]

(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