Вызов sub на изменение свойства класса?

Question

У меня есть пользовательский класс, который основан на TreeNode, и на нем есть свойство Enum, называемое статусом, как показано ниже.

Public _staus As enumStatus 

Public Enum enumStatus 
    None 
    Yes 
    No 
End Enum 

В принципе, когда я изменить это свойство, я хочу, чтобы вызвать подпрограмму, которая просто меняет цвет текста пункта - этот подпункт содержится в классе и просто выберите саз обновления свойства Me.ForeColor ,

Это работает правильно, если я классифицирую myClass.ChangeColourBasedOnStatus, но как я могу сделать это автоматически, когда это свойство изменяется.

Я пробовал смотреть обработчики событий, но я просто не могу найти объяснение, которое я понимаю и могу приступить к работе.

Любые советы приветствуются. :)

Answer 1

Сделайте поле закрытым и добавьте свойство, чтобы получить к нему доступ. В приведенном ниже примере я предполагаю, что вы используете текст из элемента управления, но вы можете изменить его, чтобы использовать перечисление или другие типы.

Private _staus As enumStatus 

Public Enum enumStatus 
    None 
    Yes 
    No 
End Enum 

Public Property Status As enumStatus 
    Get 
     Return _staus 
    End Get 
    Set(value As enumStatus) 
     _staus = value 
     ChangeColor(TextBox1.Text) 
    End Set 
End Property 

Private Sub ChangeColor(SomeText As String) 
    Select Case SomeText 
     Case "" : Me.ForeColor = Color.Black 
     Case "Stop" : Me.ForeColor = Color.Red 
     Case "Go" : Me.ForeColor = Color.Green 
    End Select 
End Sub