- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]怎样让chart图表可以滑动 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76295)
-- 发布时间：2015/10/26 16:08:00
-- [求助]怎样让chart图表可以滑动
各位老师，我做了图，但是由于很坐标数值较多，是以具体时间为横轴的（18:20），结果横轴显示就很密集，我就想能不能把图标进行横向扩展，固定横坐标和横坐标之间 的宽度。
此主题相关图片如下：qq截图20151026160602.jpg
-- 发布时间：2015/10/26 16:13:00
--
参考例子
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=66120&skin=0
-- 发布时间：2015/10/26 17:11:00
--
老师，他这个解决不了我的问题。我的问题是，横坐标最小刻度固定，例子中的是变动的。我想实现的效果是这样：
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("环境数据") \'定义一个变量t引用数据表
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Chart.Axisx.ClearValueLabel
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = t.Rows.Count \'设置图系的长度
For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
Series.Y(i) = t.Rows(i)("土壤温度")
Chart.AxisX.SetValueLabel(i, Format(t.Rows(i)("时间"),"HH:mm")) \'指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True
Chart.AxisY.Major =10
Chart.AxisY.Min = -30
Chart.AxisY.Max =70
Chart.AxisX.AnnoWithLabels = True
Chart.AxisY.Major = 10
Chart.AxisY.Min = 0
Chart.AxisY.Max =100
chart.FooterText="土壤温度"
我现在不会的是：设置横坐标最小刻度的宽度
-- 发布时间：2015/10/26 17:50:00
--
你可以直接控制chart控件的宽度啊，根据你rows.count的值，控制宽度即可。