'定义一支笔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.Graphicsg.DrawLine(p1,0,130,160,130)p.Repaint()
'笔帽类型'20 箭头'19 菱形'18 圆'17 方
这个如何通过 鼠标点击两个点生成呢
中间再能双击加个点,拖放改成折线就好了