RichTextBox问题

[jdsuchen]

有办法取得或者设置行间距吗？

我想计算可视范围内可以融多少行文本：
RichTextBox1.Height/RichTextBox1.Font.Height
RichTextBox1.Height/RichTextBox1.Font.GetHeight
计算出来都不对！

前提：RichTextBox内文本格式一致

[AntingZ]

Dim r As RichTextBox = RichTextBox1
Dim lines, iFirst, iLast As Int32
iFirst = r.GetLineFromCharIndex(r.GetCharIndexFromPosition(New Point(0, 0)))
iLast = r.GetLineFromCharIndex(r.GetCharIndexFromPosition(New Point(0, r.Height)))
lines = iLast - iFirst '行数
MessageBox.Show(lines)

[AntingZ]

上面的方法不可取，用下面的试试：

Dim g As Graphics
g = Me.RichTextBox1.CreateGraphics()
lines=RichTextBox1.Height/g.MeasureString("test",RichTextBox1.Font).Height()
MessageBox.Show(lines)

[jdsuchen]

第一种方法思路蛮巧妙的，佩服！
但是有问题，RichTextBox中文本不满的时候会返回零

第二种方法不行，计算错误

问题已解决，谢谢!
r.GetLineFromCharIndex(r.GetCharIndexFromPosition(New Point(0, 0)))
可以取得可视的Top Line
这样可以判断某个字符所在行是否可视，只处理可视部分，效率高多了，非常感谢！