Want to know where is text cursor..?

[pmsays]

HELLO EVERBODY,
I want to know how can I find where is the text cursor at any time even outside my application anywhere in windows.
For instance, Say when I was writing this message I saw two cursors. One for mouse. Other at a place where I was writing this message. I wanna know info may be handle, classname of control and application where currently it is?

[<ABX]

You can find the mouse Mouse cursors x,y values by by calling the GetCursorPos API

Type PointApi
   X as long
   Y as long
End Type
 
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
 
Declare Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

but i dont know how to get information about the text cursor if that was what u were asking about

[Shawn N]

I think you're actually looking for the caret. I don't know how to do what you're looking for, but maybe using "caret" in your search will help you out.

[MerrionComputin]

Each thread can have it's own caret and only one window in that thread will have the active CARET.

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Private Type GUITHREADINFO
    cbSize As Long
    flags As Long
    hWndActive As Long
    hwndFocus As Long
    hwndCapture As Long
    hwndMenuOwner As Long
    hwndMoveSize As Long
    hwndCaret As Long
    rcCaret As RECT
End Type
 
Private Declare Function GetGUIThreadInfo Lib "user32" (ByVal hThreadId As Long, pGuiThreadInfo As GUITHREADINFO) As Long
 
Private Declare Function GetCurrentThread Lib "kernel32" () As Long
 
Public Function GetActiveCaretHwnd() As Long
 
Dim gti As GUITHREADINFO
 
If GetGUIThreadInfo(GetCurrentThread(), gti) Then
   GetActiveCaretHwnd = gti.hwndCaret
End If
 
End Function

[Shawn N]

What about getting its position in a textbox?

[MerrionComputin]

If the textbox is in your app. then use the SelStart property - otherwise use Sendmessage and send it a EM_GETSEL message...search MSDN for info on this message...

[Shawn N]

Got it - thanks.

[alexandros]

you may want to try the GetCaretPos function.
it is very unknown but i use it and it works fine !
it gives you the position of the caret in points. the position on the screen ! not the character index within the editbox.
note that you have to change the points to pixels or twips afterwards if you want to make better use of this.