prop08 - vslibrary @ wiki

自作イベントをプロパティ変更時に起動させる

プロパティ

   Private _PropA As Boolean = False
   Property PropA() As Boolean
       Get
           Return _PropA
       End Get
       Set(ByVal value As Boolean)
           If _PropA <> value Then
               _PropA = value
               Dim e As New EventArgs
               RaiseEvent PropA_Changed(Me, e)
           End If
       End Set
   End Property

イベント

   Public Event PropA_Changed(ByVal sender As Object, ByVal e As EventArgs)
   Private NColor As Color = Me.BackColor
   Private Sub PA_Changed(ByVal sender As Object, ByVal e As EventArgs) Handles Me.PropA_Changed
       If Me.PropA= True Then
           NColor = Me.BackColor
           Me.BackColor = Color.Red
       Else
           Me.BackColor = NColor
       End If
   End Sub

※自作プロパティPropAの値が変更された時、自作イベントPropA_Changedが実行され、PropA=Trueの場合BackColorをRedに、PropA=Falseの場合BackColorをデザイナで設定されたBackColorに変更する

.