Закрашивается только одна ячейка MSFlexGrid - VB

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_Load()
Dim i As Integer
Dim j As Integer
FlexGrid.Rows = 15
FlexGrid.Cols = 3
    For j = 0 To 10
        For i = 0 To 2
 
          With FlexGrid
            .TextArray(GetCellIndex(j, i)) = "любой текст"
            .CellBackColor = vbRed   ' ---->тут красной становится только одна ячейка с индексом 0,0
          End With
 
        Next i
    Next j
End Sub
 
Function GetCellIndex(row As Integer, col As Integer)
    GetCellIndex = row * FlexGrid.Cols + col
End Function

Никто не знает, почему красной клеткой ставновится только ячейка с адресом (row=0,col=0), на остальные ячейки компонента MSFlexGrid, CellBackColor не распространяется почемуто????

Решение задачи: «Закрашивается только одна ячейка MSFlexGrid»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Sub Комманда1_Click()
Dim I, J
  With FlexGrid
.Rows = 15
.Cols = 3
    For J = 0 To 10
        For I = 0 To 2
            .TextMatrix(J, I) = "любой текст"
            .Row = J
            .Col = I
            .CellBackColor = vbRed   ' ---->тут красной становится только одна ячейка с индексом 0,0
        Next I
    Next J
 
 End With
End Sub
 
End Sub

Оцени полезность:

7 голосов , оценка 3.714 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы