ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
01/11/2009 16:29
Konu Sahibi
orcunerkek54
Yorumlar
5
Okunma
2555
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

orcunerkek54

Üye
Kullanici Avatari
Üye
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.
Cevapla

maytas

Aktif Üye
Kullanici Avatari
Aktif Üye
545
21/12/2008
173
Bursa
Ofis 2010 32 Bit
16/10/2017,12:01
Çö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
Cevapla

orcunerkek54

Üye
Kullanici Avatari
Üye
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.
Cevapla

benremix

Uzman
Kullanici Avatari
Uzman
R.... S....
4.437
17/05/2009
365
Ankara
Şirket Sahibi
Ofis 2010 64 Bit
Bugün,20:25
Çö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


Cevapla

Bilgisayarcı

Atçalı
Kullanici Avatari
Aktif Üye
657
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


Cevapla

orcunerkek54

Üye
Kullanici Avatari
Üye
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.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Açılır Listedeki Bilgiye Göre Form Alanlarının Değişmesi knuur 6 221 20/11/2017, 22:16 ozanakkaya
Çözüldü Gruplara Göre Kriterleri Toplamak alperadn01 2 85 12/11/2017, 10:07 alperadn01
Çözüldü Koşullu Renklendirme ertans 8 279 19/10/2017, 22:43 ertans
Çözüldü Formdaki Değerlere Göre Raporu Listeleme husem 7 284 01/10/2017, 21:44 ozanakkaya
Çözüldü Form Üzerinden Tablodaki Satış Koduna Ait Verileri İskonta Oranına Göre Güncelle husem 2 171 30/08/2017, 15:51 husem
 
 

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.