7,763
社区成员
发帖
与我相关
我的任务
分享Mschart点击曲线上任意点的位置，怎么能在在旁边显示该点数值？？（不是该点的坐标值）
Mschart点击曲线上任意点的位置，怎么能在在旁边显示该点数值？？（不是该点的坐标值）
我用的：
Private Sub MSChart1_Click()
With MSChart1.Plot.SeriesCollection(i).DataPoints(-1)
.DataPointLabel.LocationType = 1 ''&& 为1时显示数值，0为不显示
'将数据点标记设置成可见的。
.Marker.Visible = True
.Marker.Style = VtMarkerStyleDiamond
End With
end sub
显示的是某个曲线上所有的数值，我只想点击曲线上任意点的位置，在旁边显示该点数值。
最好贴出代码，好的话多加分~~~
我用的：
Private Sub MSChart1_Click()
With MSChart1.Plot.SeriesCollection(i).DataPoints(-1)
.DataPointLabel.LocationType = 1 ''&& 为1时显示数值，0为不显示
'将数据点标记设置成可见的。
.Marker.Visible = True
.Marker.Style = VtMarkerStyleDiamond
End With
end sub
显示的是某个曲线上所有的数值，我只想点击曲线上任意点的位置，在旁边显示该点数值。
最好贴出代码，好的话多加分~~~
...全文
请发表友善的回复…
发表回复
AOX 2006-09-30
- 打赏
- 举报
兄弟,你是如何搞定的啊?我都没看明白.
snowwolf2818 2006-08-07
- 打赏
- 举报
搞定！
snowwolf2818 2006-08-07
- 打赏
- 举报
With MSChart1
For i = 1 To Max
For j = 6 To 7
xx = Text6.Text
.Column = 1
.Row = i
.RowLabel = MSHFlexGrid1.TextMatrix(xx, j)
Text7.Text = .RowLabel
.AllowSelections = True
.DragMode = 0
.Enabled = True
Next j
Next i
End With
For i = 1 To Max
For j = 6 To 7
xx = Text6.Text
.Column = 1
.Row = i
.RowLabel = MSHFlexGrid1.TextMatrix(xx, j)
Text7.Text = .RowLabel
.AllowSelections = True
.DragMode = 0
.Enabled = True
Next j
Next i
End With
huacha 2006-08-06
- 打赏
- 举报
http://www.wave12.com/web/SigCon.asp?bCate=41&sCateName=%B9%A6%C4%DC%BD%E9%C9%DC&ID=143&CateName=wsChart4.5(DLL)
snowwolf80 2006-08-06
- 打赏
- 举报
楼上的，你的这个不好使，我现在用的都是Mschart
snowwolf80 2006-08-05
- 打赏
- 举报
怎么没有人来啊???
