Клетка в FlexGrid

[Fox_Malder]

На форме располагается MS FlexGrid.

Следующий код выдает ошибку:

Код: Выделить всё

Private Sub gridLetter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Select Case Button
    Case 1 'левая кнопка
        gridLetter.CellBackColor = &H80000008
    Case 2 'правая кнопка
        gridLetter.CellBackColor = &HFFFFFF
    End Select
End Sub

Private Sub Analysis()
    For i = 1 To 30
        For j = 1 To 30
            If gridLetter.CellBackColor = &H80000008 Then
                A(i, j) = 1
            Else
                A(i, j) = 0
            End If
        Next j
    Next i
End Sub

Т.е. как можно определить цвет у конкретной клетки?

[Viper]

и в чем заключается ошибка?

З.Ы. Код, мягко говоря странно выглядит

З.З.Ы. Для определения цвета определенной ячейки - сделать ее активной и проверить цвет

[Fox_Malder]

[quote="!Viper!"]и в чем заключается ошибка?

Делаю программу по распознаванию букв (нейронная сеть). А в Grid'е пользователь рисует букву, программа определяет, что это за буква (на основе закрашенных областей). Думаю, что теперь понятно.

[Avtopic]

Делаю программу по распознаванию букв (нейронная сеть). А в Grid'е пользователь рисует букву, программа определяет, что это за буква (на основе закрашенных областей). Думаю, что теперь понятно.

То !Viper!: Тепер понятно? : ))

[Nicky]

...Т.е. как можно определить цвет у конкретной клетки?

Код: Выделить всё

with FlexGrid1
  .Col = lColumn
  .Row = lRow
  MsgBox .CellBackColor
end with