Merhaba arkadaşlar bu makalemizde dataGridView nesnesine dinamik olarak image column ekleyeceğiz. Formumuza 1 adet dataGridView ve Button ekleyelim. Eklediğimiz Button un Click event olayına aşağıdaki kodu yazacağız.
Şekil 1
Form1.vb
Public Class Form1
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
'dgv in font style ni ayarliyoruz.
DataGridView1.ColumnHeadersDefaultCellStyle.Font = New Font("Tahoma", 12, FontStyle.Regular)
DataGridView1.DefaultCellStyle.Font = New Font("Tahoma", 12, FontStyle.Regular)
'sutun yuksekligini ayarliyoruz.
DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
DataGridView1.ColumnHeadersHeight = 50
'satir genisligi ve yuksekligini ayarliyoruz.
For i = 0 To DataGridView1.Columns.Count - 1
DataGridView1.Columns(i).Width = 150
Next
DataGridView1.RowTemplate.Height = 100
'dgv de 4 sutun tanimliyoruz.
DataGridView1.ColumnCount = 4
'dgv de sutunlara isim veriyoruz.
DataGridView1.Columns(0).Name = "Id"
DataGridView1.Columns(1).Name = "Name"
DataGridView1.Columns(2).Name = "Surname"
DataGridView1.Columns(3).Name = "Contact"
'dgv e satirlarimizi ekliyoruz.
Dim row As String() = New String() {"1", "Bahadir", "Sahin", "basahin@hotmail.com"}
DataGridView1.Rows.Add(row)
row = New String() {"2", "Melissa", "Parker", "melparker@gmail.com"}
DataGridView1.Rows.Add(row)
row = New String() {"3", "Tommy", "Paton", "tommypat@hotmail.com"}
DataGridView1.Rows.Add(row)
row = New String() {"4", "Alice", "May", "alicemay12@hotmail.com"}
DataGridView1.Rows.Add(row)
row = New String() {"5", "Michael", "Alon", "michaelal57@gmail.com"}
DataGridView1.Rows.Add(row)
row = New String() {"6", "Mike", "Carson", "mikecarson33@hotmail.com"}
DataGridView1.Rows.Add(row)
row = New String() {"7", "Tracy", "Abbot", "tracyabbot82@hotmail.com"}
DataGridView1.Rows.Add(row)
row = New String() {"8", "Nancy", "White", "nancywh@gmail.com"}
DataGridView1.Rows.Add(row)
row = New String() {"9", "Jack", "Fox", "jackfox89@hotmail.com"}
DataGridView1.Rows.Add(row)
row = New String() {"10", "Alina", "Benson", "alinabens2@hotmail.com"}
DataGridView1.Rows.Add(row)
row = New String() {"11", "Joe", "Eagle", "joeeagle7@gmail.com"}
DataGridView1.Rows.Add(row)
row = New String() {"12", "Johanna", "Manson", "johannamans@hotmail.com"}
DataGridView1.Rows.Add(row)
'resim sutununu dgv e ekliyoruz.
Dim img As New DataGridViewImageColumn()
'gosterilecek image in yolu tanimliyoruz
Dim getImg As Image = Image.FromFile("D:\matrix.gif")
img.Image = getImg
'image sutunu dgv e ekleniyor.
DataGridView1.Columns.Add(img)
'image sutun adini belirliyoruz.
img.HeaderText = "Image"
img.Name = "img"
End Sub
End Class
Bir
makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır
ŞAHİN
0 comments:
Yorum Gönder