唉，冰雪聪明如我，怎么可能想不到呢？
——不行。
其实我还试过：100个【回车】，100个【全角空格+回车】，……
——不行。准确地说，不太行。
richtextbox对于不可见空白字符的解析似乎存在一些问题，【宋体】会解析错误，多出来好几行，【微软雅黑】倒可能是正确的。

想不到还有0hFEFE这个空白汉字！我老人家墙都不扶就服你！

其实，冰雪聪明的我，还想过，要不要插入N行模样像Word行尾那一个“带弯弯的小箭头”（U+21B5），以冒充回车符，蒙骗用户的……只可惜，GBK编码表中没有对应的字符。

其实，实战中仍会有一个小瑕疵的：

假设，richtextbox1中原有两三行文字（注：我老人家一般习惯是thisform.richtextbox1.text = REPLICATE("一二三四五", 7)，这样方便数一行有几个字）；
现在，需计算一屏有几多行——按照前边的讨论，我们可能会这么做：

* --------------
* 保存现场
* --------------
_screen.LockScreen = .t.
with thisform.richtextbox1
   lnSelstart = lo1.Selstart
   lcRTF = .textRTF
   lcText = .text + REPLICATE(CHR(254), 2000)
   .visible = .f.
   .text = lcText
* 统计一屏总行数（见上边帖子，略。）
* ...
* --------------
* 恢复现场
* --------------
   .textRTF = lcRTF
   .Selstart = lnSelstart
   .visible = .T.
endwith
_screen.LockScreen = .F.

该死的屏幕，执行至此，总会闪一下！
无论如何设置，都会闪一下！
那么，聪明的，如何教他不要闪，只做一个安静的美男子呢？

确实，我也发现了：Richtextbox的行距有些“飘忽不定”，想得到的一个折中的解决方案是：
在.text = "xxxx"后，重设一遍行距。
直觉行。

大致明白了，谢谢！不过，设置thisform.LockScreen = .t.应无坏处，理论上。

哇！牛逼 Turbo！牛逼 Ultra！
有C代码就好办啦，我想想办法，看能否翻译成VFP原生代码（估计DC能帮忙搞定一大半！最后自己再适当地修补一下下。）
有界面的东东，还是习惯赤条条不带个拖油瓶。

我尝试往Richtextbox灌满Unicode字符，然后，上边讨论的获取行字符数的两个API皆阵亡，都只能返回1或2者啦——

nWordCount = SendMessageW2(hEdit, EM_GETLINE, nLineNo, @cBuffer)
nWordCount = SendMessage_n(thisform.Olecontrol5.hwnd, EM_LINELENGTH, 0,  0)

感觉上，是不是要改换SendMessageW()了？

试了，不行，仍返回行字符数 = 2

参考的是此帖：
https://bbs.bc-cn.net/viewthread.php?tid=514450&page=6#pid2792983

将"11.txt"换成这一个空白字符：


然后统计一行的字符数，要么=1，要么=2

见本帖顶楼，以及：
https://bbs.bc-cn.net/viewthread.php?tid=514468&page=2#pid2793162

大佬啊，这是您亲自贴的代码啊！！！