> Hello,
> I know how to get caret position in SDI environment using vb6.
> But it is always returning (0,0) position in a mdi interface (e.g.
> IE7, Firefox), although the caret is not there. How can I solve this
> problem?
>
> Thanks in advance for your kind help.
>
> Here is the code:
>
> ------------------------------------------------------------------------
> hwndFG = GetForegroundWindow()
>
>     If hwndFG <> 0 Then
>         TID = GetWindowThreadProcessId(hwndFG, ByVal 0&)
>         If TID <> App.ThreadID Then
>             If AttachThreadInput(App.ThreadID, TID, 1) <> 0 Then
>                 hwndFoc = GetFocus()
>                 If hwndFoc <> 0 Then
>                     If GetCaretPos(Position) <> 0 Then
>                         GetCaretPos Position
>                         ClientToScreen hwndFoc, Position
>                         FindCaretPosWindow = hwndFoc
>                     End If
>                 End If
>                 AttachThreadInput App.ThreadID, TID, 0
>             End If
>         End If
>     End If
> -----------------------------------------------------------------------

>Hello,
>I know how to get caret position in SDI environment using vb6.
>But it is always returning (0,0) position in a mdi interface (e.g.
>IE7, Firefox), although the caret is not there. How can I solve this
>problem?
>
>Thanks in advance for your kind help.
>
>Here is the code:
>
>------------------------------------------------------------------------
>hwndFG = GetForegroundWindow()
>
>
>
>    If hwndFG <> 0 Then
>        TID = GetWindowThreadProcessId(hwndFG, ByVal 0&)
>        If TID <> App.ThreadID Then
>            If AttachThreadInput(App.ThreadID, TID, 1) <> 0 Then
>                hwndFoc = GetFocus()
>                If hwndFoc <> 0 Then
>                    If GetCaretPos(Position) <> 0 Then
>                        GetCaretPos Position
>                        ClientToScreen hwndFoc, Position
>                        FindCaretPosWindow = hwndFoc
>                    End If
>                End If
>                AttachThreadInput App.ThreadID, TID, 0
>            End If
>        End If
>    End If
>-----------------------------------------------------------------------