如何:绘制自定义虚线
更新:2007 年 11 月
GDI+ 提供 DashStyle 枚举中列出的几种虚线样式。如果这些标准的虚线样式不能满足需求,则可创建自定义的虚线模式。
示例
若要绘制自定义虚线,请将短划线和间距的长度放在一个数组中,并将该数组指定为 Pen 对象的 DashPattern 属性的值。下面的示例绘制了一条基于 {5, 2, 15, 4} 数组的自定义的虚线。如果将数组元素乘以钢笔的宽度 5,可得到 {25, 10, 75, 20}。显示的短划线的长度在 25 和 75 之间交替,间距的长度在 10 和 20 之间交替。
下面的插图显示结果虚线。请注意,最后一段短划线不得不短于 25 个单位,以便线条的终点落在 (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))
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));
编译代码
创建一个 Windows 窗体并处理窗体的 Paint 事件。将上面的代码粘贴到 Paint 事件处理程序中。