如何在甘特图上加画一个箭头 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在甘特图上加画一个箭头

共有2957人关注过本帖树形打印复制链接主题：如何在甘特图上加画一个箭头

季朝龙

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：83 积分：918 威望：0 精华：0 注册：2019/9/20 14:29:00

如何在甘特图上加画一个箭头 发帖心情

Post By：2020/5/10 12:38:00 [只看该作者]

如何在甘特图上加画一个箭头
图片点击可在新窗口打开查看

此主题相关图片如下：001.png

If DrawGannt Then

Dim r As Row = Tables("在制工单信息").Rows(e.Row.Index)

Dim dt1 As Date = r("生产计划_开始日期")

Dim dt2 As Date = r("生产计划_结束日期")

Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")

If dt>=dt1 AndAlso dt<=dt2 Then

e.StartDraw()

e.Graphics.FillRectangle(Brushes.RoyalBlue,e.x ,e.y + 8, e.Width, e.Height - 16)

e.EndDraw()

End If

[此贴子已经被作者于2020/5/10 12:38:43编辑过]

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：4724 积分：34374 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2020/5/10 14:16:00 [只看该作者]

不如，在最后一个单元格加一个箭头图片

主题：如何在甘特图上加画一个箭头