以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  甘特图项目时间跨度短,如何将图示显示完整?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50713)

--  作者:zhengle
--  发布时间:2014/5/11 23:59:00
--  甘特图项目时间跨度短,如何将图示显示完整?

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

使用甘特图时遇到一个问题,就是如果甘特图的某一个项目时间跨度较短,图示的时间(如“3月5日至4月2日”)就显示不完全,能否换行显示,或有其他办法显示完整吗?
谢谢!

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 = "yyyy-MM-dd" \'设置Y轴的标示格式
Chart.AxisY.MinDate = #01/01/2010# \'设置Y轴的起始日期
Chart.AxisY.MaxDate = #04/30/2013# \'设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False \'隐藏X轴的网格线
With Chart.SeriesList
    .AddGanttSeries("任务1", New DateTime() {#2/13/2010#, #3/8/2011#}, New DateTime() {#3/5/2010#, #3/31/2011#}   )
    .AddGanttSeries("任务2", New DateTime() {#2/13/2012#, #3/8/2013#}, New DateTime() {#3/5/2012#, #3/31/2013#}   )
    .AddGanttLabels("m")
End With

--  作者:狐狸爸爸
--  发布时间:2014/5/12 8:53:00
--  
这个没办法控制
--  作者:有点甜
--  发布时间:2014/5/12 9:06:00
--  
 要么,你的图标足够大,要么,你的时间跨度足够小。
--  作者:zhengle
--  发布时间:2014/5/12 23:59:00
--  
十分感谢各位老师