Ripartiamo da capo, magari mi sono spiegato male
Vorrei ottenere un effetto su una Listbox di doppia linea verticale.
Rispetto la risposta che ti ho dato prima non cambia molto:
Function CellBackgroundPaint(g As Graphics, row As Integer, column As Integer) As Boolean
if column=4 then
g.ForeColor=rgb(0,0,0)
g.DrawLine g.Width-2,0,g.Width-2,g.Height
end if
End Function
Tieni conto che:
Questo ti disegna il bordo anche per le celle vuote
il lato destro g.width-1, ma g.width la larghezza della porzione visibile della cella quindi se hai la scrollbar orizzontale devi trovare la larghezza della colonna, altrimenti ti disegna il tuo bordo non sul bordo.
Alternativamente puoi usare:
if column=4 and row<me.ListCount then
me.CellBorderRight(row,column)=Listbox.BorderThickSolid
end if
Ma in questo caso disegni il bordo solo sulle righe utilizzate e non anche su quelle vuote
Fortunatamente una tabella con dati statistici, quindi tutte le celle dalla prima all’ultima della listbox sono utilizzate
Opter per la seconda soluzione.
Ti ringrazio moltissimo
Grazie Grazie