Как установить BackColor неактивного элемента управления

Question

У меня есть форма, содержащая несколько текстовых и комбинированных ящиков. Я установил свойство back color активного элемента управления для skyblue. Я хочу установить задний цвет всех текстовых полей и comboboxes на белый, пока они не активны.

Answer 1

Есть правильный путь и неправильный путь. Вы просите неправильного пути. Правильный способ - вывести свой собственный класс из TextBox и переопределить методы OnEnter и OnLeave. Повторите для ComboBox.

Но вы просите неправильный путь, и вы, вероятно, пытаетесь добавить эту функцию слишком поздно, поэтому нам придется ее вытащить, найдя элементы управления во время выполнения. Добавьте конструктор в свой класс формы и сделайте его похожим:

Public Sub New() 
    InitializeComponent() 
    FindControls(Me.Controls) 
End Sub 

Private Sub FindControls(ctls As Control.ControlCollection) 
    For Each ctl As Control In ctls 
     Dim match As Boolean 
     If TypeOf ctl Is TextBoxBase Then match = True 
     If TypeOf ctl Is ComboBox Then 
      Dim combo = DirectCast(ctl, ComboBox) 
      If combo.DropDownStyle <> ComboBoxStyle.DropDownList Then match = True 
     End If 
     If match Then 
      AddHandler ctl.Enter, AddressOf ControlEnter 
      AddHandler ctl.Leave, AddressOf ControlLeave 
     End If 
     FindControls(ctl.Controls) 
    Next 
End Sub 

Private controlColor As Color 

Private Sub ControlEnter(sender As Object, e As EventArgs) 
    Dim ctl = DirectCast(sender, Control) 
    controlColor = ctl.BackColor 
    ctl.BackColor = Color.AliceBlue 
End Sub 

Private Sub ControlLeave(sender As Object, e As EventArgs) 
    Dim ctl = DirectCast(sender, Control) 
    ctl.BackColor = controlColor 
End Sub