其实，计算一屏总行数，经反复实验，我有一个不太精确的解决方案：

*获取当前字体的行高
lnFontHeight = FONTMETRIC(1, thisform.RichTexBox1.Font.Name, thisform.RichTexBox1.Font.Size)

*计算每屏行数
lnLinesPerPage = INT(thisform.RichTexBox1.Height / lnFontHeight / 1.35)

至于那个神秘参数1.35，大致相当于行间距，是我随意设置的——有时候准，有时候不准，计算误差大约在0--2行之间。
不知诸位英雄，有没有更精确的解决方案？

GDI绘制文本有设置行间距和字间距的相关函数
思路：
1..获取字串高+行间距，确定行数。
2..获取字串宽，确定一行字数。
行间距可以试试FONTMETRIC(5,.....)+n，n(1,2,.....)试试。
字串宽就有点麻烦，可尝试调用API函数GetTextExtentPoint32W()最后一个参数（SIZE结构）是返回字串输出的x,y座标，x就是字串的宽，y是字高。

这个神奇的1.35猜测是96/72=1.33

试了一下：
1、GetTextExtentPoint32W()对windwos的标准控件EDIT计算结果正确。
2、GetTextExtentPoint32W()好像不直接支持富编辑（Rich Edit），不能正确获取字体对象句柄。
    尝试：
    1、看看能否获取Rich Edit的字体句柄。
    2、根据Rich Edit设置的字体创建新的字体对象。

不太清楚。我让DC猜测这个“校正参数”，我设置行距 lnlineSpacing = 行高的1.5倍，它给出的调整建议：

初始值：从 lc校正参数 = 0.08 开始测试
根据行间距调整：
1.0倍行距：校正参数 ≈ 0.04-0.06
1.5倍行距：校正参数 ≈ 0.08-0.12
2.0倍行距：校正参数 ≈ 0.12-0.16
根据字体大小调整：
小字体(8-10pt)：减少校正参数
大字体(12-14pt+)：增加校正参数

最终公式：
lnLinesPerPage = INT(thisform.RichTextBox1.Height / lnFontHeight / ;
                  (lnlineSpacing - (0.08 + (lnlineSpacing - 1) * 0.06)))

然而，结果并不理想。

行间距应该是编辑控件有定义的，不同字体和大小会有不同。
最好是自己能重新定义，那就是你说了算。

[此贴子已经被作者于2025-9-3 11:41编辑过]

Richtextbox可以通过API设置行距，见我以前的讨论帖，还是您老人家给出的答案，亲，您不记得啦：
https://hrss.shandong.

与.gov的无关吧

SendMessage（thisform.rich1.Hwnd， EM_SETPARAFORMAT， 0， @pf）
获取就 EM_GETPARAFORMAT

Rich Edit 控件 SDK 参考手册-CSDN博客  https://blog.
刚搜到的帖子，先钉一下