欢迎您:游客!请先
登录
或
注册
风格
恢复默认设置
|
展区
文件集浏览
图片集浏览
Flash浏览
音乐集浏览
电影集浏览
|
搜索
Foxtable(狐表)
→
用户栏目
→
专家坐堂
→ [求助]GDI+ 绘图并判断应用
新的主题
投票帖
小字报
下一主题 >>
<< 上一主题
共有
3391
人关注过本帖
平板
打印
复制链接
主题:[求助]GDI+ 绘图并判断应用
dengzhihao
小
大
1楼
|
信息
|
搜索
|
邮箱
|
主页
|
UC
加好友
发短信
等级:童狐
帖子:
252
积分:2169
威望:0
精华:0
注册:
2012/11/4 22:07:00
[求助]GDI+ 绘图并判断应用
Post By:2014/4/5 21:57:00 [
只看该作者
]
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编辑过]
下一主题 >>
<< 上一主题
RSS2.0
|
Xhtml无图版
|
Xslt无图版
Copyright © 2000 - 2018
foxtable
.com
Tel: 4000-810-820 粤ICP备11091905号
Powered By
Dvbbs
Version 8.3.0
页面执行时间 0.03125 秒, 6 次数据查询