[Çözüldü]  Listview'da Yazı Rengi

Listeleme kutusu. Verileriniz klasör ve dosyalarınızı görsel olarak kontrol edebileceğiniz bir nesne modeli.

Listview'da Yazı Rengi

İleti#1)  SİBEL70 » 21 Nis 2010 22:53

Merhabalar,

Listview'da borç ve alacak sütunlarındaki verilerin yazı renklerini ayrı ayrı farklılaştırabilmek mümkün müdür acaba? Araştırdım ancak bu tür bir çalışma bulamadım.

Saygılar,
Kullanıcı avatarı
SİBEL70
Siteye Alışmış
 
Adı Soyadı:sibel bardakçı
Kayıt: 26 Oca 2009 03:02
Yaş: 49
İleti: 320
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

Cevap: Listview'da Yazı Rengi

İleti#2)  terkanli » 22 Nis 2010 08:38

Merhaba Sibel70,
Aşağıdaki yöntemle yapabilirsiniz. sh activesheet oluyor.
Kolay gelsin,
Tansu

Kod: Tümünü seç
With ListView1
        .ListItems.Clear
        For i = StartRow To EndRow
            .ListItems.Add , , Sh.Cells(i, 1)
            x = x + 1
            With .ListItems(x).ListSubItems
                .Add , , Sh.Cells(i, 2)
                .Add , , Sh.Cells(i, 3)
                .Add , , Sh.Cells(i, 4)
                .Add , , i
               ' ListView de 4. sütundaki veriler 3. sütundan büyükse listview satır rengi kırmızı
               ' değilse mavi
                If ListView1.ListItems.Item(x).ListSubItems(4) > ListView1.ListItems.Item(x).ListSubItems(3) Then
                    ListView1.ListItems(x).ForeColor = vbRed
                    ListView1.ListItems.Item(x).ListSubItems(1).ForeColor = vbRed
                    ListView1.ListItems.Item(x).ListSubItems(2).ForeColor = vbRed
                    ListView1.ListItems.Item(x).ListSubItems(3).ForeColor = vbRed
                    ListView1.ListItems.Item(x).ListSubItems(4).ForeColor = vbRed
                End If
                If ListView1.ListItems.Item(x).ListSubItems(3) > ListView1.ListItems.Item(x).ListSubItems(4) Then
                    ListView1.ListItems(x).ForeColor = vbBlue
                    ListView1.ListItems.Item(x).ListSubItems(1).ForeColor = vbBlue
                    ListView1.ListItems.Item(x).ListSubItems(2).ForeColor = vbBlue
                    ListView1.ListItems.Item(x).ListSubItems(3).ForeColor = vbBlue
                    ListView1.ListItems.Item(x).ListSubItems(4).ForeColor = vbBlue
                End If
            End With
        Next i
    End With
Kullanıcı avatarı
terkanli
Yeni Başlamış
 
Adı Soyadı:Tansu Erkanlı
Kayıt: 23 Mar 2010 16:10
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Listview'da Yazı Rengi

İleti#3)  SİBEL70 » 22 Nis 2010 09:36

Tansu Bey merhabalar,

Çözüm için teşekkür ediyor. Access den excele veri alırken bu tür renklendirmeye ihtiyaç duybilecek arkadaşlar için verdiğiniz koddan bir satırı aşağıdaki şekilde uyguladım. İyi bir gün diliyorum.

Saygılar,

Sub al()
'**** listele ******
On Error Resume Next
ListView1.ListItems.Clear
Dim ry As New ADODB.Recordset, s As Integer, sorgu As String
s = 1
If cbmbccariad.ListIndex > -1 Then
sorgu = "select * FROM [MusteriCariListe] where CariAdi = '" & cbmbccariad.List(cbmbccariad.ListIndex, 1) & "'and Donem= '" & cbcmcdonem.Text & "'order by Tarih;"
ry.Open sorgu, conn, 3, 1
Do While Not ry.EOF
With ListView1

.ListItems.Add , , ry(0)
.ListItems(s).ListSubItems.Add , , ry(1)
.ListItems(s).ListSubItems.Add , , ry(2)
.ListItems(s).ListSubItems.Add , , ry(3)
.ListItems(s).ListSubItems.Add , , ry(4)
.ListItems(s).ListSubItems.Add , , ry(5)
.ListItems(s).ListSubItems.Add , , ry(6)
.ListItems(s).ListSubItems.Add , , Format(ry(7), "#,##0.00")
.ListItems(s).ListSubItems.Add , , Format(ry(8), "#,##0.00")
.ListItems.Item(s).ListSubItems(8).ForeColor = vbRed
.ListItems(s).ListSubItems.Add , , ry(9)
s = s + 1
End With
ry.MoveNext
Loop
End If
Set ry = Nothing
sorgu = Empty
s = Empty
'*******************

End Sub
Kullanıcı avatarı
SİBEL70
Siteye Alışmış
 
Adı Soyadı:sibel bardakçı
Kayıt: 26 Oca 2009 03:02
Yaş: 49
İleti: 320
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

Cevap: Listview'da Yazı Rengi

İleti#4)  emre436 » 14 Ağu 2012 14:42

merhaba,,
listviewde durm sütununda kaldı yazıyorsa kırmızı renkle gözükmesini istiyorum...
Kullanıcı avatarı
emre436
 
Adı Soyadı:EMRE GÜL
Kayıt: 11 Ağu 2012 20:24
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Listview'da Yazı Rengi

İleti#5)  Tarkan VURAL » 14 Ağu 2012 23:57

Önce Listview' in ilgili sutun numarasını tespit edin. Ben örnekte 4 nolu sütunu belirledim. Örnek çalışmada 5 nolu sırada ama saymaya sıfırdan başlarsanız aslında 4 numara olmalıdır.
Kod: Tümünü seç
With ListView1
    For i = 1 To .ListItems.Count
        If .ListItems(i).ListSubItems(4).Text = "Kaldı" Then
            For a = 1 To .ColumnHeaders.Count - 1
                .ListItems(i).ForeColor = vbRed
                .ListItems(i).ListSubItems(a).ForeColor = vbRed
            Next a
        End If
    Next i
        .Refresh
End With
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27077
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü


Forum ListView

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe