(12-05-20, 01:45 AM)aljzazy كتب :

كود :

'  انشاء عامود للصورة بالداتا جرد فيو
       Dim dgvImageColumn As New DataGridViewImageColumn
       ' وضع الاسم بالهيدر
       dgvImageColumn.HeaderText = "Image"
       dgvImageColumn.ImageLayout = DataGridViewImageCellLayout.Stretch

       Dim dgvTextColumn As New DataGridViewTextBoxColumn
       dgvTextColumn.HeaderText = "Id"

       DataGridView1.Columns.Add(dgvTextColumn)
       DataGridView1.Columns.Add(dgvImageColumn)

       DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
       DataGridView1.RowTemplate.Height = 120
       DataGridView1.AllowUserToAddRows = False

وفي زر الاختيار ضع الكود التالي

كود :

 Dim opf As New OpenFileDialog
       opf.Filter = "Choose Image(*.jpg;*.png;*.gif)|*.jpg;*.png;*.gif"

       If opf.ShowDialog = DialogResult.OK Then
           PictureBox1.Image = Image.FromFile(opf.FileName)
       End If

وفي زر الاضافة

كود :

 Try
           Dim ms As New MemoryStream
           PictureBox1.Image.Save(MS, PictureBox1.Image.RawFormat)
           Dim img As Byte()
           img = ms.ToArray()
           DataGridView1.Rows.Add(TextBox1.Text, img)
       Catch ex As Exception
           MessageBox.Show(ex.Message.ToString())
       End Try