Dim Loglar As New SqlCeCommand("select * from HATALAR", conn) Dim da As New SqlCeDataAdapter(Loglar) Dim ds As New DataSet Dim dt As New DataTable ds.Tables.Add(dt) da.Fill(dt)
bu bunları bir datagridview 'a ekliyorum
LoglarDG.DataSource = dt.DefaultView
buraya kadar bir sıkıntı yok fakat şöyle bir işlem yapmak istiyorum. HATA_TURU diye bir alanım var burada ki bilgiler standart Error, Info, OK, Unknow diye 4 içerik var datagridview'da bu 4 yazı yerine 4 resim çıkmasını istiyorum bunu nasıl yapabilirim??
internetten biraz arastirdigimda
For Each row As DataRow In dt.Rows If row("HATA_TURU").ToString.ToLower = "error" Then Dim trueImg As Bitmap = New Bitmap(My.Resources._Error.ToBitmap) row("HATA_TURU") = trueImg ElseIf row("HATA_TURU").ToString.ToLower.Replace("ı", "i") = "info" Then Dim trueImg As Bitmap = New Bitmap(My.Resources.INFO.ToBitmap) row("HATA_TURU") = trueImg ElseIf row("HATA_TURU").ToString.ToLower = "ok" Then Dim trueImg As Bitmap = New Bitmap(My.Resources.OK.ToBitmap) row("HATA_TURU") = trueImg Else Dim trueImg As Bitmap = New Bitmap(My.Resources.Unkonw.ToBitmap) row("HATA_TURU") = trueImg End If Next
bu tarz bir kod buldum bunu ekledigimde ise resim çıkmıyor sadece " SYSTEM.DRAWING.BITMAP " yazıyor yardımcı olursanız sevinirim teşekkürler,
datagridview da resim koyacağın sutunun "ImageLayout" özelliğini ayarladın mı*
merhaba, yukarda basettigim disinda herhangi birsey eklemedim sadece bos bir datagridview sqlden cektigim verileri datatable atip datagriedview'ede source olarak bu table'li gosteriyorum.
internette biraz daha arastirdim
Private Sub LoglarDG_CellPainting(ByVal sender As System.Object, ByVal e As DataGridViewCellPaintingEventArgs) Handles LoglarDG.CellPainting If e.ColumnIndex = 3 Then e.Paint(e.CellBounds, DataGridViewPaintParts.All And Not DataGridViewPaintParts.ContentForeground) If e.Value.ToString.ToLower = "error" Then e.Graphics.DrawImage(My.Resources._Error.ToBitmap, e.CellBounds) ElseIf e.Value.ToString.ToLower = "ok" Then e.Graphics.DrawImage(My.Resources.OK.ToBitmap, e.CellBounds) ElseIf e.Value.ToString.ToLower.Replace("ı", "i") = "info" Then e.Graphics.DrawImage(My.Resources.INFO.ToBitmap, e.CellBounds) Else If e.Value <> "Log Türü" Then e.Graphics.DrawImage(My.Resources.Unkonw.ToBitmap, e.CellBounds) End If If e.Value <> "Log Türü" Then e.Handled = True End If End Sub
fakat burada resimleri cok buyuk gosteriyor bir turlu resmi sizeni ayarlayamiyorum :(
yeni mesaja git
Yeni mesajları sizin için sürekli kontrol ediyoruz, bir mesaj yazılırsa otomatik yükleyeceğiz.Bir Daha Gösterme