vb2008怎样获得Textbox中光标的行列？

Question

vb6中我用这个方法实现了，可是在vb2008中不能用了：

Const EM_GETSEL = &HB0
Const EM_LINEFROMCHAR = &HC9
Const EM_LINEINDEX = &HBB
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Sub GetCaretPos(ByVal TextHwnd As Long, lineNo As Long, colNo As Long)
    Dim i As Long, j As Long
    Dim lParam As Long, wParam As Long
    Dim k As Long
    i = SendMessage(TextHwnd, EM_GETSEL, wParam, lParam)
    j = i / 2 ^ 16
    lineNo = SendMessage(TextHwnd, EM_LINEFROMCHAR, j, 0)
    lineNo = lineNo + 1
    k = SendMessage(TextHwnd, EM_LINEINDEX, -1, 0)
    colNo = j - k + 1
End Sub

Answer 1

long换成integer

---

http://feiyun0112.cnblogs.com/

Answer 2

不行啊，还是运行不起来，有没有别的什么获得Textbox中光标位置的办法？

Answer 3

参见

http://dotnet.mvps.org/dotnet/faqs/?id=textboxcaretpos&lang=en

另外可以参考

TextBox.SelectionStart, TextBox.SelectionLength, 和 TextBox.SelectedText 属性

---

【孟子E章】