フォーム内の各テキスト ボックスの BackColor を変更するクラスを作成する方法を知りたいです。もう少し詳しく言うと:
- テキストボックスが空の場合、テキストボックスの BackColor は White に等しくなります。
- テキストボックスがフォーカスされると、テキストボックスの BackColor が変化します。
- テキストボックスにテキストがある場合、テキストボックスの BackColor が変更されます。
- テキストボックスがフォーカスを失うと、テキストボックスの BackColor が変化します。
現時点では、このようにしています。
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 を持っているので、どうすればそのクラスを作成できますか?
ありがとう