编码绘制的甘特图希望时间精确到小时 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 编码绘制的甘特图希望时间精确到小时

共有2440人关注过本帖树形打印复制链接主题：编码绘制的甘特图希望时间精确到小时

aoc103

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

等级：童狐帖子：266 积分：3040 威望：0 精华：0 注册：2017/10/15 20:04:00

编码绘制的甘特图希望时间精确到小时 发帖心情

Post By：2020/5/9 23:16:00 [只看该作者]

甘特图一直在看，时间要如何精确到小时，另一个开始时间跟结束时间字段我想弄个TXTBOX 输入一个起始时间，跟一个TEXTBOX 每日数量然后开始时间跟结束时间可以自动生成

初始值：初始时间日生产数量

字段:型号生产数量开始时间结束时间

左边的字段就这么简单，右边的甘特图自动的范例是以日期为基准，不知道要怎么弄成以小时为基准

有点酸

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

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2020/5/10 9:38:00 [只看该作者]

小时和分钟都可以的：

Dim Chart As WinForm.Chart

Chart= Forms("窗口1").Controls("Chart1")

Chart.ChartType = ChartTypeEnum.Gantt '图表类型为甘特图

Chart.Inverted = True '对调X轴和Y轴位置

Chart.AxisY.DateType= True 'Y轴为日期型

Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式

Chart.AxisY.MinDate = #01/01/2010# '设置Y轴的起始日期

Chart.AxisY.MaxDate = #1/2/2010# '设置Y轴的终止日期

Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线

With Chart.SeriesList

.AddGanttSeries("任务一", #1/1/2010 8:30#, #1/1/2010 12:30#)

.AddGanttSeries("任务二", #1/1/2010 14:00#, #1/1/2010 21:00#)

.AddGanttLabels("HH分mm分")

End With

主题：编码绘制的甘特图 希望时间精确到小时