绘制可以移动的带箭头的直线
现在要绘制一条带箭头的直线，并直线可以随着鼠标左右移动，现在用line控件已经绘制好了，但是怎么在这条直线上加个箭头啊？帮忙提示下！对用line控件绘制的直线，能用line函数绘制箭头吗？
[解决办法]
使用三天直线啊，另外两个短直线，移动到第一长直线的末端，设置合适的角度不就是直线的箭头了?
[解决办法]
这东西最好还是自己绘制吧.
画橡皮线,在端点上画两个小短线,与当前线段共端点,再正负45度
[解决办法]
本帖最后由 bcrun 于 2013-01-19 10:23:05 编辑 用line画图函数更简单,箭头直接就有了.
Dim g As Graphics = PictureBox1.CreateGraphics
Dim BPen As New Pen(Color.Black, 5)
BPen.EndCap = Drawing2D.LineCap.ArrowAnchor
Dim pt1 As New Point(10, 30)
Dim pt2 As New Point(170, 30)
g.DrawLine(BPen, pt1, pt2)
BPen.Dispose()
g.Dispose()
