السلام عليكم
صج فطوركم
كيف يتم حفظ صورة في datagridiew غير متصل بقاعدة البيانات
مع العلم انه توجد معلومات
مثال
الرقم + الاسم و اللقب+وتاريخ ميلاد+ومكان ميلاد+ابن
نقوم بحفظ الصورة مع هانه المعلومات
كود :
' انشاء عامود للصورة بالداتا جرد فيو
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
(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
وكيف يتم صبط زر الطباعة للبعض الحقول من الجدول
كيف يبم الحقاظ على البيانات المخزنة في الداتا قريد
وكيف يتم ضبط زر تصدير المعلومات الى ملف exel
وكيف يتم صبط زر الطباعة للبعض الحقول من الجدول
كيف يبم الحقاظ على البيانات المخزنة في الداتا قريد
وكيف يتم ضبط زر تصدير المعلومات الى ملف exel
وكيف يتم صبط زر الطباعة للبعض الحقول من الجدول
كيف يبم الحقاظ على البيانات المخزنة في الداتا قريد
وكيف يتم ضبط زر تصدير المعلومات الى ملف exel واسترداد ملف الى داتا قريد لتعديل والاضافة فيه
وكيف يتم صبط زر الطباعة للبعض الحقول من الجدول