+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=24513)
عرض صورة - رسول555 - 12-04-18
السلام عليكم ورحمة الله وبركاته
اخوتي الاعزاء لدي مشروع اعمل عليه ولدي في المشروع تيكس بوكس بحث يبحث في داتالست فيو
ولدي زر عرض صورة المرفق عند النقر على عرض الصورة بدون البحث تعرض الصورة بدون مشاكل لكن عند البحث والتصفية بواسطة التيكس بوكس والنقر على عرض الصورة يعطي خطا كما موضح في الصورة والكودات المرفقة مع الشكر
البحث
كود :
Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged
Dim ba As New BindingSource
ba.DataSource = DataGridView1.DataSource
ba.Filter = DataGridView1.Columns("الموضوع").DataPropertyName & " like '%" & TextBox9.Text & "%'"
DataGridView1.DataSource = ba
End Subعرض الصورة
كود :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim pos As Integer = BindingContext(dt).Position
'Try
PictureBox1.Image = bytetoimage(DataGridView1.Rows(pos).Cells("pictureimage").Value)
'Catch
'MsgBox("لا توجد صورة")
'End Try
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Subحفظ الصورة بدون مشاكل
كود :
Private Function bytetoimage(ByVal byt As Byte()) As Image
Dim ms As New System.IO.MemoryStream()
Dim getimage As Image = Nothing
Try
ms.Write(byt, 0, byt.Length)
getimage = New Bitmap(ms)
Finally
ms.Close()
End Try
Return getimage
End FunctionRE: عرض صورة - رسول555 - 14-04-18
؟؟ هل نت مجيب ؟؟
RE: عرض صورة - سعود - 14-04-18
رسالة الخطا تعني لاتوجد صورة لكي يتم تحويلها!!!
RE: عرض صورة - حريف برمجة - 14-04-18
ارفق مثال للتعديل عليه .