老师帮忙看看一下代码怎么无法实现“水平坐标字符表示”！
Dim Chart1 As WinForm.Chart '定义一个图表变量
Dim Series1 As WinForm.ChartSeries '定义一个图系变量
Chart1 = e.Form.Controls("时段产出") ' 引用窗口中的图表
Chart1.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart1.SeriesList.Clear() '清除图表原来的图系
Series1 = Chart1.SeriesList.Add() '增加一个图系
Series1.Length = 12 '新增图系包括11个数据点
Series1.X(0) = 0
Series1.X(1) = 1
Series1.X(2) = 2
Series1.X(3) = 3
Series1.X(4) = 4
Series1.X(5) = 5
Series1.X(6) = 6
Series1.X(7) = 7
Series1.X(8) = 8
Series1.X(9) = 9
Series1.X(10) = 10
Series1.X(11) = 11
Chart1.AxisX.SetValueLabel(0, "A")
Chart1.AxisX.SetValueLabel(1, "B")
Chart1.AxisX.SetValueLabel(2, "C")
Chart1.AxisX.SetValueLabel(3, "D")
Chart1.AxisX.SetValueLabel(4, "E")
Chart1.AxisX.SetValueLabel(5, "F")
Chart1.AxisX.SetValueLabel(6, "I")
Chart1.AxisX.SetValueLabel(7, "J")
Chart1.AxisX.SetValueLabel(8, "K")
Chart1.AxisX.SetValueLabel(9, "L")
Chart1.AxisX.SetValueLabel(10, "M")
Chart1.AxisX.SetValueLabel(11, "N")
Series1.Y(0) = r0
Series1.Y(1) = r1
Series1.Y(2) = r2
Series1.Y(3) = r3
Series1.Y(4) = r4
Series1.Y(5) = r5
Series1.Y(6) = r6
Series1.Y(7) = r7
Series1.Y(8) = r8
Series1.Y(9) = r9
Series1.Y(10) = r10
Series1.Y(11) = r11
Chart1.AxisX.AnnoWithLabels = True
Chart1.BackColor = color.Moccasin
Chart1.LegendCompass= CompassEnum.south
Chart1.headerText = "时段产出"
Chart1.HeaderFont = New Font("宋体", 16, FontStyle.Bold)
加好友 
发短信
Post By：2019/11/13 15:29:00 [只看该作者]
