Vb.Net - 动态更改文本框背景色的类

我想知道如何创建一个类来更改表单内每个文本框的背景颜色。 更具体：

1. 当文本框为空时，文本框背景颜色等于白色。
2. 当文本框获得焦点时，文本框的背景颜色发生变化。
3. 当文本框有任何文本时，文本框背景颜色会改变。
4. 当文本框失去焦点时，文本框的背景颜色会发生变化。

目前，我正在这样做。

Private Sub tb_Login_Enter(sender As Object, e As EventArgs) Handles tb_Login.Enter
    tb_Login.BackColor = Color.LightCyan
End Sub

Private Sub tb_Login_Leave(sender As Object, e As EventArgs) Handles tb_Login.Leave
    If tb_Login.Text <> "" Then
        tb_Login.BackColor = Color.LightGreen
    Else
        tb_Login.BackColor = Color.White
    End If

但是，我的表单中有很多 TextBox，那么如何为它创建一个类呢？

Thanks

您所需要做的就是从 TextBox 控件继承。

Public Class TextBoxEx
    Inherits TextBox

    Private Sub TextBoxEx_Enter(sender As Object, e As EventArgs) Handles Me.Enter
        Me.BackColor = Color.LightCyan
    End Sub

    Private Sub TextBoxEx_Leave(sender As Object, e As EventArgs) Handles Me.Leave
        If Me.Text <> "" Then
            Me.BackColor = Color.LightGreen
        Else
            Me.BackColor = Color.White
        End If
    End Sub
End Class

生成您的项目，然后用新的 TextBoxEx 控件替换您的 TextBox 控件。