以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 编码绘制的甘特图 希望时间精确到小时 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149718) |
-- 作者:aoc103 -- 发布时间:2020/5/9 23:16:00 -- 编码绘制的甘特图 希望时间精确到小时 甘特图一直在看,时间要如何精确到小时,另一个 开始时间跟结束时间字段 我想弄个TXTBOX 输入一个起始时间,跟一个TEXTBOX 每日数量 然后 开始时间跟结束时间可以自动生成 初始值: 初始时间 日生产数量 字段:型号 生产数量 开始时间 结束时间 左边的字段就这么简单,右边的甘特图 自动的范例是以日期为基准,不知道要怎么弄成以小时为基准
|
-- 作者:有点酸 -- 发布时间: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 |