TextBox для WindowsForm-отслеживание положение курсора

[Ефрейтор]

Люди добрые, трабла такая. Возможноли сделать, что когда ведёшь указателем мыши над текстбоксом, то чтобы курсор в текстбоксе отслеживал текущее положение мыши (естественно курсор в текстбоксе должен перемещаться дискретно-"прыгать" через буквы)
Может кто-нибудь что-нибудь скажет?

[Sebas]

а. В событии Move посылать клики?

б. В событии Move получать координинаты мыши, рассчитывать через Graphics букву и переводить селекшен

[Ефрейтор]

Ну событие MouseMove для текстбокса я просматривал, да там есть координаты курсора относительно текстбокса.
А вот через Graphics что то не подумал. Ну хоть так
Благодарствую, добрый человек

[Ефрейтор]

Спасиба ещё раз. Всё вообщем то получилось с событием MouseMove.
Небольшой вопрос уточнение. На сколько я понял работа с размерами формы идёт в пикселях?

[Viper]

в событиях формы всегда в пикселях

[Ефрейтор]

Хмм...небольшая трабла. Сделал отслеживание положения курсора под мышью в текстбоксе. Но почему то курсор в тестбоксе всё время "убегает" от мыши. Вроде всё мериется в пикселях. Немог бы кто нибудь посмотреть и поправить мой код? Я выкинул с примера всё лишнее и оставил саму суть проблемы, поэтому понять что я там сотворил будет несложно.

[Viper]

проблема здесь в том, что MeasureString вызвращает размер строки с некоторым запасом (что отмечено в хелпе). Попробуй покопать в сторону метода MeasureCharacterRanges

[Viper]

Вот код с использованием MeasureCharacterRange:

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

Private Function GetCursorPosition(ByVal MousePositionX As Integer, ByVal Text As String) As Integer
        'Доступ к графике
        Dim G As Graphics = txtDown.CreateGraphics()
        G.PageUnit = GraphicsUnit.Pixel

        Dim i As Integer = 1
        Dim PartText As String

        'Нахождение координаты точки вставки курсора
        For i = 1 To Len(Text)
            PartText = Mid(Text, 1, i)
            Dim sFormat As New StringFormat()
            Dim cr() As CharacterRange = {New CharacterRange(0, i)}
            sFormat.SetMeasurableCharacterRanges(cr)
            'получить размеры 
            Dim r() As Region = G.MeasureCharacterRanges(Text, Me.txtDown.Font, New RectangleF(0, 0, txtDown.Width, txtDown.Height), sFormat)

            If r(0).GetBounds(G).Width > MousePositionX Then
                Exit For
            End If
        Next
        Return i
    End Function

на первый взгляд вычисляет проложение курсора достаточно точно (конечно стоит покапаться и исправить возможные ошибки, если они найдуться)

[Ефрейтор]

!Viper!
Спасибо за участие. Функция действительно работает достато точно.
Правда есть ньанс:
если текст больше по размеру чем текстбокс, то как можно узнать какая чатсть отобразается в данный момент? тоже считать через графический объект?

[GSerg]

Вот, а у нас в VB6 есть EM_CHARFROMPOS, которая сразу возвращает букву, соответствующую точке...

[Nord777]

To GSerg
А вот у нас в VS2005 тоже есть функция GetCharIndexFromPosition(ByVal pt As System.Drawing.Point) As Integer
которая сразу возвращает позицию символа

To Ефрейтор
К сожалению не помню есть ли эта функция в VS2003.

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

'Узнать индекс
txtDown.SelectionStart = txtDown.GetCharIndexFromPosition(New Point e.X, e.Y))

'Узнать сколько символов влезло в TextBox
Dim СколькоСимволовВлезло As Integer = txtDown.GetCharIndexFromPosition(New Point _(txtDown.ClientSize.Width - 1, 0))

[GSerg]

Нету её там.

Потому что MS добавляет возможности к FW "медленно и печально" (c) Чтобы интерес к каждой новой версии студии не ослабевал...

[Nord777]

вот как делает это VS2005:

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

Public Overridable Function GetCharIndexFromPosition(ByVal pt As Point) As Integer
      Dim num1 As Integer = Util.MAKELONG(pt.get_X, pt.get_Y)
      Dim num2 As Integer = CType(UnsafeNativeMethods.SendMessage(New HandleRef(Me, MyBase.Handle), 215, 0, num1), Integer)
      num2 = Util.LOWORD(num2)
      If (num2 < 0) Then
            Return 0
      End If
      Dim text1 As String = Me.Text
      If (num2 >= text1.Length) Then
            num2 = Math.Max((text1.Length - 1), 0)
      End If
      Return num2
End Function

Отправляется тоже самое сообщение, так что при желании можно сделать и в VS2003

[Ефрейтор]

Всем спасибо за разговор. Посижу поковыряюсь.