powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / В MSFlexGrid отельные ячейки форматируются?
17 сообщений из 17, страница 1 из 1
В MSFlexGrid отельные ячейки форматируются?
    #33168896
gav
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уважаемые знатоки, подскажите пожалуйста:

В MSFlexGrid отельные ячейки форматируются?

Заранеее спасибо.
...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33168996
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Выбирается диапазон ячеек с помощью свойств Row, Col, RowSel, ColSel и затем используются свойства с префиксом Cell.. (CellAlignment, CellBackColor и т.д.)
...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33169158
gav
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что я не так делаю? Формат не изменяется :(
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
        With Me.MSFlexGrid1
        
            .RowSel =  1 
            .CellFontSize =  24 
                  
        End With

...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33169299
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
gavЧто я не так делаю? Формат не изменяется :(
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
        With Me.MSFlexGrid1
        
            .Row = ...
            .Col = ...
            .RowSel =  1 
            .ColSel = ...
            .CellFontSize =  24 
                  
        End With

...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33169338
gav
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Народ! Не бросайте на произвол судьбы, помогите кто чем может :), а то время поджимает
...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33169377
gav
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уважаемый nibbles, спасибо за помощь, но торможу, не изменяется ничего у меня,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
With Me.MSFlexGrid1
    .Row =  2 
    .Col =  3 
    .RowSel =  2 
    .ColSel =  3 
    .CellFontSize =  24 
End With

Если не возражаешь пара вопросов:

1. Row типа Long-это номер ряда? Зачем выбирать его 2 раза? Тоже про Col
2. Можно кусочек кода поподробнее?
...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33169440
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
gavУважаемый nibbles, спасибо за помощь, но торможу, не изменяется ничего у меня,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
With Me.MSFlexGrid1

    .Row =  2 
    .Col =  3 
    .RowSel =  2 
    .ColSel =  3 
    .CellFontSize =  24 
End With

Если не возражаешь пара вопросов:

1. Row типа Long-это номер ряда? Зачем выбирать его 2 раза? Тоже про Col
2. Можно кусочек кода поподробнее?
1. Таким образом указывается диапазон ячеек.
2. Вот пример (работа идет в Access)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
    ' Значения
    iRow =  1 
    Do Until rst.EOF
        iCol =  0 
        For Each myField In rst.Fields
            myGrid.TextMatrix(iRow, iCol) = Format(Nz(myField.Value, "-"), "# ### ##0")
            ' Выравнивание
            myGrid.Row = iRow
            myGrid.Col = iCol
            If iCol <>  0  And iCol <>  1  Then
                myGrid.CellAlignment = flexAlignRightCenter
            End If
            ' Окрас столбца с итоговой суммой
            If iCol =  2  Then
                myGrid.CellBackColor = myGrid.BackColorBkg
                myGrid.CellFontBold = True
            End If
            iCol = iCol +  1 
        Next
        iRow = iRow +  1 
        rst.MoveNext
    Loop
    rst.Close
    
    ' Последнюю ячейку (CustomTypeID = 99) - перекрасить и сделать жирным
    For iRow =  1  To myGrid.Rows -  1 
        If myGrid.TextMatrix(iRow,  0 ) =  99  Then
            myGrid.Row = iRow
            For iCol =  0  To myGrid.Cols -  1 
                myGrid.Col = iCol
                myGrid.CellBackColor = myGrid.BackColorBkg
                myGrid.CellFontBold = True
                myGrid.CellAlignment = flexAlignRightCenter
            Next
            Exit For
        End If
    Next
    
...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33169568
Фотография Ennor Tiegael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вы забыли про свойство грида FillStyle:
Код: plaintext
Me.MSHFlexGrid1.FillStyle = flexFillRepeat
В таком режиме - да, будет изменяться все выделение, иначе (по дефолту, кстати) - только текущая ячейка.
gav1. Row типа Long-это номер ряда? Зачем выбирать его 2 раза? Тоже про ColНа случай, если Вы были недостаточно внимательны: свойства Col и ColSel - разные, это не одно и то же. То же касается и пары Row/RowSel. Разницу читать в MSDN.
...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33173066
gav
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо, ребята за помощь, все получилось, затык теперь с объединением ячеек. Делал вот так, но не работает, подскажите где ошибка?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Sub FormatHeadGr2()

Dim i As Integer, j As Integer

With Me.MSFlexGrid2

    For i =  1  To  4 
        For j =  1  To  2 
                    
            .Col =  1 
            .RowSel = i
            .ColSel = j
            .Row = .RowSel
            .Col = .ColSel
            .MergeCells = flexMergeRestrictAll

        Next
    Next

End With

End Sub

...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33173408
gav
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Прошу прощенья, вот так, (только тоже не работает)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Private Sub FormatHeadGr2()

Dim i As Integer, j As Integer

With Me.MSFlexGrid2

    For i =  1  To  4 
        For j =  1  To  2 
                    
            .RowSel = i
            .ColSel = j
            .Row = .RowSel
            .Col = .ColSel
            .MergeCells = flexMergeRestrictAll

        Next
    Next

End With

End Sub
...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33173765
gav
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Народ! Не дайте пропасть во цвете лет! Отзовись кто-нибудьдь!
Беда, нет у меня MSDN :(

Вопрос в том как выделять диапазон ячеек:

-если RowSel, ColSel в цикле, то диапазон ячеек выдеоляется в соотв. с параметрами цикла, но на все действия изменяется только левая верхняя ячейка

-если Row, Col, то выделяется каждый раз по одной ячейке. А с чем ее объединять, как выделить???
...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33173883
Andres 1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
gav...
Беда, нет у меня MSDN :(
...
MSFlexGrid Control
...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33173889
Фотография Ennor Tiegael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
gavБеда, нет у меня MSDN :( http://msdn.microsoft.com
gav
Код: plaintext
1.
2.
3.
4.
            .RowSel = i
            .ColSel = j
            .Row = .RowSel
            .Col = .ColSel
Совершенно неправильно. Сначала устанавливается текущая ячейка (свойствами Row / Col), а затем уже - выделение (свойствами RowSel / ColSel). Но никак не наоборот. Надо же такое придумать...
...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33174040
gav
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо за помощь, вот:
Очередной вариант, тоже не работает:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub FormatHeadGr2()

Dim i As Integer, j As Integer

With Me.MSFlexGrid2

            .TextMatrix( 1 ,  1 ) = "Вид затрат"
        
            .Row =  1 
            .Col =  1 
            .RowSel =  4 
            .ColSel =  1 

            .MergeCells = flexMergeFree
            
End With

End Sub
Что здесь не правильно?
...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33174046
gav
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сайт MS у нас недоступен, спасибо за ссылки
...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33174136
Фотография Ennor Tiegael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Неправильно здесь то, что мержатся только ячейки с одинаковым содержимым. Сначала везде прописываете один и тот же текст (можно одним махом, насколько я помню - попробуйте свойство .Text при установленном выделении), потом выставляете режим мерджа. Также не исключено, что после записи текста выделение надо будет выставить еще раз - я просто уже не помню этих тонкостей.
...
Рейтинг: 0 / 0
В MSFlexGrid отельные ячейки форматируются?
    #33175066
gav
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо больщое всем за помощь, разобрался.
Если не возражаете, еще парамаленьких вопросов:

1. Можно ли задать режим объединения ячеек для столбца так, чтобы объединялись только ячейки опр. области столбца (шапки, например), а остальные области не объединялись? В этом случае MergeRow не срабатывает, т.к., наск. я понял, оно только разрешает объединение ячеек внутри ряда (по горизонтали).
2. Иерархический грид, MSHFlexGrid: можно ли в нем сделать то,что спрашивается в вопр.1? Вот бы еще примерчик определения уровней данных/строк/столбцов/др. этого грида, был бы очччень благодарен.

Еще раз спасибо за помощь, :)
...
Рейтинг: 0 / 0
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / В MSFlexGrid отельные ячейки форматируются?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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