把Textbox、label等控件的边框变成圆弧形，并且改变边框颜色

fanyx_bj

已于 2022-02-02 21:33:22 修改

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

分类专栏： vb.net开发文章标签： .net vb.net c#

于 2022-02-02 21:31:52 首次发布

本文链接：https://blog.youkuaiyun.com/fanyx_bj/article/details/122772279

该博客介绍了如何在VB.NET中将TextBox和Label控件的边框转变为圆弧形，并展示如何修改边框颜色。通过创建自定义类`changetextbox`，并调整参数来改变角的弧度和颜色，利用Graphics对象绘制线条和弧形，实现了圆角效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

用法:改变2个数字参数的值来改变角的弧度，大家可以根据控件的大小自己测试规律

Dim x As New changetextbox(Me.TextBox4, 2, 3, Color.Blue)
Dim y As New changetextbox(Me.TextBox5, 13, 18, Color.Brown)

Class changetextbox
Dim t As TextBox
'Dim d As Integer = 13
'Dim tj As Integer = 18
Dim d As Integer = 13
Dim tj As Integer = 18
Dim cor As Color
Sub New(ByVal t As Control, ByVal d As Integer, ByVal tj As Integer, ByVal cor As Color)
Me.t = t
Me.d = d
Me.tj = tj
Me.cor = cor
Dim p As Control = t.Parent
Me.t.BorderStyle = BorderStyle.None
t.BackColor = p.BackColor
AddHa