Excel VBA高级编程:使用API函数sendmessage获得光标所在行和列

2015-04-13 17:10 阅读 378 次 评论关闭

使用API函数sendmessage获得光标所在行和列。

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

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:Excel VBA高级编程:使用API函数sendmessage获得光标所在行和列 | 猎微网

评论已关闭!