Question

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

Answer 1

在MouseMove事件中可以得到鼠标的位置，再用TwipsToChartPart方法就可以知道当前位置对应的是Chart的哪个部分。不过，这个方法的使用不太方便。你可以使用下面的代码：PrivateSub 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, whichNumberEndSub 你可以在某条曲线上点一下，这时整条曲线被选中，上面的代码输出的whichPart值为VtChPartTypeSeries(5)，表示一个序列被选中了，whichSeries表示序列号。如果你在这条选中的曲线的不是节点的某个位置上点一下，这时某个节点被选中，上面的代码输出的whichPart值为VtChPartTypePoint(7)，whichNumber表示是序列中的哪个点，你就可以利用这些信息知道用户选择了哪个数据。但是MSChart的这种方式对用户不是很方便。 要在窗体上加一个TextBox控件，设置visible属性为false另外 mschart1.DoSetCursor= falsePrivateSub MSChart1_MouseMove(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 MSChart1.AllowSeriesSelection = False If whichPart < 7 Or whichSeries < 1 Then Text1.Visible = FalseElse Text1.Top = Y + MSChart1.Top + 300 Text1.Left = X + MSChart1.Left + 200 Text1.Text = str(whichPart) & Chr(13) & Chr(10) & str(whichSeries) & Chr(13) & Chr(10) &