Hi folks,
via Code färbe ich zur Programmlaufzeit Zeilen (mindestens zwei aufeinander
folgende Zeilen) ein.
Nun würde ich gerne via me.ScrollPosition auch die Position am Anfang der
Listbox setzen.
Nur leider funktioniert das nicht. Hat einer eine Idee?
Wenn me.ScrollPosition=row mit einfüge, dann springt die Postion überall hin,
aber nicht so wie es sein sollte.
Function CellBackgroundPaint(g As Graphics, row As Integer, column As Integer)
As Boolean
if not me.Selected(row) then //Default Hintergrundfarben
if row Mod 2 = 0 then
g.ForeColor = rgb(237,243,254)
else
g.ForeColor = rgb(250,250,250)
end if
g.FillRect 0, 0, g.width, g.Height
end if
//Hintergrund einfärben, wenn der Inhalt von Spalte 7 dem von der
ListboxUpLinkMacAdrOnly Spalte 3 entspricht.
if ListboxUpLinkMacAdrOnly.ListIndex > -1 and row < me.ListCount then
if ListboxUpLinkMacAdrOnly.cell(ListboxUpLinkMacAdrOnly.ListIndex,3) =
me.cell(row,7) then
g.ForeColor = rgb(175,210,130)
g.FillRect 0, 0, g.width, g.Height
end if
end if
End Function
Gruß
Klemens
