How to add Image in the DatagridView using VB.NET

sori gw post disini buat anak2 forum , sekalian itung2 arsipin wokwaowakowako dan di forum jg kl pastein gini pasti ancur karena ga ada fitur google syntax highlighter nya buat tampilin code biar ga di filter he2

Disini saya akan mencontohkan beberapa contoh untuk add item ke dalam datagrid dengan beberapa teknik yang berbeda ,

saya akan sedikit memaparkan bagaimana untuk add image ke dalam datagrid , pertama kita mesti memastikan column yg kita add adalah columntype dengan DataGridViewImageColumn agar gambar dapat kita add gambar ke dalamnya .
dalam teknik di bawah ini tergantung kebutuhan anda menginginkan image yg seperti apa yang ingin anda add ke dalamnya ,
baik untuk menampilkan image  hanya pada  beberapa baris data ( rows ) , atau keseluruhan baris data ( rows ) , masih banyak lagi aksesoris yang dapat anda gunakan , disini saya menunjukkan dengan 3 teknik VB.Net dan 1 C# , terima kasih sebelum dan sesudahnya .
jgn lp main2 jg ke www.murahgila.com yah ^^

VB.NET – Teknik 1 Dengan Rows.add dengan Drawing.Bitmap

Dim bmp1 As New System.Drawing.Bitmap(Application.StartupPath + “\u.png”)
Try
Dim i As Integer = 1
sqlcom.Connection = mycon.openCon()
sqlcom.CommandText = “select username as [Username] , pass as [Password] , jabatan as Jabatan from msuser a left join msjabatan b on a.id = b.id”
sqlcom.CommandType = CommandType.Text
sqldr = sqlcom.ExecuteReader

While sqldr.Read
DataGridView1.Rows.Add(bmp1, sqldr.Item(0), sqldr.Item(1), sqldr.Item(2))
i = i + 1
End While
mycon.closeCon()

DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
DataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.True
DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

VB.NET – Teknik 2 Dengan Rows.add dengan Image From File

Try
Dim i As Integer = 1
sqlcom.Connection = mycon.openCon()
sqlcom.CommandText = “select username as [Username] , pass as [Password] , jabatan as Jabatan from msuser a left join msjabatan b on a.id = b.id”
sqlcom.CommandType = CommandType.Text
sqldr = sqlcom.ExecuteReader

While sqldr.Read
DataGridView1.Rows.Add(Image.FromFile(Application.StartupPath + “\u.png”), sqldr.Item(0), sqldr.Item(1), sqldr.Item(
i = i + 1
End While
mycon.closeCon()

DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
DataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.True
DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

VB.NET – Teknik 3

Dim dgImage As New DataGridViewImageColumn
dgImage.Image = Drawing.Image.FromFile(“C:\FixedOption.ico”)
dgImage.ReadOnly = True
dgImage.ImageLayout = DataGridViewImageCellLayout.Normal
dgDataGridView.Columns.Add(dgImage)

‘Bind ke DataGrid dengan dataset bila ingin menampilkannya
dgDataGridView.DataSource = DataSet

C#.NET

dgDataGridView.Rows.Clear();

DataGridViewImageColumn dgImage = new DataGridViewImageColumn();

dgImage.Image = Drawing.Image.FromFile(“C:\\IconLocation\\FixedOption.ico”);

dgImage.ReadOnly = true;

dgImage.ImageLayout = DataGridViewImageCellLayout.Normal;

dgDataGridView.Columns.Add(dgImage);

//Bind ke dataset untuk menampilkannya

dgDataGridView.DataSource = BindDataSet;

About these ads