GDI+ 提供 DashStyle 枚举中列出的多个短划线样式。 如果这些标准短划线样式不符合你的需求，则可以创建自定义短划线模式。
例
若要绘制自定义虚线，请将短划线和空格的长度放在数组中，并将数组指定为 Pen 对象的 DashPattern 属性的值。 以下示例根据数组 {5, 2, 15, 4}绘制自定义虚线。 如果将数组的元素乘以 5 的笔宽，则会收到 {25, 10, 75, 20}。 显示的短划线长度在 25 到 75 之间变换，空格长度在 10 到 20 之间分别交替。
下图显示了生成的虚线。 请注意，最后短划线的长度必须小于 25 个单位，使该行可以在 (405, 5) 处结束。
显示虚线的 
float[] dashValues = { 5, 2, 15, 4 };
Pen blackPen = new Pen(Color.Black, 5);
blackPen.DashPattern = dashValues;
e.Graphics.DrawLine(blackPen, new Point(5, 5), new Point(405, 5));
Dim dashValues As Single() = {5, 2, 15, 4}
Dim blackPen As New Pen(Color.Black, 5)
blackPen.DashPattern = dashValues
e.Graphics.DrawLine(blackPen, New Point(5, 5), New Point(405, 5))
编译代码
创建 Windows 窗体并处理窗体的 Paint 事件。 将上述代码粘贴到 Paint 事件处理程序中。
