关于工具栏

甘特图内置了工具栏,你不能在设计阶段修改这个工具栏,但是你可以在运行阶段通过代码修改之。

工具栏包括以下按钮:

名称 说明
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")


本页地址:http://www.foxtable.com/webhelp/topics/4033.htm