Форматирование таблицы FlexGrid - VB
Формулировка задачи:
Добрый день! Подскажите как сделать форматирование таблицы FlexGrid чтобы привести ее примерно в такой вид как на картинке.
Решение задачи: «Форматирование таблицы FlexGrid»
textual
Листинг программы
Private Sub Комманда1_Click() Dim C With MSFlexGrid1 .Rows = 4 .Cols = 6 .FixedCols = 0 .FixedRows = 0 .MergeCells = flexMergeFree C = 2 .Col = 2 .ColAlignment(C) = 4 .TextMatrix(0, C) = "Объединённый столбец" .TextMatrix(0, C + 1) = "Объединённый столбец" .TextMatrix(1, C) = "Столбец " & C + 1 .TextMatrix(1, C + 1) = "Столбец " & C + 2 .MergeRow(0) = True .Refresh For C = 0 To 5 Select Case C Case 0 To 1, 4 To 5 .ColAlignment(C) = 4 .TextMatrix(0, C) = "Столбец " & C + 1 .TextMatrix(1, C) = "Столбец " & C + 1 .MergeCol(C) = True End Select Next C End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д