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

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

0 голосов
/ 02 октября 2018

У меня проблема с отображением двух меток в одной точке координаты.Проблема возникает, когда два разных объекта в массиве имеют одинаковые значения 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

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

1 Ответ

0 голосов
/ 04 октября 2018

Вот подпрограмма 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)..
        }
}

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

...