VB6中ScaleMode设为字符时如何计算MSFLEXGRID的可见列数

常见计算偏差的原因 #

你之前的计算逻辑存在两个核心问题，导致结果不准：

• 方向逻辑错位：MSFlexGrid的可见列数由横向可视区域的有效宽度决定，和纵向的控件Height属性没有直接关联，用纵向尺寸推算横向可见列数从根本上不成立。
• 属性场景错配：当表单ScaleMode设置为字符模式时，所有控件的Height、Width返回的是控件外框相对于表单坐标基准的尺寸，这个基准绑定的是表单自身的字体，和MSFlexGrid内部设置的字体没有联动关系——哪怕你把控件内部字体调到任意大小，只要控件外框在表单上的位置和尺寸不变，Height、Width的返回值就不会变化，自然无法匹配内部字体变化后的实际渲染效果。

正确计算步骤 #

计算的核心逻辑是全程基于控件内部渲染的实际尺寸取值，不依赖表单坐标下的控件外框属性，从根源上避免字体调整带来的取值偏差：

1. 计算网格内容区的有效可用宽度
   先扣除控件边框、垂直滚动条占用的空间，得到真正用来显示网格内容的实际宽度：

   Dim sngAvailContentWidth As Single
   ' ClientWidth 是控件内部去掉外边框后的客户区宽度
   sngAvailContentWidth = MSFlexGrid1.ClientWidth
   
   ' 按滚动条设置扣除对应占用宽度
   Select Case MSFlexGrid1.ScrollBars
       Case flexScrollBarVertical, flexScrollBarBoth
           sngAvailContentWidth = sngAvailContentWidth - SystemInformation.VerticalScrollBarWidth
   End Select
   

2. 统计实际可完整显示的列数
   逐列累加每列的实际渲染宽度，直到累加总宽度超过可用内容区宽度，此时统计到的列数就是实际可见的列数：

   Dim i As Integer, sngAccumWidth As Single, intVisibleColCount As Integer
   sngAccumWidth = 0
   intVisibleColCount = 0
   For i = 0 To MSFlexGrid1.Cols - 1
       sngAccumWidth = sngAccumWidth + MSFlexGrid1.ColWidth(i)
       If sngAccumWidth > sngAvailContentWidth Then
           Exit For
       End If
       intVisibleColCount = intVisibleColCount + 1
   Next
   

3. 换算为字符单位的等效可见宽度
   如果需要把可见区域换算为以控件自身字体为基准的字符单位数值，可通过控件自身的文本度量值做转换：

   Dim sngCharWidth As Single
   ' TextWidth 是按照控件当前字体计算的指定文本渲染宽度
   sngCharWidth = MSFlexGrid1.TextWidth("0") ' 以半角数字作为标准字符宽度基准
   Dim sngCharUnitVisibleWidth As Single
   sngCharUnitVisibleWidth = sngAvailContentWidth / sngCharWidth
   

   这个计算结果会随控件字体的大小、字重动态更新，不会出现调整字体后取值不变的问题。

内容的提问来源于stack exchange，提问作者user1561769