'在form中放一个textbox两个label

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 hwnd5 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(hwnd5, em_getsel, wparam, lparam)

j = i / 2 ^ 16 '取得目前caret所在前面有多少个byte

lineno = sendmessage(hwnd5, em_linefromchar, j, 0) '取得前面有多少行

lineno = lineno + 1

k = sendmessage(hwnd5, em_lineindex, -1, 0)

'取得目前caret所在行前面有多少个byte

colno = j - k + 1

end sub

private sub form_load()

dim lineno as long, colno as long

call getcaretpos(text1.hwnd, lineno, colno)

label1.caption = lineno

label2.caption = colno

end sub

private sub text1_keyup(keycode as integer, shift as integer)

dim lineno as long, colno as long

call getcaretpos(text1.hwnd, lineno, colno)

label1.caption = lineno

label2.caption = colno

end sub

private sub text1_mousedown(button as integer, shift as integer, x as single, y as single)

dim lineno as long, colno as long

call getcaretpos(text1.hwnd, lineno, colno)

label1.caption = lineno

label2.caption = colno

end sub