Событие Chart Click не обрабатывает две точки данных с одинаковыми координатами x и y

Question

У меня проблема с отображением двух меток в одной точке координат. Проблема возникает, когда два разных объекта в массиве имеют одинаковые значения x и y. Все приложение о макете завода, который показывает деятельность в разных местах завода и наносит "Маркер", используя координаты объектов. Вы можете подумать об этом, взяв пример семьи, в которой все люди имеют разные уставы, такие как возраст, рост, вес, цвет лица, но они по-прежнему живут в том же месте или месте своего дома.

Код VB описывает эту проблему как:

For Index_i = 0 To myTotalFiles - 1
  For Index_j = 0 To TotalLine - 1
    If (Worker(Index_i).Location = MapLocations(Index_j).NameOfLocation) Then
       Worker(Index_i).X = MapLocations(Index_j).XCoord
       Worker(Index_i).Y = MapLocations(Index_j).YCoord
       series.Points.AddXY(Worker(Index_i).X, Worker(Index_i).Y)                    
    End If
    Next
 Next

MapLocations () - это массив объектов, который содержит три свойства NameOfLocation, XCoord и YCoord.

Линейный рабочий (Index_i).Location = MapLocations(Index_j).NameOfLocation Сравнивает рабочее местоположение (String) с местоположением MapLocation MapLocations(Index_j).NameOfLocation(String), если оно совпадает, затем дает рабочему пару координат как

Worker(Index_i).X = MapLocations(Index_j).XCoord
Worker(Index_i).Y = MapLocations(Index_j).YCoord

и добавить маркер на участке.

Диаграмма также реализует отображение сообщения или всплывающей подсказки при нажатии на маркер. Если два работника имеют одинаковые значения x и y, то маркеры будут точно перекрываться и не будут предоставлять информацию для них обоих. Как этого избежать.

Событие щелчка на графике имеет вид:

Private Sub Chart1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Chart1.Click
        Try
            Dim pointindex As Integer
            Dim result As HitTestResult
            result = Chart1.HitTest(Cursor.Position.X, Cursor.Position.Y)
            If result.ChartElementType = ChartElementType.DataPoint Then
                pointindex = result.PointIndex
                MsgBox("Worker is working at: " + Worker(pointindex).Location + vbLf+ "With Scope of work: " + Worker(pointindex).Scope)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Все координаты для местоположения на карте сохраняются в файле и считываются, а затем сопоставляются с местоположением работника, а затем размещают маркер в этой точке.

Answer 1

Вот C# подпрограмма, которая извлекает все точки с такими же значениями x и y, как у того, на который вы нажали, то есть с верхним / последним:

    private void chart_MouseClick(object sender, MouseEventArgs e)
    {
        var hitt = chart.HitTest(e.X, e.Y);
        Text = hitt.PointIndex + "";

        if (hitt.PointIndex >= 0)
        {
           DataPoint dp = chart.Series[0].Points[hitt.PointIndex];
           var points = chart.Series[0].Points.
                    Where(x => x.XValue == dp.XValue && 
                               x.YValues[0] == dp.YValues[0]);
           ..  // now you can enumerate all the points to create a message..
           foreach (DataPoint p in points)..
        }
}

VB Версия должна быть довольно похожей.