اخوتي الاعزاء عندي سؤال وانشاء الله انتم اهلا للاجابة
عندي مشروع حفظ صورة داخل قاعدة بيانات اكسس
لكن عند النقر على زر عرض الصورة في حالة وجود صورة تعرض الصورة لكن في حال لا توجد صورة يعطي خطا
المطلوب عند النقر على زر عرض صورة في حالة وجود صورة تعرض لكن في حالة عدم وجود صورة يعطي رسالة (لاتوجد صورة)
والسؤال الثاني هو هل من الممكن حفظ اكثر من صورة في مربع البيانات
وهل من الممكن حفظ ملف 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
ضع كود عرض الصورة بين
Try catch
(08-04-18, 03:00 PM)tarek كتب : [ -> ]ضع كود عرض الصورة بين
Try catch
ممكن تطبيق الكود على المثال المرفق
(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
(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