关于工具栏
甘特图内置了工具栏,你不能在设计阶段修改这个工具栏,但是你可以在运行阶段通过代码修改之。
工具栏包括以下按钮:
名称 | 说明 |
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")