Клетка в FlexGrid

Программирование на Visual Basic for Applications
Fox_Malder
Новичок
Новичок
Аватара пользователя
 
Сообщения: 42
Зарегистрирован: 20.10.2005 (Чт) 7:25
Откуда: Россия, г. Астрахань

Клетка в FlexGrid

Сообщение Fox_Malder » 06.11.2006 (Пн) 10:39

На форме располагается 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
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 06.11.2006 (Пн) 10:53

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

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

З.З.Ы. Для определения цвета определенной ячейки - сделать ее активной и проверить цвет
Весь мир матрица, а мы в нем потоки байтов!

Fox_Malder
Новичок
Новичок
Аватара пользователя
 
Сообщения: 42
Зарегистрирован: 20.10.2005 (Чт) 7:25
Откуда: Россия, г. Астрахань

Сообщение Fox_Malder » 06.11.2006 (Пн) 16:51

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

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

Avtopic
Постоялец
Постоялец
 
Сообщения: 442
Зарегистрирован: 30.09.2005 (Пт) 17:15
Откуда: Tbilisi

Сообщение Avtopic » 06.11.2006 (Пн) 17:02

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


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

Nicky
Постоялец
Постоялец
 
Сообщения: 519
Зарегистрирован: 12.08.2004 (Чт) 12:14

Re: Клетка в FlexGrid

Сообщение Nicky » 07.11.2006 (Вт) 11:19

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

Код: Выделить всё
with FlexGrid1
  .Col = lColumn
  .Row = lRow
  MsgBox .CellBackColor
end with


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 84

    TopList