以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  设置图表间距无效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135324)

--  作者:rjh4078
--  发布时间:2019/5/23 16:28:00
--  设置图表间距无效
红色部分根本不起作用,图表最左侧的BAR还是贴在坐标轴上
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = e.Form.Controls("Chart2") \' 引用窗口中的图表
\'Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Bar \'图表1类型该为Bar(条形)
\'\'Chart.ChartType2 = ChartTypeEnum.XYPlot \'图表2类型该为线形
Chart.DataSource = s \'设置绑定表
Chart.AxisX.Major = 2
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'给图表1增加一个图系
Series.Length = t.Rows.Count
For i As Integer = 0 To tt.Rows.Count - 1 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
Series.Y(i) = tt.Rows(i)("产量") \'指定垂直坐标
Chart.AxisX.SetValueLabel(i, tt.Rows(i)("制作人"))
Next
series.DataLabelBackColor=Color.red
series.DataLabelForeColor=Color.white
Chart.AxisX.AnnoWithLabels = True
Series.DataLabelText = "{#YVAL}"

--  作者:rjh4078
--  发布时间:2019/5/23 16:52:00
--  
另外发现一个BUG  我这个表tt是动态生成的 条件不一样 内容也不一样 ,当新的内容包含之前的内容时,X轴的标题数据就会重叠在一起,
比如条件1 X轴有 1 2 3 4 
条件2 x轴有 1 2 3 4 5 6
新生成的条件2的数据就会重叠在条件1的数据上
按理说clear以后,应该按条件2重新生成,条件1的数据清除掉了

--  作者:有点甜
--  发布时间:2019/5/23 18:43:00
--  

加入

 

Chart.AxisX.ClearValueLabel


--  作者:rjh4078
--  发布时间:2019/5/23 18:52:00
--  
第一个问题呢 这个major设置了没用
--  作者:有点甜
--  发布时间:2019/5/23 19:15:00
--  
实例发上来测试。