Foxtable(狐表)用户栏目专家坐堂 → 图表里的网络线


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

主题:图表里的网络线

美女呀,离线,留言给我吧!
nuoyan89
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3642 威望:0 精华:0 注册:2020/10/9 8:45:00
图表里的网络线  发帖心情 Post By:2024/12/11 20:10:00 [只看该作者]

老师,如果的图表,我想把X/Y轴里的线不显示,怎么设置都不对,请帮忙看看,谢谢

图片点击可在新窗口打开查看此主题相关图片如下:123.png
图片点击可在新窗口打开查看

 回到顶部
美女呀,离线,留言给我吧!
nuoyan89
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3642 威望:0 精华:0 注册:2020/10/9 8:45:00
  发帖心情 Post By:2024/12/11 21:58:00 [只看该作者]

处理好了,谢谢

 回到顶部
美女呀,离线,留言给我吧!
nuoyan89
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3642 威望:0 精华:0 注册:2020/10/9 8:45:00
  发帖心情 Post By:2024/12/12 8:10:00 [只看该作者]

老师,我想把X轴的数字和线及Y轴的那根竖线隐藏,请帮忙看看,谢谢

图片点击可在新窗口打开查看此主题相关图片如下:12.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
美女呀,离线,留言给我吧!
nuoyan89
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3642 威望:0 精华:0 注册:2020/10/9 8:45:00
  发帖心情 Post By: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
图片点击可在新窗口打开查看


 回到顶部
美女呀,离线,留言给我吧!
nuoyan89
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3642 威望:0 精华:0 注册:2020/10/9 8:45:00
  发帖心情 Post By:2024/12/12 18:42:00 [只看该作者]

5楼有办法处理吗?

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/12 19:39:00 [只看该作者]

5楼有啥问题?

另外我给的是我测试的完整代码,有些东西我也要自己测试过才知道,其中只有隐藏坐标轴那2句是回答您的问题的,不需要完全照搬。如果完全看不懂别人给的代码。建议重新学一下编程基础

 回到顶部
美女呀,离线,留言给我吧!
nuoyan89
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3642 威望:0 精华:0 注册:2020/10/9 8:45:00
  发帖心情 Post By:2024/12/12 20:17:00 [只看该作者]

现在不就是在学吗,学的过程中不明白的地方,5楼的问题是如图圈起来的字也被隐藏掉了,我只想隐藏刻度线

图片点击可在新窗口打开查看此主题相关图片如下:123.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/12 20:23:00 [只看该作者]

这个没有办法,坐标轴和字是一体的。

 回到顶部