0
点赞
收藏
分享

微信扫一扫

vb.net(c#) 改变控件的边框线性和颜色

杰克逊爱学习 2022-02-01 阅读 76

.net开发中用到的系统控件,label,combobox,textbox等,控件的边框和线性要么选择无边框,要么是系统的统一边框,有时会不符合界面的整体设计要求,现在给大家一个技巧,来改变空间的边框颜色和线形

只要在form的load事件里,执行 dim x as new kjpt(控件名称),就可以了

如果控件比较多,可以枚举一下

比如 

   For Each c As Control In Me.Controls
            Dim x As New kjpt(c)
    Next

 Class kjpt
        Dim c As Control
        Sub New(ByVal c As Control)
            Me.c = c
            Select Case c.GetType.Name
                Case "Label", "TextBox", "ComboBox"
                    Dim l = c
                    l.BorderStyle = BorderStyle.None
                    Dim p As Control = l.Parent
                    AddHandler p.Paint, AddressOf Me.kj_Paint
            End Select
        End Sub
        Private Sub kj_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
            e.Graphics.DrawRectangle(Pens.Red, c.Left - 1, c.Top - 1, c.Width + 2, c.Height + 2)
        End Sub

    End Class

举报

相关推荐

0 条评论