100分大奉送！ RichTextBox中怎么快速计算行号？

[jettyjiang]

我使用richTextBox,要求即时得到当前光标位置的行号和列号，
我现在使用的是richTextBox的GetLineFromChar方法，但是它太慢，
如果文本有几千行，速度就会特别忙。
哪位大虾有高招，请指教！

[shines77]

应该是：TotalLines = RichTextBox.GetLineFromChar(Len(RichTextBox.Text))

TotalLines := RichEdit.Lines.Count; 是Delphi中的RichEdit的用法，在VB不适用，andymei 啊，不要误人子弟啊。

[andymei]

TotalLines := RichEdit.Lines.Count;
哈哈!

[prefix]

没错，RichTextBox自己的GetLineFromChar太慢了，用api比较快：
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const EM_LINEFROMCHAR = &HC9
使用
LineNo = SendMessageLong(RichTextbox1.hwnd, EM_LINEFROMCHAR, -1&, ByVal 0&) + 1
LineNo就是当前光标所在行号。

[fs_windy]

使用ApI函数SendMessage,加上常数EM_LINEINDEX 可返回行号,
EM_GETSEL 可返回一Long值，高位为行号索引，低位为字符索引
通过计算可得到你要的。