12-04-18, 03:01 PM
السلام عليكم ورحمة الله وبركاته
اخوتي الاعزاء لدي مشروع اعمل عليه ولدي في المشروع تيكس بوكس بحث يبحث في داتالست فيو
ولدي زر عرض صورة المرفق عند النقر على عرض الصورة بدون البحث تعرض الصورة بدون مشاكل لكن عند البحث والتصفية بواسطة التيكس بوكس والنقر على عرض الصورة يعطي خطا كما موضح في الصورة والكودات المرفقة مع الشكر
البحث
كود :
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 Function