| Dim p As Pen = New Pen(Color.FromArgb(161, 161, 146), 1) g.DrawLine(p, 0, 2, 0, Height - 3) ''''左侧竖线（除了两个边角剩下的线） g.DrawLine(p, 2, 0, Width - 3, 0) ''''上面横线（除了两个边角剩下的线） g.DrawLine(p, Width - 1, 2, Width - 1, Height - 3) ''''右侧竖线（除了两个边角剩下的线） g.DrawLine(p, 2, Height - 1, Width - 3, Height - 1) ''''下面的横线 g.DrawLine(p, 0, 2, 2, 0) ''''左上角 g.DrawLine(p, 0, Height - 3, 2, Height - 1) ''''左下角 g.DrawLine(p, Width - 3, 0, Width - 1, 2) ''''右上角 g.DrawLine(p, Width - 3, Height - 1, Width - 1, Height - 3) ''''右下角
Else ''''draw normal style border ''''采用默认的黑色进行绘制边角 g.DrawLine(Pens.Black, 0, 2, 0, Height - 3) g.DrawLine(Pens.Black, 2, 0, Width - 3, 0)
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |
