vb.net 教程 5-11 线条样式

淡淡的烟草味﹌ 2022-09-10 15:26 199阅读 0赞

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。  
之前我谈过画线一般使用的是pen，填充使用brush。  
画的线有很多样式，这篇介绍一下线型的几个用法：

注意此篇中的代码需要先引用  Drawing2D

Imports System.Drawing.Drawing2D

1、线帽样式，我们看到的带箭头的线就是  
代码如下：

Private Sub btnDraw\_Click(sender As Object, e As EventArgs) Handles btnDrawCap.Click  
        Dim g As Graphics = Me.CreateGraphics  
        Dim p As New Pen(Color.Red, 8)  
        '几种主要的线帽  
        Dim pCap() As LineCap = \{LineCap.AnchorMask, LineCap.ArrowAnchor, LineCap.DiamondAnchor, LineCap.Flat, LineCap.Round,  
            LineCap.Square, LineCap.SquareAnchor, LineCap.Triangle\}  
   
        For i As Integer = 0 To pCap.Length - 1  
            '设置直线开始端线帽样式  
            p.StartCap = pCap(i)  
            '设置直线结束端线帽样式  
            p.EndCap = pCap(pCap.Length - 1 - i)  
            g.DrawLine(p, New Point(100, i \* 30 + 20), New Point(300, i \* 30 + 20))  
        Next  
    End Sub

2、自定义线帽样式  
使用自定义线帽，先定义一个GraphicsPath  
GraphicsPath包含了线帽图形，需要注意的是这个图形的坐标系跟我们所学习的不同，见下图：

定义一个CustomLineCap，注意 构造函数中的两个参数，  
第一个参数：自定义线帽填充内容的 GraphicsPath 对象。  
第二个参数：自定义线帽轮廓的 GraphicsPath 对象。  
上述两个参数不能同时使用，必须设置其中一个参数为nothing。如果均未向两个参数传递空值，则第一个参数将被忽略。

下面我们做个闪电形（W）的线帽：

Private Sub btnCustom\_Click(sender As Object, e As EventArgs) Handles btnCustom.Click  
        Dim g As Graphics = Me.CreateGraphics  
        Dim p As New Pen(Color.Red, 4)  
   
        '首先包含一个路径  
        Dim capPath As New GraphicsPath()  
        capPath.AddLine(New Point(0, 0), New Point(-3, 3))  
        capPath.AddLine(New Point(-3, 3), New Point(6, 9))  
        capPath.AddLine(New Point(6, 9), New Point(-3, 15))  
        capPath.AddLine(New Point(-3, 15), New Point(6, 21))  
        '自定义线帽样式  
        Dim pCap As New CustomLineCap(Nothing, capPath)  
        p.CustomEndCap = pCap  
   
        g.DrawLine(p, New Point(100, 100 + 260), New Point(300, 100 + 260))  
    End Sub

3、虚线样式，比如点划线  
代码如下：

Private Sub btnDraw\_Click\_1(sender As Object, e As EventArgs) Handles btnDraw.Click  
        Dim g As Graphics = Me.CreateGraphics  
        Dim p As New Pen(Color.Red, 4)  
        '几种点划线样式  
        Dim pDash() As DashStyle = \{DashStyle.Dot, DashStyle.DashDot, DashStyle.Dash\}  
   
        For i As Integer = 0 To pDash.Length - 1  
            '设置点划线样式  
            p.DashStyle = pDash(i)  
            g.DrawLine(p, New Point(100, i \* 30 + 260), New Point(300, i \* 30 + 260))  
        Next  
    End Sub  
当然，如前所述，不仅仅是画直线，其他图形如矩形、椭圆形等都可以：

Private Sub btnDrawRec\_Click(sender As Object, e As EventArgs) Handles btnDrawRec.Click  
        Dim g As Graphics = Me.CreateGraphics  
        Dim p As New Pen(Color.Red, 2)  
        p.DashStyle = DashStyle.DashDot  
        g.DrawRectangle(p, New Rectangle(100, 400, 200, 120))  
    End Sub  
运行时如下图：

由于.net平台下C\#和vb.NET很相似，本文也可以为C\#爱好者提供参考。

学习更多vb.net知识，请参看[vb.net教程 ][vb.net_]目录

————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net_]: https://www.xin3721.com/eschool/vbnetxin3721/