Şimdi Ara

Datagridview kullanımı ve resim ekleme

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
3
Cevap
0
Favori
1.229
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • arkadaşlar merhaba,
    Bir sıkıntım var

    bir veri tabanından bilgileri datatable alıyorum
     
    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 :(




  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.