研发埠

标题: 使用API函数sendmessage，如何获得光标所在行和列？ [打印本页]

作者: 陈茜 时间: 2013-7-2 11:37
标题: 使用API函数sendmessage，如何获得光标所在行和列？

作者: 淡写轻描 时间: 2013-7-2 11:42
Sub getcaretpos(byval TextHwnd&,LineNo&,ColNo&) 　注释：TextHwnd为TextBox的hWnd属性值，　　LineNo为所在行数，ColNo为列数dim I&,j&,k& 注释：获取起始位置到光标所在位置字节数　　　　　　　　　I=SendMessage(TextHwnd,&HB0&,0,0) j=I/2^16 注释：确定所在行　　　　　　LineNo=SendMessage(TextHwnd,&HC9&,j,0)+1 　　注释：确定所在列k=SendMessage(TextHwnd,&HBB&,-1,0)ColNo=j-k+1 End sub

欢迎光临研发埠 (http://bbs.yanfabu.com/)