[分享] 自定义线帽(直线上的箭头样式) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享] 自定义线帽(直线上的箭头样式)

共有7602人关注过本帖树形打印复制链接主题：[分享] 自定义线帽(直线上的箭头样式)

zhengboxin

小大 31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：530 积分：4520 威望：0 精华：0 注册：2013/4/27 22:20:00

Post By：2015/9/22 21:52:00 [只看该作者]

santde

小大 32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：274 积分：2293 威望：0 精华：0 注册：2015/6/14 18:33:00

Post By：2016/1/28 0:10:00 [只看该作者]

'定义一支笔
Dim p1 As new pen(Color.Red, 5)
'置终点笔帽
p1.EndCap = 20

'置起点笔帽
'p1.StartCap = 18

'在对象上画一根直线
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.DrawLine(p1,0,130,160,130)
p.Repaint()

'笔帽类型
'20    箭头
'19   菱形
'18 圆
'17   方

这个如何通过鼠标点击两个点生成呢

中间再能双击加个点，拖放改成折线就好了

总数 32 上一页 1 2 3 4

主题：[分享] 自定义线帽(直线上的箭头样式)