listview de tüm satırı renklendirme

[orcunerkek54]

herkeze iyi akşamlar accsess listviewde 3. sütunda sütun adı (islem_turu) olsun

örneğin "arızalı" yazıyorsa o satır komple kırmızı olsun eğer "iade" yazıyorsa o satır komple sarı olsun bunlar yazmıyorsa renklenme olmasın. yardımcı olursanız sevinirim.

 

[Orion1]

Exceldeki listviewde satırın backcoloru renklenmiyor ama accesste bilemem.

 

[orcunerkek54]

yazıları renklendirmişler örnekler gördüm ama satır renklendirmesi görmedim. yazı renklendirmeleride benim istediğim şartlara uygun değil. istediğim koşullara uygun bir örnek verebilirmisiniz.satır veya sütun renklenmesi fark etmez. aslında sütun renklenirse fena olmaz. teşekkürler

 

[Orion1]

evet fontlar renklendirilebiliyor ama satır arka planı renklenmiyor.
Sizde font rengi istemiyorsunuz.O zaman olmaz.

 

[simendifer]

satır renklendirme

istediğiniz işlem ekteki resimde islem_turu metin kutusunun koşullu biçimlendirmeye girin resimdekini aynen uygulayın

 

[orcunerkek54]

syn simendifer ilk önce sizde syn evren gizlende süper hızlısınız.ilginize teşekkürler. verdiğiniz örneği daha öncede inceledim orada anladığım kadarıyla tablodaki kimlik le kod numaralarını karşılaştırıp sonra renklendirme yapmış ben onun yazdığı koddan kendimle ilgili olan kısmı ayrıştıramadım. benim istediğim sadece listviewdeki veri ile alakalı. yardımcı olursanız sevinirim.

 

[orcunerkek54]

Dim Item As ListItem
Dim Counter As Long
Dim FreightAmount As Integer
For Counter = 1 To Me.ListView4.ListItems.Count
Set Item = Me.ListView4.ListItems.Item(Counter)
FreightAmount = Item.SubItems(1)
With Me.ListView4
If Item.SubItems(1) = İADE Then
.ListItems.Item(Counter).ForeColor = 883995
.ListItems.Item(Counter).ListSubItems(1).ForeColor = 883995
.ListItems.Item(Counter).ListSubItems(2).ForeColor = 883995
.ListItems.Item(Counter).ListSubItems(3).ForeColor = 883995

Else
Next Counter
Me.ListView4.Refresh


Listviewde 2.sütunda iade yazıyorsa o satırdaki yazılar kırmızı olsun istiyorum. Bulduğum kodları (If Item.SubItems(1) = İADE Then şeklinde) buna göre değiştirmeye çalıştım ama başaramadım. Başka bir şeyde aklıma gelmiyor. Bu kodu amacıma uygun olarak nasıl değiştirebilirim. Yardımcı olursanız sevinirim.
Kodları biraz anlatabilirseniz sevinirim. Tüm arkadaşlara teşekkürler.

 

[orcunerkek54]

tüm uğraşlarıma rağmen hala beceremedim.
eklediğim örneğe göre tüm satırı "iade" ise kırmızı renk, "defolu" ise mavi renk olacak şekilde yapabilirmisiniz.
tüm arkadaşlara teşekkürler.

 

[modalı]

Sayın orcunerkek54,

Hatırladığım kadarıyla bu konu epey tartışılmıştı. Neden sürekli form ve koşullu biçimlendirme kullanmıyorsunuz?


İyi çalışmalar

 

[orcunerkek54]

görüntü olarak begeniyorum ve ileride yapmak istediğim seyleri onunla yapabileceğimi düşünüyorum.

 

[orcunerkek54]

bu konuda yardımcı olabilecek arkadaşım varmı.

 

[orcunerkek54]

istediğim çözümü buldum. başka arkadaşlarada lazım olabilir düşüncesiyle cevabı ekliyorum tüm arkadaşlara iyi akşamlar.

Private Sub Komut2_Click()
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(2) = "İade" Then 'koşul satırı
ListView1.ListItems(i).ListSubItems(2).ForeColor = vbRed '3. sıra
ListView1.ListItems(i).ListSubItems(1).ForeColor = vbRed '2. sıra
ListView1.ListItems(i).ForeColor = vbRed 'ilk sıra

ElseIf ListView1.ListItems(i).SubItems(2) = "Defolu" Then
ListView1.ListItems(i).ListSubItems(2).ForeColor = vbBlue '3. sıra
ListView1.ListItems(i).ListSubItems(1).ForeColor = vbBlue '2. sıra
ListView1.ListItems(i).ForeColor = vbBlue 'ilk sıra

End If
Next
ListView1.Refresh
End Sub

 

[modalı]

yazıları renklendirmişler örnekler gördüm ama satır renklendirmesi görmedim. yazı renklendirmeleride benim istediğim şartlara uygun değil. istediğim koşullara uygun bir örnek verebilirmisiniz.satır veya sütun renklenmesi fark etmez. aslında sütun renklenirse fena olmaz. teşekkürler

Çözümü buldum dediniz ???