.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
这篇博客分享了一种技巧,如何在.NET开发中改变控件如Label、ComboBox和TextBox的边框颜色和线型,以适应界面设计需求。通过在Form的Load事件中调用特定方法,可以实现控件边框的自定义,例如设置为红色矩形边框。这种方法特别适合需要个性化界面设计的开发者。
1509

被折叠的 条评论
为什么被折叠?



