Getting Caret's Position

[Eikon]

Using the win32 API calls GetCaretPos and ClientToScreen with a POINTAPI structure is not returning the right values for the screen posistion of the caret. It also only updates when the window is moved.... heres the code:

GetCaretPos Pt
ClientToScreen hWnd, Pt
Text1.Text = Pt.X ' Update
Text2.Text = Pt.Y

What am I doing wrong? I need screen coords, not client.

[Aaron Young]

You need to pass the handle to the window containing the caret, not the form, i.e.

Option Explicit
 
Private Type POINTAPI
        x As Long
        y As Long
End Type
 
Private Declare Function GetCaretPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
 
Private Sub Form_Load()
  Timer1.Interval = 100
  Timer1.Enabled = True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
  Dim tPOINT As POINTAPI
  
  Call GetCaretPos(tPOINT)
  Call ClientToScreen(Text1.hwnd, tPOINT)
  
  Caption = "X: " & tPOINT.x & " - Y:" & tPOINT.y
End Sub

[Eikon]

Thx, ill try that out.

[Eikon]

I need to be able to get the caret position from other apps. How could I go about getting the handles for each child window in an app? I need help using the EnumChildWindows API call.

[silva]

What about the FindWindow / FindWindowEx API calls?

s.