GDI 虚线画笔

 

Dim dashValues As Single() = {1, 6}
Dim pen1 As New Pen(Brushes.Red, 1)
pen1.DashStyle = Drawing2D.DashStyle.Dot
pen1.DashPattern = dashValue

 

posted @ 2012-07-03 03:28  rf8862  阅读(144)  评论(0)  编辑  收藏  举报