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

来源：百度文库 编辑：神马文学网 时间：2024/05/20 17:17:10
在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
Label1.Caption = X & " " & Y & " " & whichPart & " " & whichSeries & " " & whichNumber
End Sub
你可以在某条曲线上点一下，这时整条曲线被选中，上面的代码输出的whichPart值为VtChPartTypeSeries(5)，表示一个序列被选中了，whichSeries表示序列号。如果你在这条选中的曲线的不是节点的某个位置上点一下，这时某个节点被选中，上面的代码输出的whichPart值为VtChPartTypePoint(7)，whichNumber表示是序列中的哪个点，你就可以利用这些信息知道用户选择了哪个数据。但是MSChart的这种方式对用户不是很方便。
要在窗体上加一个TextBox控件，设置visible属性为false
另外
mschart1.DoSetCursor = false
Private Sub 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 = False
Else
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) & str(whichNumber)
Text1.Visible = True
End If
End Sub
mschart控件如何使鼠标移动到数据标记上时显示相应的内容4 mschart控件如何使鼠标移动到数据标记上时显示相应的内容12 mschart控件如何使鼠标移动到数据标记上时显示相应的内容asdf jquery控件替换显示内容 MSChart控件的属性与属性对话框22 CAD鼠标中键不能移动(显示手掌)的解决方案 将MsFlexGrid控件的内容输出到文本 动态创建的CStatic控件如何响应鼠标事件 .mobi域名注册显示移动内容的需求持续增长 鼠标能显示，但无法移动 如何快速移动旧硬盘的数据 win7显示隐藏的文件夹内容，如何显示隐藏的文件夹内容，属性设为隐藏 【原创】asp.net中数据显示控件浅谈 很帅的jQuery鼠标移动预览图展示+简介内容展示特效代码 网页里的FLASH,如何不单击鼠标,直接激活控件? 如何将Struts2的doubleselect 的两个select 控件横排显示 页面数据绑定时一个控件显示多个绑定列数据 如何修复受损光盘上的数据？ 如何修复受损光盘上的数据？ 如何修复受损光盘上的数据 怎样与自己的上师相应 酒瓶上英文标记的含义(图) Mozilla研究—从输入URL到显示内容的基本过程 移动运营商的内容情结