这个测试的时候，手动添加的。其实就是需要代码能够循环目前的思路是。把所有的时间都添加 到一个list 中，然后进行排序。
然后根据这个list 的数量，把下图的颜色范围进行切分。然后设置成不同颜色的brush，将这些brush 加入到一个list里面
此主题相关图片如下：2.png
最后进行循环匹配。现在问题就出在这个循环匹配上。前面的时间匹配到的颜色，会被后面的覆盖。
For i As Integer = 1 To Datet.Count-1 '---循环
msgbox(Datet(i) )
If dt < Datet(i) Then
e.Graphics.FillRectangle(blue ,e.x ,e.y + 5, e.Width, e.Height - 13)
'Datet.Remove(Datet(i))
'BRS.Remove(BRS(i))
Exit For
Else
If i<=Datet.Count-2 Then
If dt >= Datet(i) AndAlso dt<=Datet(i+1) Then
e.Graphics.FillRectangle(brred,e.x ,e.y + 3, e.Width, e.Height - 8)
Exit For
End If
End If
If dt > Datet(Datet.Count-1) AndAlso dt<=dt2 Then
e.Graphics.FillRectangle(gray,e.x ,e.y + 3, e.Width, e.Height - 8)
Exit For
End If
e.EndDraw()
End If
Next
加好友 
发短信
Post By：2020/8/28 10:08:00 [显示全部帖子]
此主题相关图片如下：qq截图20200828100143.jpg
