隐藏mscharts中标记点的标签

Question

在mscharts中，无法使用代码使用函数databindcrosstable给标记点添加标签

Chart1.DataBindCrossTable(dr, "something", "anything", "a_data", "label=c_score")

现在我想隐藏标记点的c_score标签。

我使用代码在鼠标悬停的工具提示中显示标签

e.Text = result.Series.Points(result.PointIndex).YValues(0) & vbCr & result.Series.Points(result.PointIndex).Label

我在自定义事件中尝试了此代码，该事件仍然显示标记标签

Private Sub Chart1_Customize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chart1.Customize
    For Each ser As Series In Chart1.Series
        For Each dp As DataPoint In ser.Points
            dp.IsValueShownAsLabel = False
        Next
    Next
End Sub

如果dp.labelvisible = false

谢谢

Answer 1

使用databindcrosstable在表单上加载即时消息。

在表单加载中，我添加了

For Each ser As Series In Chart1.Series
                    For Each dp As DataPoint In ser.Points
            dp.Tag = dp.Label
            dp.Label = ""
        Next
Next

并且在chart1工具提示文本事件中，我已经完成了：-

Private Sub Chart1_GetToolTipText(ByVal sender As Object, ByVal e As System.Windows.Forms.DataVisualization.Charting.ToolTipEventArgs) Handles Chart1.GetToolTipText
    Dim result As HitTestResult
    Select Case e.HitTestResult.ChartElementType
        Case ChartElementType.DataPoint
            result = e.HitTestResult
            e.Text = "Overall Quality: " & result.Series.Points(result.PointIndex).YValues(0) & " " & result.Series.Points(result.PointIndex).Tag
    End Select
End Sub