743
社区成员
发帖
与我相关
我的任务
分享这个问题100分，可还没有解决，快来看吧！
去找一找下面这个问题：
“在RichTextBox控件中，怎样获得超过32,767字节的文本文件的行数和列数?”
“在RichTextBox控件中，怎样获得超过32,767字节的文本文件的行数和列数?”
...全文
请发表友善的回复…
发表回复
subzero 2000-02-28
- 打赏
- 举报
超过32K同样要用Sendmessage来解决
你可以找一下Win32api大全查查
你可以找一下Win32api大全查查
benbenlittle 2000-02-27
- 打赏
- 举报
linecount=sendmessage（text。hwnd， EM_GETLINECOUNT,0,ByVal, 0&)
这样不好使吗?
这样不好使吗?
peacock 2000-02-26
- 打赏
- 举报
是超过32,767字节！
subzero 2000-02-26
- 打赏
- 举报
使用win api的sendmessage函数即可
'首先向文本框传递EM_GETSEL消息以获取从起始位置到
'光标所在位置的字符数
I = SendMessage(TextHwnd, EM_GETSEL, wParam, lParam)
J = I / 2 ^ 16
'再向文本框传递EM_LINEFROMCHAR消息根据获得的字符
'数确定光标以获取所在行数
LineNo = SendMessage(TextHwnd, EM_LINEFROMCHAR, J, 0) '
LineNo = LineNo + 1
'向文本框传递EM_LINEINDEX消息以获取所在列数
K = SendMessage(TextHwnd, EM_LINEINDEX, -1, 0)
ColNo = J - K + 1
End Sub
'首先向文本框传递EM_GETSEL消息以获取从起始位置到
'光标所在位置的字符数
I = SendMessage(TextHwnd, EM_GETSEL, wParam, lParam)
J = I / 2 ^ 16
'再向文本框传递EM_LINEFROMCHAR消息根据获得的字符
'数确定光标以获取所在行数
LineNo = SendMessage(TextHwnd, EM_LINEFROMCHAR, J, 0) '
LineNo = LineNo + 1
'向文本框传递EM_LINEINDEX消息以获取所在列数
K = SendMessage(TextHwnd, EM_LINEINDEX, -1, 0)
ColNo = J - K + 1
End Sub
