摘要: '右对齐 Dim al As New System.Drawing.StringFormat al.Alignment = StringAlignment.Far G.DrawString("测试文字", New Font("宋体", 12, FontStyle.Regular, GraphicsU 阅读全文
posted @ 2012-07-03 04:22 rf8862 阅读(179) 评论(0) 推荐(0) 编辑
摘要: 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) 推荐(0) 编辑