vb.net中自定义线帽

vb.net中自带的线帽是跟线粗有关的，也就是如果pen的width值小，那线帽也很小，几乎看不到。

幸好vb.net中允许自定义线帽，前些日子在网上搜了很多次，也没有找到一个确切的办法。现将我自己的方法如下，很简单：

 

        Dim pen1 As New Pen(Color.Black, 1)

        '自定义线帽

        Dim a As New AdjustableArrowCap(3, 4)

        '将它设为线的终点线帽

        pen1.CustomEndCap = a

       '画线

        e.Graphics.DrawLine(pen1, 40, 20, 120, 20)