[求助]关于图标，请问可以生成这样的图表吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于图标，请问可以生成这样的图表吗？

共有4107人关注过本帖树形打印复制链接主题：[求助]关于图标，请问可以生成这样的图表吗？

lhpc120

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：6320 威望：0 精华：0 注册：2011/5/8 13:21:00

[求助]关于图标，请问可以生成这样的图表吗？ 发帖心情

Post By：2017/12/7 5:11:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

此主题相关图片如下：qq截图20171207050444.png

已上传我的表样式，请问可以生成这样的图标吗？最好手工编码！

一天24小时，不定时获取数据，在指定的时间点显示相应的数值。

比如12.25分采集的数据，那么在11点和12点之间显示数据点

我尝试过设置86400个数据点，代码如下，但是现实的不对！

lhpc120

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：6320 威望：0 精华：0 注册：2011/5/8 13:21:00

Post By：2017/12/7 5:16:00 [显示全部帖子]

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.AxisX.Major = 3600
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 86400 '新增图系包括10个数据点
For i As Integer = 0 To 86400-1 '指定每个数据点的位置
Series.X(i) = i '指定水平坐标
Series.Y(i) = i + Rand.Next(5) '垂直坐标用随机数生成
Next