当鼠标选中/专注于文本框VB.NET时，在窗体中突出显示文本框

Question

我想问一下，当我为表单控件中的每个文本框突出显示时，如何更改文本框颜色。

例如，如果我有50多个文本框，那么我每次编写50多个文本框真的很难吗？

那么无论如何我可以在一个函数中设置它吗？

感谢任何帮助。

谢谢，

阿尔文。

Answer 1

只需创建一个新类并从文本框继承。 更改文本框类中的事件并使用它而不是普通文本框。

Public Class MTB
Inherits TextBox

     Private Sub MTB_GotFocus(sender As Object, e As EventArgs) Handles Me.GotFocus
           BackColor = Color.Aqua

     End Sub
End Class

重建项目后，MTB对象将在工具箱中等待您。