- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]绘图依据开始和结束时间 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=83416)
-- 发布时间：2016/4/8 13:32:00
-- [求助]绘图依据开始和结束时间
此主题相关图片如下：绘.png
保留现有的功能，调整开始时间后，单元格的x坐标按开始时间来画，请问该如何修正？
[此贴子已经被作者于2016/4/8 13:32:36编辑过]
-- 发布时间：2016/4/8 14:54:00
--
If e.Col.name.StartsWith("时_") Then
e.StartDraw()
Dim ts As Date = e.Row("开始时间")
Dim te As Date = e.Row("结束时间")
Dim t As Integer = e.Col.Name.Replace("时_", "")
Dim tt As Date = new Date(1, 1, 1, 8, 0, 0)
Dim sp1 As TimeSpan = ts - tt
Dim sp2 As TimeSpan = te - tt
If sp1.TotalMinutes < t AndAlso sp1.TotalMinutes >= t-60 Then
Dim x As Integer = ts.Minute * e.width / 60
Dim width As Integer = (sp2.TotalMinutes - sp1.TotalMinutes) * e.width / 60
e.Graphics.FillRectangle(Brushes.Green,e.x + x + 1,e.y + 1, Width, e.Height - 2)
ElseIf t-60 > sp1.TotalMinutes AndAlso t-60 < sp2.TotalMinutes Then
Dim x As Integer = 0
Dim width As Integer = (sp2.TotalMinutes - t + 60) * e.width / 60
e.Graphics.FillRectangle(Brushes.Green,e.x + x + 1,e.y + 1, Width, e.Height - 2)
End If
e.EndDraw()
End If
-- 发布时间：2016/4/8 15:05:00
--
感谢狐版，这样貌似不对，前面的条件还是要的，必须是项目相同且在同一日期下才会是接上一行的开始时间
-- 发布时间：2016/4/8 15:12:00
--
以下是引用狐作非为在2016/4/8 15:05:00的发言：
感谢狐版，这样貌似不对，前面的条件还是要的，必须是项目相同且在同一日期下才会是接上一行的开始时间
感谢狐版，这样貌似不对，前面的条件还是要的，必须是项目相同且在同一日期下才会是接上一行的开始时间
汗，你能不能理清思路啊，根据你的开始时间、结束时间画啊。时间你怎么调整是你自己的事