Vb6 更改vbalGrid上的标题字体

Vb6 更改vbalGrid上的标题字体,vb6,vbaccelerator,Vb6,Vbaccelerator,我正在维护一个VB6应用程序,该应用程序广泛使用旧的VBSGRID 2.0(vbalGrid,使用另一个网格控件实际上不是一个选项)。我需要在运行时更改网格字体,并且我似乎没有做任何事情来更改标题字体,只有在设计时更改网格控件字体属性似乎实际更改了字体 以下是我尝试过的代码,我本以为会奏效: Dim Fnt As New StdFont Set Fnt = vbalGrid.Font Fnt.Name = "MS Sans Serif" Set vbalGrid.Font = Fnt 这会很好

我正在维护一个VB6应用程序,该应用程序广泛使用旧的VBSGRID 2.0(vbalGrid,使用另一个网格控件实际上不是一个选项)。我需要在运行时更改网格字体,并且我似乎没有做任何事情来更改标题字体,只有在设计时更改网格控件字体属性似乎实际更改了字体

以下是我尝试过的代码,我本以为会奏效:

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

这会很好地设置网格主体的字体,但是如果网格已经有数据,则必须清除并重新填充网格。但是,即使清除所有列并重新创建它们,标题也不会更改。

看起来
属性集Font
例程中有一个错误——它不会调用
BuildMemDC
使其缓冲输出DC无效


尝试
RowHeight(1)=RowHeight(1)+1
或类似的轻推,以强制调用
BuildMemDC
。您必须将某一行的高度增加到其内部
m_lMaxRowHeight
变量之上,才能开始重建。

看起来
属性集Font
例程中有一个bug——它不会调用
BuildMemDC
使其缓冲输出DC无效


尝试
RowHeight(1)=RowHeight(1)+1
或类似的轻推,以强制调用
BuildMemDC
。您必须将某行的高度增加到其内部
m_lMaxRowHeight
变量之上,才能开始重建。

谢谢,我已经尝试过了,但它不会更改标题字体。我甚至试过把高度改1000000,不高兴。谢谢,我试过了,但它没有改变页眉字体。我甚至试着改变高度1000000,没有乐趣。