我在一个图表中有几个系列,我想让X轴每天在00:00显示,如下图所示。
但是当我添加一个从数据库中获取日期的系列时,它会更改为我不想要的另一个时间或格式(参见图2)。
这是我正在使用的代码。
Dim theDate As Date
rows = dv.Table.Rows.Count
For i As Integer = 0 To rows - 1
Debug.WriteLine(dv(i)(0))
theDate = DateTime.ParseExact(dv(i)(0), "dd-MMM-yy HH:mm:ss.f", CultureInfo.CurrentCulture)
Debug.WriteLine(theDate)
'MsgBox(theDate.ToString("dd-MMM HH:MM", CultureInfo.InvariantCulture))
With chrCurrent
.ChartAreas("chr" + type).AxisX.LabelStyle.Format = DateTimeIntervalType.Days
.ChartAreas("chr" + type).AxisX.LabelStyle.Format = "dd-MMM HH:mm"
.Series("ser" + type).Points.AddXY(theDate, dv(i)(1))
End With
Next
For i As Integer = 0 To 7 'Past 7 days
With chrCurrent
.Series("serHighHighLimit").Points.AddXY((DateSerial(Now.Year, Now.Month, Now.Day - i)), (limitRedHigh))
Next
图片1:
图2:
答案 0 :(得分:1)
尝试此操作以设置X轴最小值。您可能希望将其设置为时间序列中删除小时,分钟和秒的最短日期
.ChartAreas("chr" + type).AxisX.Minimum = #2/27/2014 00:00:0#