在使用mschart控件时，如何使鼠标移动到数据标记上时显示相应的内容.txt

VB技巧问答10000例 VB技巧问答10000例

在MouseMove事件中可以得到鼠标的位置，再用TwipsToChartPart方法就可以知道当前位置对应的是Chart的哪个部分。不过，这个方法的使用不太方便。你可以使用下面的代码： 
    Private Sub MSChart1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
     Dim whichPart As Integer, whichSeries As Integer 
     Dim whichNumber As Integer 
     MSChart1.TwipsToChartPart X, Y, whichPart, whichSeries, whichNumber, 0, 0 
     Debug.Print whichPart, whichSeries, whichNumber 
    End Sub 
    你可以在某条曲线上点一下，这时整条曲线被选中，上面的代码输出的whichPart值为VtChPartTypeSeries(5)，表示一个序列被选中了，whichSeries表示序列号。如果你在这条选中的曲线的不是节点的某个位置上点一下，这时某个节点被选中，上面的代码输出的whichPart值为VtChPartTypePoint(7)，whichNumber表示是序列中的哪个点，你就可以利用这些信息知道用户选择了哪个数据。但是MSChart的这种方式对用户不是很方便。 
<END>