Изменить шрифт заголовка на vbalGrid

Question

Я поддерживаю приложение VB6, которое широко использует старый VBAccelerator SGrid 2.0 (vbalGrid, использование другого элемента управления Grid на самом деле не вариант). Мне нужно изменить шрифт grid во время выполнения, и, похоже, ничего из того, что я делаю, не работает, чтобы изменить шрифт заголовка, только изменение элементов управления сеткой Свойство Font во время разработки, кажется, фактически меняет шрифт.

Вот код, который я пробовал, который, как я думал, будет работать:

Dim Fnt As New StdFont
Set Fnt = vbalGrid.Font
Fnt.Name = "MS Sans Serif"
Set vbalGrid.Font = Fnt

Это прекрасно устанавливает шрифт для тела сетки, но вы должны очистить и заново заполнить сетку, если она уже есть есть данные. Однако заголовок не изменится, даже если вы очистите все столбцы и создадите их заново.

Answer 1

Похоже, что в подпрограмме Property Set Font есть ошибка - она ​​не вызывает BuildMemDC для аннулирования своего буферизованного вывода. BuildMemDC звонят. Вам нужно будет увеличить высоту некоторого ряда над его внутренней переменной m_lMaxRowHeight, чтобы сработала перестройка.