| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]关于图表控件中数据点的标示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89632) |
| -- 作者：hgzvip -- 发布时间：2016/8/25 21:00:00 -- [求助]关于图表控件中数据点的标示 老师，我有一个显示客户分布的图表，主要列：客户名称、坐标x，坐标y，代码如下： Tables("客户分布_table1").Filter = "[坐标x] > 0" \'在窗口“客户分布”的table1表中筛选出有坐标位置的客户 Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.SeriesList.Clear() \'清除图表原来的图系 Series = Chart.SeriesList.Add() \'增加一个图系 Dim u As Integer = Tables("客户分布_table1").Rows.Count Series.Length = u \'新增图系包括u个数据点（有效的数据行） Series.MarkShape= MarkShapeEnum.Dot \'指定数据标记为原点型. series.MarkSize = 10 \'标记点的大小(像素) Series.LinePattern = LinePatternEnum.None \'不显示数据点之间的联线 With Tables("客户分布_table1") .Position = 0 For i As Integer = 1 To u Series.X(i) = .Current("坐标x") Series.Y(i) = .Current("坐标y") .Position = i Next End With 运行没问题，但我想把“客户名称”显示在每个数据点的周围，请教老师要怎么实现？
|
| -- 作者：有点甜 -- 发布时间：2016/8/25 21:14:00 -- 参考这里的示例二： http://www.foxtable.com/webhelp/scr/0968.htm |