Dim dashValues As Single() = {1, 6}
Dim pen1 As New Pen(Brushes.Red, 1)
pen1.DashStyle = Drawing2D.DashStyle.Dot
pen1.DashPattern = dashValue
转载于:https://www.cnblogs.com/rf8862/archive/2012/07/03/2574074.html
Dim dashValues As Single() = {1, 6}
Dim pen1 As New Pen(Brushes.Red, 1)
pen1.DashStyle = Drawing2D.DashStyle.Dot
pen1.DashPattern = dashValue
转载于:https://www.cnblogs.com/rf8862/archive/2012/07/03/2574074.html