- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 图表里的网络线 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194455)
-- 发布时间：2024/12/11 20:10:00
-- 图表里的网络线
老师，如果的图表，我想把X/Y轴里的线不显示，怎么设置都不对，请帮忙看看，谢谢
此主题相关图片如下：123.png
-- 发布时间：2024/12/11 21:58:00
--
处理好了，谢谢
-- 发布时间：2024/12/12 8:10:00
--
老师，我想把X轴的数字和线及Y轴的那根竖线隐藏，请帮忙看看，谢谢
此主题相关图片如下：12.png
-- 发布时间：2024/12/12 9:04:00
--
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = Forms("窗口2").Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar \'设置图表类型
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = 10 \'新增图系包括10个数据点
For i As Integer = 0 To 9 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
Series.Y(i) = i + Rand.Next(5) \'垂直坐标用随机数生成
Next
Dim ctl As C1Chart.C1Chart = Chart.BaseControl
ctl.ChartArea.AxisY.Visible = False
ctl.ChartArea.AxisX.Visible = False
-- 发布时间：2024/12/12 13:58:00
--
老师，Y轴那边的线别没了，如图
Dim Chart As WinForm.Chart \'定义一个图表变量
Chart = Forms("数据大屏").Controls("清洗欠产")\' 引用窗口中的图表
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形)
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = 10 \'新增图系包括10个数据点
For i As Integer = 0 To 9 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
Series.Y(i) = i + Rand.Next(5) \'垂直坐标用随机数生成
Next
Dim ctl As C1Chart.C1Chart = Chart.BaseControl
ctl.ChartArea.AxisY.Visible = False
ctl.ChartArea.AxisX.Visible = False
Dim t As Table = Tables("表A")\'定义一个变量t引用数据表
Chart.DataSource = "表A" \'设置绑定表
Series.X.DataField = "线别" \'X轴绑定到产品列
Series.Y.DataField = "完成数量" \'Y轴绑定到数量列
Chart.Inverted = True\'XY轴对调
Chart.ColorGeneration = C1Chart.ColorGeneration.Concourse\'设置柱形条色系
Chart.VisualEffect = True\'设置柱形图样式
Series.DataLabelCompass = LabelCompassEnum.East \'柱形图数据位置
Chart.AxisY.GridMajorVisible = False
Chart.AxisX.GridMajorVisible = False
Series.DataLabelText = "{#YVAL}" \'条形图数据显示
Series.DataLabelForeColor = Color.FromArgb(57, 222, 222)\'字体颜色
Chart.Transparent = True \'去掉全部边框，并将全部背景设置为透明
此主题相关图片如下：123.png
-- 发布时间：2024/12/12 18:42:00
--
5楼有办法处理吗？
-- 发布时间：2024/12/12 19:39:00
--
5楼有啥问题？
另外我给的是我测试的完整代码，有些东西我也要自己测试过才知道，其中只有隐藏坐标轴那2句是回答您的问题的，不需要完全照搬。如果完全看不懂别人给的代码。建议重新学一下编程基础
-- 发布时间：2024/12/12 20:17:00
--
现在不就是在学吗，学的过程中不明白的地方，5楼的问题是如图圈起来的字也被隐藏掉了，我只想隐藏刻度线
此主题相关图片如下：123.png
-- 发布时间：2024/12/12 20:23:00
--
这个没有办法，坐标轴和字是一体的。