系列标志风格变化

Question

我们的客户有一个新要求。他们希望标记既显示值又显示百分比。但目前在"系列标记"属性页中没有相同的选项。是否有任何工作，我们可以显示值与百分比。

谢谢阿卡什

Answer 1

您有两个选择:

1. 使用smsLabelPercentValue，例如:

   TChart1.Series(0).Marks.Style = smsLabelPercentValue
   

2. 自定义OnGetSeriesMark事件中的标记文本，例如:

   Dim sum As Double
   Private Sub Form_Load()
       TChart1.Series(0).FillSampleValues
       'TChart1.Series(0).Marks.Style = smsLabelPercentValue
       sum = 0
       For i = 0 To TChart1.Series(0).Count
           sum = sum + TChart1.Series(0).YValues.value(i)
       Next
   End Sub
   Private Sub TChart1_OnGetSeriesMark(ByVal SeriesIndex As Long, ByVal ValueIndex As Long, MarkText As String)
       Dim value As Double
       Dim percent As Double
       value = TChart1.Series(SeriesIndex).YValues.value(ValueIndex)
       percent = (value / sum) * 100
       MarkText = CStr(value) & " " & CStr(percent) & "%"
   End Sub 
   

3. 使用混合解决方案，在OnGetSeriesMark事件中用smsLabelPercentValue手动解析MarkText参数。