Declare INTEGER SendMessage in WIN32API as sendmessage_n INTEGER hwnd , INTEGER wMsg , INTEGER wParam , integer lParam
Declare INTEGER SendMessage in WIN32API as sendmessage_c2 INTEGER hwnd , INTEGER wMsg , INTEGER wParam , string lParam
#defi WM_SETREDRAW 0x0b
SendMessage_n(thisform.Olecontrol5.hwnd, WM_SETREDRAW, 0, 0)  && Lock
#defi EM_REPLACESEL 0xC2
SendMessage_c2(thisform.Olecontrol5.hwnd, EM_REPLACESEL, 1, REPLICATE(CHR(254),2000))  &&填充新字符串，且可撤销
#defi EM_GETFIRSTVISIBLELINE 0XCE
#defi EM_LINEINDEX  0xbb
#defi EM_POSFROMCHAR  0xd6
iFirstLine = SendMessage_n(thisform.Olecontrol5.hwnd, EM_GETFIRSTVISIBLELINE,0,0)
FOR i=0 TO 100
    cpFirst = SendMessage_n(thisform.Olecontrol5.hwnd,EM_LINEINDEX,iFirstLine+i,0)
    aa=SendMessage_n(thisform.Olecontrol5.hwnd, EM_POSFROMCHAR,cpFirst,0)
    aa=BITrSHIFT(aa,16)
    IF i>0
        IF aa=1
            EXIT
        endif
        IF aa>thisform.Olecontrol5.Height
            i=iif(aa>thisform.Olecontrol5.Height+5,i-1,i)  &&判断上一行是否完整显示，这个5是预估值，也可以用获取的行间距
            EXIT
        endif
    ENDIF
next
#defi EM_LINELENGTH 0xC1
MESSAGEBOX( SendMessage_n(thisform.Olecontrol5.hwnd, EM_LINELENGTH, 0,0))
MESSAGEBOX(i)
#defi EM_UNDO  0xc7
SendMessage_n(thisform.Olecontrol5.hwnd, EM_UNDO, 0, 0)  &&撤销填充
SendMessage_n(thisform.Olecontrol5.hwnd, WM_SETREDRAW, 1, 0)  && UnLock
通过这个话题的讨论，学到很多新东西

LZ是想搞 行号显示吗，记得之前好像搜索到这个示例，缺陷是：放大缩小窗口，包括行高、字体的调整，这个行号 对错乱了，无法动态调整。

另： 如果能增加代码块 功能，就更好了(想法：通过代码设计出格式(排版)，然后再正常书写代码)。

这样VFP就可以利用 RichEdit 来写笔记了或收藏资料 等。

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

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

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

EM_GETLINE 支持 RichEdit
要注意的是接收行数据的缓冲区在发送消息之前，将此缓冲区的第一个字节设置为缓冲区的大小（以 TCHAR为单位）。
    对于 ANSI 文本，这是字节数。
    对于 Unicode 文本，这是字数。

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

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

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


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

这文件就是一行，返回1、2正常，返回2可能是0D结束符

EM_GETLINE不是只取编辑框视区的行，应该是整个编辑内容，用EM_GETLINE来计算行数不准确吧？

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

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

11.txt的0hEE9385是双字节“配”转UTF-8编码？

0hEE9385其实是51#的0hFEFE：

c1 = 0hFEFE
c2 = strconv(c1, 9)
c3 = REPLICATE(c2, 2000)
strtofile(c3, "11.txt"）

只是随便选的一个空白字符。你也可以用0hA1A1的UTF-8，或者，任意可见字符的UTF-8去试，都行！