13-05-20, 01:12 AM
(12-05-20, 01:45 AM)aljzazy كتب :بارك الله فيك اخي 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
كيف يبم الحقاظ على البيانات المخزنة في الداتا قريد
وكيف يتم ضبط زر تصدير المعلومات الى ملف exel
وكيف يتم صبط زر الطباعة للبعض الحقول من الجدول
