Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VSFlexGrid / 5 сообщений из 5, страница 1 из 1
27.12.2004, 19:22:22
    #32846804
вопрос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSFlexGrid
Кто нибудь работал с этим гридом?
Если есть можно пример кинуть как в нем раскрсить разные ячейки разным цветом, учитывая что к нему привязан рекордсет
...
Рейтинг: 0 / 0
27.12.2004, 19:35:24
    #32846813
Дурак
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSFlexGrid
С этим компонентом поставляется хороший хелп + фигова туча примеров.

Раскраска там тоже есть.

В двух словах.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
With vsCardList
    .Redraw = flexRDNone
        ' "задизаблить" сумму
        .Cell(flexcpBackColor, i, .ColIndex("SumCol")) = RGB( 200 ,  200 ,  200 ) 'vbGrayText
        .Cell(flexcpForeColor, i, .ColIndex("SumCol")) = vbButtonText

        .Redraw = flexRDDirect
End With

...
Рейтинг: 0 / 0
27.12.2004, 19:43:46
    #32846819
вопрос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSFlexGrid
Примеров я не нашел
У меня какая проблема:
Я к нему подсоединил рекордсет Set FG.DataSource = rs
И хотелось бы исходя из того что в полях рекордсета, изменить цвет некоторым ячейкам грида. Я выставил свойство FG.OwnerDraw = flexODOver
и в событии
Private Sub FG_DrawCell(ByVal hDC As Long, ByVal Row As Long, ByVal Col As Long, ByVal Left As Long, ByVal Top As Long, ByVal Right As Long, ByVal Bottom As Long, Done As Boolean)
If FG.ColIndex("Country") = Col Then
Select Case FG.Cell(flexcpText, Row, Col)
Case "USA"
FG.Cell(flexcpBackColor, Row, Col) = vbRed
'FG.CellBackColor = vbRed
Case "UK"
FG.Cell(flexcpBackColor, Row, Col) = vbBlue
Case Else
End Select
End If
End Sub

написал такой код, неустраивает то что подсвечиваемые поля мерцают.
...
Рейтинг: 0 / 0
27.12.2004, 19:46:01
    #32846822
вопрос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSFlexGrid
Примеров я не нашел
У меня какая проблема:
Я к нему подсоединил рекордсет
Код: plaintext
Set FG.DataSource = rs
И хотелось бы исходя из того что в полях рекордсета, изменить цвет некоторым ячейкам грида. Я выставил свойство FG.OwnerDraw = flexODOver
и в событии
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub FG_DrawCell(ByVal hDC As Long, ByVal Row As Long, ByVal Col As Long, ByVal Left As Long, ByVal Top As Long, ByVal Right As Long, ByVal Bottom As Long, Done As Boolean)
    If FG.ColIndex("Country") = Col Then
        Select Case FG.Cell(flexcpText, Row, Col)
            Case "USA"
                FG.Cell(flexcpBackColor, Row, Col) = vbRed
                'FG.CellBackColor = vbRed
            Case "UK"
                FG.Cell(flexcpBackColor, Row, Col) = vbBlue
            Case Else
        End Select
    End If
End Sub
написал такой код, неустраивает то что подсвечиваемые поля мерцают.
...
Рейтинг: 0 / 0
28.12.2004, 10:44:56
    #32847217
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSFlexGrid
Некоторые впечатления о работе с этим гридом Вот упоминаемый там скриншот:
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VSFlexGrid / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]