自定义控件--xp风格按钮（可设置文字颜色）

    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]  ...  下一页 >> 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18