Foxtable(狐表)用户栏目专家坐堂 → 画图板签名


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

主题:画图板签名

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


加好友 发短信
等级:小狐 帖子:315 积分:3554 威望:0 精华:0 注册:2012/12/10 10:38:00
画图板签名  发帖心情 Post By:2012/12/12 13:57:00 [显示全部帖子]

请问各位大侠,如何调用画图板实现签名功能?

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


加好友 发短信
等级:小狐 帖子:315 积分:3554 威望:0 精华:0 注册:2012/12/10 10:38:00
  发帖心情 Post By:2012/12/26 16:41:00 [显示全部帖子]

在学习foxtable,想设计一个通过画笔签名的窗口,见附件图片,但不知道如何调取画笔画任意线,请问如何从第4句开始修改?按tab键不能调出graphic的成员,对painter又非常外行。

还有保存按钮如何写代码?

 

 签名按钮:

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim
g As Graphics = p.Graphics
Dim
pn As New Pen(Color.Red,3)
g.DrawEllipse(Pens.Blue,10,10,100,100)
p.Repaint()

抹去按钮:

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim
g As Graphics = p.Graphics
g.Clear()

p.Repaint()

保存按钮:

??

 

 


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


加好友 发短信
等级:小狐 帖子:315 积分:3554 威望:0 精华:0 注册:2012/12/10 10:38:00
  发帖心情 Post By:2012/12/26 17:07:00 [显示全部帖子]

谢谢!

辛苦了!


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


加好友 发短信
等级:小狐 帖子:315 积分:3554 威望:0 精华:0 注册:2012/12/10 10:38:00
  发帖心情 Post By:2012/12/27 8:58:00 [显示全部帖子]

谢谢hilun! 对自定函数不是很理解,但没关系,可以拿来测试和学习

关键是思路可以借鉴,通过设置自定义函数后再调用。让我感受到了自定义函数的强大。

高明!


 回到顶部