Пересечение курсора с отрезком

[SergT]

Доброе время суток всем участникам форума.
На PictureBox нарисованы Line (отрезки под разными углами).
Как определить, что курсор мыши пересекает конкретный отрезок?
Нужно, что бы при наведении курсора на конкретную Line, последняя изменила бы цвет. Если это невозможно, подскажите,пожалуйста, иное решение. Может быть это будет не Line, а что-то похожее.
Очень нужно! Заранее благодарен за любую помощь, идею или пример!

[HKEY_SUPER_MASHINE]

Сама линия никаких событий не имеет.
Но можно под этой линией нарисовать массив обьектов Image (если линия нарисована под углом), или один обьект параллельно линии (если линия горизонтальная или вертикальная).
Затем используй событие MouseMove Imageили массива обьектов.

К пояснению прилагаю проект, где на примере показано, где и как изменяется цвет линии

[SergT]

Сама линия никаких событий не имеет.
...

Собствено, в этом то и есть загвоздка

Образец выложу через минуту.

Очень жду

[Денис]

SergT
Линии нарисованы или это объекты Line? если именно нарисованы (а не накиданы в дизайнере), то просто отлавливай Mouse_Move на боксе и по координатам смотри, что подсвечивать. А вообще исходников графических редакторов (в том числе и векторных) на форуме - пруд-пруди...

[HKEY_SUPER_MASHINE]

Проект выложил. Смотри выше.

[SergT]

А вообще исходников графических редакторов (в том числе и векторных) на форуме - пруд-пруди...

Что-то не обнаружил "пруд-пруди"

А линии - рисую на PictureBox мышкой и добавляю как новый объект Line

[SergT]

Проект выложил. Смотри выше.

Спасибо. Как вариант. А имидж наклонить не реально?
Дело в том, что линии рисуются и добавляются (Line1(i))
Линий не может быть более 3-х сотен, однако...

[SergT]

Посмотрел проект vector_graphic от Хакера. Наверное попытаюсь пойти таким путем.

[Zenitchik]

Я решал эту задачу через расчет расстояний до линий.


Линии у меня звали linA(index)
При клике достаточно близко от линии вызывается событие LinkClick (если и нажатие и отпускание кнопки мыши происходит вблизи одной той же линии).

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


Public Event LinkClick(ByVal Index As Integer)
Private m_CurLink As Integer

Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim i As Integer, m As Single, j As Integer, m1 As Single
    m = 120: m1 = 120
    For i = 1 To linA.UBound
        With linA(i)
            If .Y1 = .Y2 And (.X1 - X) * (X - .X2) >= 0 Then
                m1 = Abs(.Y1 - Y)
            ElseIf (.X1 - X) * (X - .X2) >= 0 And (.Y1 - Y) * (Y - .Y2) >= 0 Then
                m1 = Abs((X - .X1) * (.Y2 - .Y1) + (Y - .Y1) * (.X1 - .X2)) / Sqr((.X2 - .X1) ^ 2 + (.Y2 - .Y1) ^ 2)
            End If
            If m1 < m Then
                m = m1: j = i
            End If
        End With
    Next i
    If j > 0 Then m_CurLink = j
End Sub

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim b As Boolean, i As Integer
    For i = 1 To linA.UBound
        With linA(i)
            If .Y1 = .Y2 Then
                If (.X1 - X) * (X - .X2) >= 0 And Abs(.Y1 - Y) < 60 Then
                    b = True
                End If
            ElseIf (.X1 - X) * (X - .X2) >= 0 And (.Y1 - Y) * (Y - .Y2) >= 0 Then
                If Abs((X - .X1) * (.Y2 - .Y1) + (Y - .Y1) * (.X1 - .X2)) / Sqr((.X2 - .X1) ^ 2 + (.Y2 - .Y1) ^ 2) < 160 Then
                    b = True
                End If
            End If
        End With
    Next i
    UserControl.MousePointer = IIf(b, 2, 0)
End Sub

Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With linA(m_CurLink)
        If (.X1 - X) * (X - .X2) >= 0 And ((.Y1 - Y) * (Y - .Y2) >= 0 Or .Y1 = .Y2) Then
            RaiseEvent LineClick(m_CurLink)
        End If
    End With
End Sub

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

[SergT]

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

Все равно, спасибо! Попробую!

Меня вот тоже дети пристыдили. Вспомнили про отношение катетов... В общем, взял тетрадку, карандашик и нарисовал. Потом репу почесал и ... Вот что получилось...

[pronto]

Все-таки лучше вычислять расстояние от курсора до линии. После беглого тестирования обнаружилась некорректная обработка двух случаев.

Добавлено позже: а еще лучше подставлять координаты курсора в уравнение отрезка и проверять, если равенство выполняется, то курсор находится над линией

[HKEY_SUPER_MASHINE]

Линии нарисованы или это объекты Line?

Мой метод верен и для объекта, и для нарисованной методом Line линией.