Цветные сроки в MSHFlexGrid - VB
Формулировка задачи:
Казалось бы простая операция, но...
Необходимо раскапсить строки в гриде в разный цвет.
Решение которое я использую это цикл в нутри цикла, т.е. во внешнем цикле двигаюсь по
строкам, а во внутреннем по колонкам и меняю CellBackColor для каждой отдельно взятой клетки.
Способ некрасивый и долгий (требует много времени).
Ворос нет ли другого способа раскраски?
Четные в один цвет нечетные в другой, или каждую третью в один цвет остальные в другой ?
Решение задачи: «Цветные сроки в MSHFlexGrid»
textual
Листинг программы
Private Sub Command1_Click() Dim iRow As Integer Dim blnPaintRed As Boolean With MSHFlexGrid1 For iRow = 1 To .Rows - 1 .Row = iRow .Col = 0 .RowSel = iRow .ColSel = .Cols - 1 .FillStyle = flexFillRepeat .CellForeColor = IIf(blnPaintRed, vbYellow, vbRed) .CellBackColor = IIf(blnPaintRed, vbRed, vbYellow) blnPaintRed = Not blnPaintRed Next iRow End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д