.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