主题：mouse up

用教材中的图表的mouseup代码，但当chart为空白（没有增加图系前），点击时会提示错误，

 

请问如何判断chart为空？

 

Chart.CoordToDataIndex(e.x, e.y ,s ,p)

If Chart.CoordToDataIndex(e.x, e.y ,s ,p) Then '如果鼠标位置存在有效的图序和数据点

我用的就是这个代码，但当chart为空白时会报错，还有就是点击第一个图系是可以先生msgbox，如果点击第二个图系则没有任何反应（ Chart.SeriesList2）

 

 

 

 

Dim s As Integer '定义存储图系编号的变量
Dim p As Integer '定义存储数据点编号的变量
Dim Chart As WinForm.Chart = Forms("数据分析").Controls("Chart1") '获得Chart对象的引用

If Chart.CoordToDataIndex(e.x, e.y ,s ,p) Then '如果鼠标位置存在有效的图序和数据点
    Dim Series As WinForm.ChartSeries = Chart.SeriesList(s) '获得鼠标位置的图序
    Dim t As Table = Tables("数据索引")
    Dim r As Row = Tables("数据索引").Rows(p+1)
    Dim d As Date = r("Time")
    Dim msg As String
    msg = "单击的是第" & (s+1) & "个图系的第" & (p+1) & "个数据点." & Chr(13) & Chr(10) & "该点的值为: "
    msg = msg & "(X = " & d & ", Y = " & Series.Y(p) & ")"
    Messagebox.Show(msg)
End If

此主题相关图片如下：捕获.jpg

判断一下

 

Dim s As Integer = 0 '定义存储图系编号的变量
Dim p As Integer = 1 '定义存储数据点编号的变量
Dim Chart As WinForm.Chart = Forms("窗口1").Controls("Chart1") '获得Chart对象的引用

If Chart.SeriesList.Count > 0 Andalso Chart.CoordToDataIndex(e.x, e.y ,s ,p) Then '如果鼠标位置存在有效的图序和数据点

End If

谢谢楼上的指点

 

 下图中的红色线是通过 Series = Chart.SeriesList.Add() '增加的，而绿色线是通个 Series = Chart.SeriesList2.Add() '增加另一个图系

结果是mouseup是红线上会有mesbox弹出，但绿色线上没反应。

 

是不是下面这句的原因，需要调整为Chart.SeriesList2（s），我调整了一下，好像也没用。求教有2个Y轴的，如何修改mouseup代码？

 

 Dim Series As WinForm.ChartSeries = Chart.SeriesList(s) '获得鼠标位置的图序

 

此主题相关图片如下：111.jpg

 http://www.foxtable.com/help/topics/1013.htm