甘特图

• 下载演示 - 23.1 KB
• 下载源代码 - 23.8 KB

引言

此组件使您能够轻松地将甘特图添加到您的应用程序中。您只需要三行代码即可使其工作。

此甘特图控件包含以下功能：

• 列的显示方式会根据组件的宽度以及开始日期和结束日期之间的时间自动调整。如果这些日期之间超过两天，则仅显示日期；否则，将显示当天的时间（最短间隔为 5 分钟）。
• 您可以单独设置每个条形的颜色（包括鼠标悬停颜色）。
• 当甘特图包含的行数超过可见区域允许的数量时，甘特图会自动显示自定义滚动条。
• 您可以轻松获取有关将鼠标悬停在条形图上的信息。
• 易于使用的多行工具提示文本。
• 使用鼠标更改条形图。

背景

我尝试找到一个好的、免费的、易于使用的甘特图控件在我的项目中，但没有找到。然后，我决定自己制作一个，实际上比我想象的要容易。

使用代码

要使甘特图组件显示内容，您只需要以下代码：

GanttChart1.FromDate = New Date(2007, 12, 12, 0, 0, 0)
GanttChart1.ToDate = New Date(2007, 12, 24, 0, 0, 0)
GanttChart1.AddChartBar("Row 1", Nothing, New Date(2007, 12, 12), 
    New Date(2007, 12, 16), Color.Aqua, Color.Khaki, 0))

如上所述，此组件还包含多行工具提示文本。

With GanttChart2
  Dim toolTipText As New List(Of String)
  toolTipText.Add("Time:")

  .ToolTipTextTitle = .MouseOverRowText
  .ToolTipText = toolTipText
 
End With

当包含工具提示文本行时，该行将自动加粗。

也可以将甘特图保存为图像文件。

GanttChart2.SaveImage("C:\TestImage.jpg")

包含的 Zip 文件包含一个项目，演示如何使用其不同的功能。

历史

• 版本 0.55
• 添加了拖动条形图的功能（在编辑条形图后，将触发 BarChanged 事件）。
• 如果开始日期和结束日期之间的时间大于 60 天，甘特图将切换为显示月份而不是天数。
• 版本 0.54
• 甘特图现在可以保存为图像文件。
• 版本 0.53
• 向组件添加了 ScrollBar。