Объединение ячеек в MSHFlexGrid - VB

Узнай цену своей работы

Формулировка задачи:

Добра всем! Веду небольшую работу в VB 6.0 и вот появилась необходимость слепить несколько записей в виде таблицы, где имеется 2 столбца (поля) и множество строк из которых каждая 3-я строка объединяет обе ячейки. Использую MSGFlexGrid, но при создании 2-ой и последующих записей (по 3 строки каждая), объединение ячеек происходит только в первой строке, а остальные как были разбитыми так ими и остались. Подскажите пожалуйста в каком направлении надо копать или есть вариант использовать что-то иное? Спасибо. Прилагаю пример того, как должно выглядеть (изображение) и как это выглядит в моём проекте + исходник. Все имена являются вымышленными и не имеют отношения к реальным людям. Любое совпадение с реальными людьми случайное. Заранее прошу прощения, если кого-то обидел.

Решение задачи: «Объединение ячеек в MSHFlexGrid»

textual
Листинг программы
Private Sub Command1_Click()
Dim n
With msh
    .Rows = 14
    .Cols = 4
    .MergeCells = flexMergeFree
    For n = 2 To 11 Step 3
        .TextMatrix(n, 1) = "Шифр"
        .TextMatrix(n, 2) = "Шифр"
        .TextMatrix(n, 3) = "Шифр"
        .MergeRow(n) = True
        .ColAlignment(1) = 4
    Next n
    Exit Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.75 из 5