- 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=16294)
-- 发布时间：2012/2/8 16:41:00
-- 如何实现进度自动显示绘图？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生产计划进度控制表.table |
生产计划控制表：有计划数量、完成数量，如何实现进度自动显示绘图？
-- 发布时间：2012/2/8 16:47:00
--
帮助中复制代码，贴进去就ok了
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目15.table |
-- 发布时间：2012/2/8 17:04:00
--
此主题相关图片如下：jidutupian.jpg
版主你好：我看了，超过计划数量的格不应该显示红色，应该显示绿色才对，应如何改？
-- 发布时间：2012/2/8 17:15:00
--
If e.Col.Name = "进度" AndAlso e.Row.IsNull("进度") = False Then
e.StartDraw()
Dim Width As Integer = (e.Width - 2 )* e.Row("进度") \\ 100
If e.Row("进度") >= 100 Then
e.Graphics.FillRectangle(Brushes.Green,e.x + 1,e.y + 1, Width, e.Height - 2)
Else
e.Graphics.FillRectangle(Brushes.Red,e.x + 1,e.y + 1, Width, e.Height - 2)
End If
e.EndDraw()
End If
-- 发布时间：2012/2/8 19:15:00
--
谢谢！