End Sub

    Private Sub DrawBorder(ByVal g As Graphics, ByVal state As Integer)

        If (state = 1) Then ''''绘制一般边框

            ''''绘制一个画笔，高光点，宽度2

            Dim p As Pen = New Pen(SystemColors.ControlLightLight, 2)

            ''''g.DrawLine画线，p是画笔，后面是第一个点的坐标，第二个点的坐标

            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) ''''绘制右侧竖线，由于已经在上面绘制了横线（纵坐标为1），所以从2开始

            g.DrawLine(p, 2, Height - 1, Width - 2, Height - 1) ''''绘制下面横线

        ElseIf (state = 2) Then ''''绘制移动到其上的边框

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

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