RichTextbox控件如何根据自身宽、高，以及用户设定的字体、字号和行距，计算1屏有几行？1行有几列？ - VFP论坛

楼主

问题点数：0 回复次数：3

RichTextbox控件如何根据自身宽、高，以及用户设定的字体、字号和行距，计算1屏有几行？1行有几列？

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

程序代码：

        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”，同一屏能够完整显示的字符行数与列数，结果相差非常大的！

搜索更多相关主题的帖子: 显示　 long　RichTextbox　用户　计算　

第 2 楼

得分:0

以下是引用吹水佬在2025-9-2 08:35:18的发言：

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

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

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

第 3 楼

得分:0

以下是引用sych在2025-9-2 07:18:47的发言：

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))
每行列数

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

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

第 4 楼

得分:0

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

程序代码：

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

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

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