- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请问图表标签问题。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110624)
-- 发布时间：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
-- 发布时间：2017/12/6 16:14:00
--
[此贴子已经被作者于2017/12/6 16:15:41编辑过]
-- 发布时间：2017/12/6 16:17:00
--
lbl.AttachMethodData.GroupIndex = 0
lbl.AttachMethodData.SeriesIndex = ii
lbl.AttachMethodData.PointIndex = i
lbl.Compass = 0
lbl.Offset = 2
-- 发布时间：2017/12/6 17:31:00
--
-- 发布时间：2017/12/7 10:44:00
--
追问：如何设置标签的字体颜色和背景颜色？
-- 发布时间：2017/12/7 10:48:00
--
lbl.style.forecolor = color.blue
-----------
所有属性
BackColor
ForeColor
Font
Opaque
HorizontalAlignment
VerticalAlignment
ImageAlignment
Rotation
Border
BackColor2
GradientStyle
HatchStyle
Autowrap
VerticalText
-- 发布时间：2017/12/7 11:05:00
--
