[rochdi191]

السلام عليكم
صج فطوركم
كيف يتم حفظ صورة في datagridiew غير متصل بقاعدة البيانات
مع العلم انه توجد معلومات
مثال 
الرقم + الاسم و اللقب+وتاريخ ميلاد+ومكان ميلاد+ابن
نقوم بحفظ الصورة مع هانه المعلومات

[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

[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
وكيف يتم صبط زر الطباعة للبعض الحقول من الجدول

[rochdi191]

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

[rochdi191]

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

[rochdi191]

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