vb.net Chart 排程圖
时间: 2023-08-14 08:07:38 浏览: 46
VB.NET中的Chart控件可以用来绘制排程图。排程图也称为甘特图,通常用于显示项目进度、任务完成情况等。以下是一个简单的VB.NET代码示例,用Chart控件绘制排程图:
```vb.net
' 创建一个Chart控件
Dim chart1 As New Chart()
' 添加一个Series(系列),用于显示任务
Dim series1 As New Series("Tasks")
series1.ChartType = SeriesChartType.RangeBar
' 添加任务数据
series1.Points.AddXY("Task 1", New Date(2021, 7, 1, 8, 0, 0), New Date(2021, 7, 1, 12, 0, 0))
series1.Points.AddXY("Task 2", New Date(2021, 7, 1, 10, 0, 0), New Date(2021, 7, 1, 14, 0, 0))
series1.Points.AddXY("Task 3", New Date(2021, 7, 1, 13, 0, 0), New Date(2021, 7, 1, 16, 0, 0))
' 将Series添加到Chart控件中
chart1.Series.Add(series1)
' 设置Chart控件的属性
chart1.ChartAreas.Add(New ChartArea())
chart1.ChartAreas(0).AxisX.Minimum = New Date(2021, 7, 1, 7, 0, 0).ToOADate()
chart1.ChartAreas(0).AxisX.Maximum = New Date(2021, 7, 1, 18, 0, 0).ToOADate()
chart1.ChartAreas(0).AxisX.IntervalType = DateTimeIntervalType.Hours
chart1.ChartAreas(0).AxisY.Minimum = 0
chart1.ChartAreas(0).AxisY.Maximum = 1
chart1.ChartAreas(0).AxisY.Interval = 1
chart1.ChartAreas(0).AxisY.CustomLabels.Add(0.5, 1.5, "Tasks")
' 添加到窗体中
Me.Controls.Add(chart1)
```
这段代码会创建一个Chart控件,并在其中绘制三个任务的排程图。你可以根据自己的需求修改任务数据、控件属性等。