TChart 根据索引取得指定系列的XY值
时间:2022-05-12 17:28
浏览:0
评论:0
版本8
参数 1:系列名称
参数2:0,取X值;1,取Y值
参数3:索引值
Public Function grGetSampleValue(s, Axis, p) Dim i For i = 0 To TChart1.SeriesCount - 1 With TChart1.series(i) If .Title = s Then If Axis = 0 Then grGetSampleValue = .XValues.value(p) If Axis = 1 Then grGetSampleValue = .YValues.value(p) End If End With Next End Function