| Dim p As Pen = New Pen(Color.Yellow, 2) g.DrawLine(p, 1, 1, 1, Height - 2) g.DrawLine(p, 1, 1, Width - 2, 1) g.DrawLine(p, Width - 1, 2, Width - 1, Height - 2) g.DrawLine(p, 2, Height - 1, Width - 2, Height - 1)
ElseIf (state = 3) Then ''''绘制按下的显示边框 ''''与一般边框用高光区别的是显示暗褐色 Dim p As Pen = New Pen(SystemColors.ControlDark, 2) g.DrawLine(p, 1, 1, 1, Height - 2) g.DrawLine(p, 1, 1, Width - 2, 1) g.DrawLine(p, Width - 1, 2, Width - 1, Height - 2) g.DrawLine(p, 2, Height - 1, Width - 2, Height - 1)
ElseIf (state = 4) Then ''''绘制不可用状态边框 ''''与一般边框用高光区别的是显示亮色 Dim p As Pen = New Pen(SystemColors.ControlLight, 2) 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |
