Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
01/11/2009 16:29
Konu Sahibi
orcunerkek54
Yorumlar
5
Okunma
2707
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

orcunerkek54

Üye
Üye
 41
 18
 5
 03/05/2009
0
 İstanbul
 
 Ofis 2003
 08/10/2016,14:12
Çözüldü 
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.


Ek Dosyalar
.rar   listview renklendirme.rar(Dosya Boyutu: 17,06 KB / İndirme Sayısı: 52)
orcunerkek54, 03-05-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

maytas

Onursal Üye
Onursal Üye
 52
 545
 25
 21/12/2008
178
 Bursa
 
 Ofis 2010 32 Bit
 28/07/2018,14:42
Çözüldü 
Merhaba.
Alttaki kodları örneğin bir CommandButton'ın Click olayına atayın:

Kod:
1
2
3
4
5
6
7
8
    For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(i).SubItems(2) = "İade" Then
            ListView1.ListItems(i).ListSubItems(2).ForeColor = vbRed
        ElseIf ListView1.ListItems(i).SubItems(2) = "Defolu" Then
            ListView1.ListItems(i).ListSubItems(2).ForeColor = vbBlue
        End If
    Next
    ListView1.Refresh


Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
resim

Kullanici Avatari

orcunerkek54

Üye
Üye
 41
 18
 5
 03/05/2009
0
 İstanbul
 
 Ofis 2003
 08/10/2016,14:12
Çözüldü 
yardımınız için çok teşekkürler. kodlar çalıştı. diğer satırlarıda kapsayacak şekilde kodları devam etiirdim. belki benim gibi bilmeyen arkadaşlara lazım olabilir. yeterli örnek bulması çok zor. syn maytasa tekrar teşekkürler

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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


orcunerkek54, 03-05-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

benremix

Onursal Üye
Onursal Üye
RA.... SO....
 51
 4.441
 127
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 Bugün,07:13
Çözüldü 
Katkı ve paylaşımlarınız için emeği geçenlere teşekkürler. saygılar..


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi



Kullanici Avatari

Bilgisayarcı

Atçalı
Aktif Üye
 Belirtilmemiş
 658
 34
 29/01/2008
410
 Antalya
 
 Ofis 2003
 01/11/2011,15:17
Çözüldü 
Alıntı:yardımınız için çok teşekkürler. kodlar çalıştı. diğer satırlarıda kapsayacak şekilde kodları devam etiirdim. belki benim gibi bilmeyen arkadaşlara lazım olabilir. yeterli örnek bulması çok zor. syn maytasa tekrar teşekkürler

Forumda ufak bi taramayla listview hakkında en az 4 tane örnek çıkacaktır karşınıza...
Bir ikisini ben yazdım ordan biliyorumImg-grin


Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes



Kullanici Avatari

orcunerkek54

Üye
Üye
 41
 18
 5
 03/05/2009
0
 İstanbul
 
 Ofis 2003
 08/10/2016,14:12
Çözüldü 
örneklerin hepsini inceledim. ancak kendime uyarlayamamıştım kodlar karışık gelmişti.


orcunerkek54, 03-05-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Birleşik Değer Kutusuna Göre Vcard access acemisi 33 478 21/09/2018, 12:20
Son Yorum: access acemisi
Çözüldü Alt Formda Seçilen Kategoriye Göre O Kategoride Bulunan Ürünlerin Süzülmesi 001hacker 2 63 20/09/2018, 23:07
Son Yorum: 001hacker
Çözüldü Yıla Göre Aylık Toplu Ve Yıla Göre Aylık Listbox Filtreli Rapor shephard 6 144 19/09/2018, 20:13
Son Yorum: shephard
Çözüldü Form'a Seçilen Kriterlere Göre Veri Getirmek enotr 9 334 28/08/2018, 08:59
Son Yorum: enotr
Çözüldü İsme Göre Otomatik Sıra No golf2000 2 177 08/08/2018, 18:07
Son Yorum: golf2000

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.