在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
在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