powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VSFlexGrid
5 сообщений из 5, страница 1 из 1
VSFlexGrid
    #32846804
вопрос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кто нибудь работал с этим гридом?
Если есть можно пример кинуть как в нем раскрсить разные ячейки разным цветом, учитывая что к нему привязан рекордсет
...
Рейтинг: 0 / 0
VSFlexGrid
    #32846813
Дурак
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
С этим компонентом поставляется хороший хелп + фигова туча примеров.

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

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

Код: 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
VSFlexGrid
    #32846819
вопрос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Примеров я не нашел
У меня какая проблема:
Я к нему подсоединил рекордсет 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
VSFlexGrid
    #32846822
вопрос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Примеров я не нашел
У меня какая проблема:
Я к нему подсоединил рекордсет
Код: 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
VSFlexGrid
    #32847217
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Некоторые впечатления о работе с этим гридом Вот упоминаемый там скриншот:
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VSFlexGrid
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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