Foxtable(狐表)用户栏目专家坐堂 → 请问图表标签问题。


  共有2452人关注过本帖树形打印复制链接

主题:请问图表标签问题。

帅哥哟,离线,有人找我吗?
y2287958
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4772 积分:34668 威望:0 精华:0 注册:2008/8/31 22:44:00
请问图表标签问题。  发帖心情 Post By:2017/12/6 15:09:00 [显示全部帖子]

请问:执行以下代码时,为何出来的图系标签是重叠的?如何才能分开?
Dim Chart As WinForm.Chart = Forms("窗口2").Controls("Chart1")  '得到一个图表
Dim Series As WinForm.ChartSeries  '声明一个图系
Chart.SeriesList.Clear()   '清除图表原来的图系

Dim c1Chart1 = Chart.basecontrol
Dim lbls = c1Chart1.ChartLabels
lbls.LabelsCollection.Clear()

Dim s() As String = {"aa","bb","cc","dd","ee","ff","gg","hh","ii","jj"}
For ii As Integer = 0 To 1
    Series = Chart.SeriesList.Add()
    Series.Length = 10
    Series.MarkShape = MarkShapeEnum.Diamond
    Series.MarkColor = Color.Red
    Series.LinePattern = LinePatternEnum.None
    For i As Integer = 0 To 9
        Series.X(i) = i+ii '指定水平坐标
        Series.Y(i) = i + Rand.Next(5+ii) '指定垂直坐标
        Dim lbl As C1.Win.C1Chart.Label = lbls.LabelsCollection.AddNewLabel()
        lbl.Text = s(i) & ii   '标示内容
        lbl.AttachMethod = C1Chart.AttachMethodEnum.DataIndex
        lbl.AttachMethodData.GroupIndex = 0
        lbl.AttachMethodData.SeriesIndex = 0
        lbl.AttachMethodData.PointIndex = i+ii
        lbl.Compass = 0
        lbl.Offset = 5
        lbl.Visible = True
    Next
Next

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4772 积分:34668 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2017/12/6 17:31:00 [显示全部帖子]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4772 积分:34668 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2017/12/7 10:44:00 [显示全部帖子]

追问:如何设置标签的字体颜色和背景颜色?

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4772 积分:34668 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2017/12/7 11:05:00 [显示全部帖子]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看

 回到顶部