隱藏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