- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]GDI+ 绘图并判断应用 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=48810)
-- 发布时间：2014/4/5 21:57:00
-- [求助]GDI+ 绘图并判断应用
1、GDI+绘图应用到表，是不是用备注型？
2、如何根据判断不同，绘制不同的图，并在表里显示？
例如：四叶为真，窗头为0，即
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim n As New Pen(Color.Red,2)
g.DrawRectangle(n,25,65,100,50)
g.DrawRectangle(n,25,65,25,50)
g.DrawRectangle(n,25,65,50,50)
g.DrawRectangle(n,25,65,75,50)
p.Repaint()
例如：四叶为真，窗头>0,窗头格数=4，即
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim n As New Pen(Color.Red,2)
g.DrawRectangle(n,25,65,100,50)
g.DrawRectangle(n,25,65,25,50)
g.DrawRectangle(n,25,65,50,50)
g.DrawRectangle(n,25,65,75,50)
g.DrawRectangle(n,25,40,100,25)
g.DrawRectangle(n,25,40,25,25)
g.DrawRectangle(n,25,40,50,25)
g.DrawRectangle(n,25,40,75,25)
p.Repaint()
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:推拉门.table |
[此贴子已经被作者于2014-4-6 3:30:45编辑过]
-- 发布时间：2014/4/6 7:59:00
--
求助
-- 发布时间：2014/4/6 23:03:00
--
-- 发布时间：2014/4/7 9:09:00
--
两种方法。
方法一：先生成图片，也就是各种类型都生成一张图片(对于新类型，再生成新图片)，然后把这一列设置成图片列，直接引用对应名字的图片即可，窗口上用图片控件显示；
方法二：在单元格里绘图，但是单元格的图片是无法直接显示在绘图板上的，所以你的绘图板上还需要重新根据当行的数据再画一次。
参考：http://www.foxtable.com/help/topics/1493.htm