关于工具栏
甘特图内置了工具栏,你不能在设计阶段修改这个工具栏,但是你可以在运行阶段通过代码修改之。
工具栏包括以下按钮:
| 名称 | 说明 |
| tsbLoadFromXml | 从XML文件加载 |
| tsbSaveAsXml | 另存为XML文件 |
| toolStripSeparator15 | |
| tsbUndo | 撤销 |
| tsbRedo | 重做 |
| toolStripSeparator4 | |
| tsbGridColumns | 表格列 |
| toolStripSeparator8 | |
| tsbMoveTaskUp | 任务上移 |
| tsbMoveTaskDown | 任务下移 |
| toolStripSeparator7 | |
| tsbTaskInfo | 任务信息 |
| toolStripSeparator16 | |
| tsbFieldStyles | 域样式 |
| toolStripSeparator2 | |
| tsbAddTask | 添加任务 |
| tsbAddSummaryTask | 添加摘要任务 |
| tsbInactive | 非活动状态 |
| tsbSplitTask | 拆分任务 |
| tsbAddBlankRow | 添加空白行 |
| tsbDeleteTask | 删除任务 |
| tsbOutdentTask | 取消任务缩进 |
| tsbIndentTask | 缩进任务 |
| tsbShowProjectSummary | 显示项目摘要 |
| tsdGroupBy | 分组 |
| tsdFilter | 筛选 |
| tsdSort | 排序 |
| toolStripSeparator5 | |
| tsbProjectInfo | 项目信息 |
| tsbWorkingTime | 改变工作时间 |
| tsbProgressLine | 进度线 |
| toolStripSeparator6 | |
| tsbResources | 项目资源 |
| toolStripSeparator3 | |
| tsbTimescale | 时间标尺 |
| tsbBarStyles | 条形样式 |
| toolStripSeparator1 | |
| tsbScrollToTask | 滚动到任务 |
| toolStripSeparator10 | |
| ddbZoom | 缩放 |
| tsbZoomEntireProject | 缩放整个项目 |
| tsbZoomSelectedTask | 缩放选中的任务 |
| toolStripSeparator11 | |
| tsbPrint | 打印 |
通过GantView的Strip属性可以返回这个工具栏,这个工具栏其实就是一个Strip组件,这样你就可以通过代码设置这个工具栏 ,参考:Strip
例如希望隐藏tsbLoadFromXml和tsbSaveAsXml两个按钮,可以在窗口的AfterLoad事件加上代码来隐藏这个两个按钮:
Dim
gv
As
GanttView = e.Form.Controls("GanttView1").GanttView
gv.Strip.Items("tsbLoadFromXml").Visible
=
False
gv.Strip.Items("tsbSaveAsXml").Visible
=
False
gv.Strip.Items("toolStripSeparator15").Visible
=
False
或者直接删除这两个按钮:
Dim
gv
As
GanttView = e.Form.Controls("GanttView1").GanttView
gv.Strip.Items.Remove("tsbLoadFromXml")
gv.Strip.Items.Remove("tsbSaveAsXml")
gv.Strip.Items.Remove("toolStripSeparator15")