Как изменить цвет и шрифт ячеек в DataGrid
Такие атрибуты как цвет текта, цвет фона и шрифт
ячеек в Sheridan's DataGrid можно просто изменять путём
установки свойств RowCellxxxx (RowCellForeColor, RowCellBackColor,
RowCellItalic), и делать это в событии формы RowLoaded. Это
событие вызывается, когда таблица изначально
загружается. Следующий код устанавливает фон
нулевой колонки в красный цвет, текст в белый, а
шрифт делает наклонным:
Sub SSDataGrid1_RowLoaded (BookMark As String, _
RowNum As Long)
SSDataGrid1.RowCellForeColor(0) = _
RGB(255,255,255)
'set foreground to white
SSDataGrid1.RowCellBackColor(0) = RGB(255,0,0)
'set background to red
SSDataGrid1.RowCellItalics(0) = True
'set font to italics
End Sub
Можно сделать по другому. Указать в свойстве
EvalRowNumber количество строк, а затем устанавливать
соответствующие свойства RowCellxxxx. Следующий
пример иллюстрирует этот способ:
Sub Command1_Click()
SSDataGrid1.EvalRowNumber = 10
'row to be manipulated
SSDataGrid1.RowCellForeColor(2) = _
RGB(255,255,255)
'set foreground at column 2 to white
SSDataGrid1.RowCellBackColor(2) = RGB(255,0,0)
'set background to red
SSDataGrid1.RowCellItalics(2) = True
'set font to italics
End Sub
|