Foxtable(狐表)用户栏目专家坐堂 → FoxTable有没有绘图功能


  共有2526人关注过本帖树形打印复制链接

主题:FoxTable有没有绘图功能

帅哥哟,离线,有人找我吗?
wangjh8888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:502 积分:4924 威望:0 精华:0 注册:2016/7/11 10:12:00
FoxTable有没有绘图功能  发帖心情 Post By:2019/11/7 10:51:00 [只看该作者]

老师  好,问问FoxTable有没有绘图功能,比如画点,画线等命令语句。

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2019/11/7 11:58:00 [只看该作者]

没有,只能借助第三方绘图工具。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107718 积分:547917 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/7 13:59:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
wangjh8888
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:502 积分:4924 威望:0 精华:0 注册:2016/7/11 10:12:00
  发帖心情 Post By:2019/11/7 18:06:00 [只看该作者]

谢谢  我试试

 回到顶部
帅哥哟,离线,有人找我吗?
wangjh8888
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:502 积分:4924 威望:0 精华:0 注册:2016/7/11 10:12:00
  发帖心情 Post By:2019/11/10 13:04:00 [只看该作者]

老师:
下面画2条线段
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.DrawLine(Pens.Red,30,0,30,60)
g.DrawLine(Pens.Red,0,30,60,30)
p.Repaint()

下面清除所有内容
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.Clear(Color.Transparent)      '清除所有内容,并将背景颜色设为白色
p.Repaint()

有没有只清除一条线段的代码?或者如何修改其中一线段?
[此贴子已经被作者于2019/11/10 13:05:15编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7237 积分:40614 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2019/11/10 20:11:00 [只看该作者]

全部清除,修改按钮再重新绘制,没有别的办法,也可以做到,每个线条一个绘图板重叠,背景全部为Color.Transparent,也就是每一个图形绘制一个图层,不过那样麻烦多了!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107718 积分:547917 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/10 21:21:00 [只看该作者]

Foxtable不是专业的绘图软件,做不到太精细的绘制,效果也未必好

 回到顶部