[rochdi191]

(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

بارك الله فيك اخي aljzazy شكرا على تقديم المساعدة ربي يحفطك
 كيف يبم الحقاظ على البيانات المخزنة في الداتا قريد
وكيف يتم ضبط زر تصدير المعلومات الى ملف exel
وكيف يتم صبط زر الطباعة للبعض الحقول من الجدول