编辑框会自动换行显示，这样的话，如何知道这个 Editbox 显示的内容总共有多少行？
目的：宽度固定，想动态调整 Editbox 的高度，让内容都能看得到(不要滚动条)。

谢谢！

我的需求和这个帖子 类似，估计也只能API能搞定了。
这个帖子是改变字号大小：https://bbs.bc-cn.net/viewthread.php?tid=514320&extra=&highlight=%B1%E0%BC%AD%BF%F2&page=1

能否 通过  csyx 老师 9楼的示例 在这个帖子里 的代码改进一下，获取显示内容的高度，然后再设置VFP的 editbox 的高度

[此贴子已经被作者于2025-10-17 15:58编辑过]

既然可以调整editbox的高度，那就将editbox的高度固定在最大的限制高度。

这里也有个比较类同的贴
https://bbs.bc-cn.net/viewthread.php?tid=445552&extra=&highlight=%C3%BF%D0%D0&page=1

用fontmetric（）获得字体的平均宽度，再用editbox的宽度/这个平均宽度，是不是就得到每行的字数？总共多少个字符除以每行的字数，不就知道多少行了？

FONTMETRIC(6 [, cFontName, nFontSize [, cFontStyle]])

此方案源于 wcx_cc 提出的模拟手工数行数，验证了用此方案取总行数、每行字符内容、行高的可行性
因主要目的是验证方案可行性，所以代码中的变量名随便取的，极不规范，另外，也无理特殊情形（如只有一行。。。等等）的处理
有了总行数和行高，调整字号做到满屏就简单了
7楼反映的问题，可以试试9楼的方法，看是否有改善

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

,解决了我的困扰

运行了一下，不是很稳定，虽然有几次能得到正确结果

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

我仅在自己的本本（win10、vfp9sp2.5815）上验证过，不稳定的因素有哪些不得而知
可以试试加些影响UI的语句，例如

*-- 表单 ttt1 方法
。。。
Do while .t.
*--
*-- wait window nowait '...'
*-- 或者
?? space(0)
*--
    Keyboard '{END}'
    Doevents
    end = ed.SelStart
    ed.SelStart = beg
。。。

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

第一次不正确

第二次不正确

第三次不正确

...
第7-8次才正确


暂时不知道原因，因为无法调试，会影响焦点移动，估计是do while循环中，模拟键盘操作没有被执行，do while 循环太快了。。。