[求助]GDI+ 绘图并判断应用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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编辑过]

主题：[求助]GDI+ 绘图并判断应用