看到吹版的这段代码，联想到以前我遇到的那个问题（一直都未能精确地解决）：

        DECLARE long SendMessageW   IN user32 as SendMessageW2   long,long,long,string@
        DECLARE long SetWindowTextW IN user32 as SetWindowTextW2 long,string
        #define EM_GETLINE    0x00C4 
        nBufferSize = 2048    && 要足够大
        cBuffer     = BINTOC(nBufferSize,"4rs")+REPLICATE(0h00,nBufferSize+1)
        hEdit       = thisform.hEdit1.hwnd    &&编辑框句柄
        nLineNo     = 9                  &&要取的行号（通常是从0行起）
        nWordCount  = SendMessageW2(hEdit, EM_GETLINE, nLineNo, @cBuffer)
        SetWindowTextW2(hEdit, cBuffer)   && 显示结果

如标题所示：如何计算RichTextbox一屏可完整显示的行数？以及，一列能显示的字符个数？
原因：希望在不出现垂直滚动条的前提下，能够一屏显示完整内容，让用户不必频繁地上下翻滚（注：表单另外设计有翻页按钮）。
问DC，它给出的解答异常复杂，远非类似一个SendMessageW2(hEdit, EM_GETLINE, nLineNo, @cBuffer)就能解决得了的。
想想也是，“宋体,12,N”和“微软雅黑, 16, B”，同一屏能够完整显示的字符行数与列数，结果相差非常大的！

这个问题挑战性大，每行可显示的字符数可以变通获取，但不同的字符宽度不同，不知道会不会有所不同

Declare INTEGER SendMessage in WIN32API as sendmessage_n INTEGER hwnd , INTEGER wMsg , INTEGER wParam , INTEGER lParam
#defi EM_LINELENGTH 0xC1
MESSAGEBOX( SendMessage_n(thisform.Olecontrol5.hwnd, EM_LINELENGTH, 0,  0))
每行列数

不同的字符占用的空间不同，这个值会发生变化

没用过RichTextbox，随便拖一个试试，有个自动换行的问题，有无禁止自动换行的设置？
init事件：
this.text = REPLICATE("AaBbCcDdEeFfGgHhIiJjKkLlMmNn汉字1234567890",3)
遇到数字号码框不够宽时会自动换行？

确实，先前看到你们讨论“获取RichTextbox第N行文字内容”的帖子，恰好我也想到了这个变通的解决方案：
RichTextbox1.init事件：
this.text = REPLICATE(0hA1A1,10000)

然后，用你那一个API得到第1--3行的字符，再分别取lenc()，合计值/3得到平均值，这就是比较精确的一行有多少个字符了吧。
至于一屏有多少列，估计仍得用比较复杂的像素值来计算……

太好了，跟着楼主学习了

我弄了半天也没搞明白，这回测试一下楼主的代码

RichTextbox排版好，可vfp的编辑框Edit1排版不好，但能透明，我想RichTextbox排版完把每行后面加个回车符，然后用Edit1显示，可是没有实现。

这个API没问题，能准确返回一行汉字字符的个数！

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