如何得到RichTextBox的可视行数？

178 阅读 0 评论 118 点赞

我是靠谱客的博主含糊发带，这篇文章主要介绍如何得到RichTextBox的可视行数？，现在分享给大家，希望可以做个参考。

开始用下面的方法：
        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)
但发现不是很准确，如果滚动条在中间的时候才是正确的行数，如果RichTextBox中没有字符，或字符不多，没有滚动条出现的时候就不对了，

下面的方法可以：

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