+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Mscomctllib.listviewctrl.2 İtem Backcolor (/konu-mscomctllib-listviewctrl-2-item-backcolor.html)
Sayfalar:
1
2
Mscomctllib.listviewctrl.2 İtem Backcolor - accessman - 06/02/2020
Listenin her satırının zemin rengini farklı nasıl ayarlayabiliriz
Cvp: Mscomctllib.listviewctrl.2 İtem Backcolor - accessman - 06/02/2020
Şu olmuyor
Kod:
Dim lvi As ListViewItem = New ListViewItem
lvi.Text = "Test"
lvi.BackColor = if(status.tolower = "pending",Color.Red, Color.Blue)
ListView1.Items.Add(lvi)Cvp: Mscomctllib.listviewctrl.2 İtem Backcolor - accessman - 06/02/2020
Public Sub ColorListviewRow(lv As ListView, RowNbr As Long, RowColor As OLE_COLOR)
'***************************************************************************
'Purpose: Color a ListView Row
'Inputs : lv - The ListView
' RowNbr - The index of the row to be colored
' RowColor - The color to color it
'Outputs: None
'***************************************************************************
Dim itmX As ListItem
Dim lvSI As ListSubItem
Dim intIndex As Integer
On Error GoTo ErrorRoutine
Set itmX = lv.ListItems(RowNbr)
itmX.ForeColor = RowColor
For intIndex = 1 To lv.ColumnHeaders.Count - 1
Set lvSI = itmX.ListSubItems(intIndex)
lvSI.ForeColor = RowColor
Next
Set itmX = Nothing
Set lvSI = Nothing
Exit Sub
ErrorRoutine:
MsgBox Err.Description
End Sub
Usage: (To make the 5th row of a ListView Red)
Cvp: Mscomctllib.listviewctrl.2 İtem Backcolor - accessman - 06/02/2020
ListView1.SelectedItem.ListSubItems(1).ForeColor = vbRed
Cvp: Mscomctllib.listviewctrl.2 İtem Backcolor - feraz - 06/02/2020
Merhaba üstad aklıma takılanları bir sorayım.
Listviewdeki tüm satırların arka planımı değişik renk olacak kısaca sarı,kırmızı,sarı,kırmızı gibi
Verdiğiniz fonksiyondan anladıpım kadarıyla sadece seçili alanlar renleniyor doğu mu?
Sorun çözüldü mü?
Cvp: Mscomctllib.listviewctrl.2 İtem Backcolor - accessman - 06/02/2020
hayır maalesef