координаты каретки

[Shurrik]

Для подсказки надо повесить окошко рядим с кареткой. Но как пулучить координаты каретки, а не мыши, причем нужны экранные координаты. Программа, где вводится текст, одна (например блокнот), а окошко вывешивает другая (моя). Все проблемы решил кроме этой. Наткнулся на API функцию MapWindowPoints, вроде то, что надо, но почти все ссылки на иероглифах.

[alibek]

Если окошко выводить рядом с кареткой, то оно будет перекрывать часть поля ввода.
Не лучше ли (и не проще ли) выводить окошко рядом с полем ввода?

[Qwertiy]

Смотри тут - очень похоже на то, что ты спрашиваешь.

[Shurrik]

Вопрос не в том, что окошко что-то перекроет, а в том, чтобы оно появлялось в том районе, куда смотрит в данный момент человек, а не в противоположном конце экрана.
На функцию GetCaretPos наталкивался, но она не дает координат на экране. Она дает номер строки и номер символа в строке, которые нельзя перевести в координаты экрана, потому что текст не обязательно пропорциональный, плюс вертикальный и горизонтальный бегунки. Хотя тема в посте моя. Жаль, что автору проблему не удалось решить в VB.NET.

[Shurrik]

Почти нашел решение проблемы с помощью GetGuiThreadInfo. Выдает координаты каретки относительно окна ввода. Осталось перевести в координаты экрана.

[Shurrik]

Для тех кому это интересно приыожу код.
Определение структур и API-функций.

Код: Выделить всё

    Structure GUITHREADINFO
        Public cbSize As Integer
        Public flags As Integer
        Public hwndactive As Integer
        Public hwndFocus As Integer
        Public hwndCapture As Integer
        Public hwndMenuOwner As Integer
        Public hwndMoveSize As Integer
        Public hwndcaret As Integer
        Public rcCaret As RECT
    End Structure

    Structure RECT
        Public Left As Integer
        Public Top As Integer
        Public Right As Integer
        Public Bottom As Integer
    End Structure

    Public Declare Function GetGuiThreadInfo Lib "user32" Alias "GetGUIThreadInfo" (ByVal idThread As Integer, ByRef lpgui As GUITHREADINFO) As Integer

    Public Declare Function GetWindowRect Lib "User32" Alias "GetWindowRect" (ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Integer



код в программе

Код: Выделить всё

                ' получение структуры активного окна
                Dim gui As New GUITHREADINFO
                gui.cbSize = Marshal.SizeOf(gui)
                GetGuiThreadInfo(0, gui)
                MsgBox(gui.rcCaret.Left & "-" & gui.rcCaret.Top) ' получение координат в поле ввода
                Dim hk As IntPtr = gui.hwndcaret
                Dim r As New RECT
                GetWindowRect(hk, r)
                MsgBox(r.Left & "-" & r.Top) ' получение экранных координат самой каретки


[Qwertiy]

Она дает номер строки и номер символа в строке, которые нельзя перевести в координаты экрана, потому что текст не обязательно пропорциональный, плюс вертикальный и горизонтальный бегунки.

Неправда.

На функцию GetCaretPos наталкивался, но она не дает координат на экране.

Ну я же как-то перевёл.

Жаль, что автору проблему не удалось решить в VB.NET.

Там же вообще в другом проблема.
Если окно поддерживает GetCaretPos, то меню отображается именно там где нужно.