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 = 5) Then ''''绘制有焦点但鼠标不在其上的状态

            ''''与一般边框用高光区别的是显示兰色

            Dim p As Pen = New Pen(Color.SkyBlue, 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)

        End If

        ''''//做完如上的处理后再对可用和不可用做圆化边缘处理（也就是把按钮的4个角进行圆化处理）

        If (state = 4) Then ''''不可用时

            ''''使用画笔，Color.FromArgb(161, 161, 146)是从一个32位的ARGB值创建系统颜色，宽度为1

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ...  下一页 >>