Listview 1.Sütun 1.Satır Karakter sayısına göre renklendirme

[samsun2005]

Option Explicit
 
Private Declare Function GetSystemMetrics& Lib "user32" (ByVal nlndex&)
Private Const SM_CYSIZE = 31
 
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private baglan As Object, rs As Object
Public silhesap As String
Public silhesapad As String
Public c As Integer
Dim kontrol As Boolean
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
 
-------------------------------------------------------------------------------------------
Private Sub baglanti()
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\data.mdb"
End Sub
-------------------------------------------------------------------------------------------
 
Private Sub listeye_al()
Dim a, b As Long, baglan As Object, rs As Object
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
 
Call baglanti
rs.Open "select HP_KOD,HP_AD from HP WHERE SIRKET_KOD= '" & Giris.ListBox2.List(0, 0) & "' AND MALIYIL='" & Giris.ListBox2.List(1, 0) & "' order by HP_KOD ", baglan, 1, 1
If rs.RecordCount > 0 Then
 
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
 
With ListView1
.ColumnHeaders.Add , , "HESAP KODU", 130
.ColumnHeaders.Add , , "HESAP ADI", 150
.FullRowSelect = True
.Gridlines = True
.View = lvwReport
 
Do While Not rs.EOF
.ListItems.Add , , rs.Fields(0).Value
For b = 1 To rs.Fields.Count - 1
.ListItems(.ListItems.Count).ListSubItems.Add , , rs.Fields(b).Value
Next b
rs.movenext
Loop
For a = 0 To (ListView1.ColumnHeaders.Count - 1)
Call SendMessage(ListView1.hwnd, 4126, a, ByVal -2)
Next a
End With
End If
Set rs = Nothing
Set baglan = Nothing
 
End Sub
-------------------------------------------

Selamlar,

Yukarıdaki kodlarla access veritabanından verileri alıyorum. Bu verileri alırken; 1. sütun 1.satıra veri alındığında Alınan Karakter sayısına göre(Örnek: 1 Sütun 1 satır karakter sayısı = 20 ise Kırmızı) satırları renklendirmek istiyorum. Bu konuda yardımcı olacak arkadaşlara şimdiden Teşekkürler.