g.DrawLine(Pens.Black, 2, Height - 1, Width - 3, Height - 1)

            g.DrawLine(Pens.Black, 0, 2, 2, 0)

            g.DrawLine(Pens.Black, 0, Height - 3, 2, Height - 1)

            g.DrawLine(Pens.Black, Width - 3, 0, Width - 1, 2)

            g.DrawLine(Pens.Black, Width - 3, Height - 1, Width - 1, Height - 3)

        End If

    End Sub

    ''''一般状态

    Private Sub DrawNormalButton(ByVal g As Graphics)

        ''''绘制边框，宽度为1

        DrawBorder(g, 1)

        ''''绘制背景，用高光点颜色

        PaintBack(g, SystemColors.ControlLightLight)

    End Sub

    ''''鼠标移动到其上的状态

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