C# と VB.NET の質問掲示板

■No31470 (まいか さん) に返信
> お世話になります
> WinXP、VB.NET2005と言う環境です
> 勉強の一環で、プロパティの値を変えたら他のプロパティの値を変える事をやっています
> 例えばＡと言うプロパティ(Boolean型)と、Ｂと言うプロパティ(Boolean型)があるとします
> ＡのプロパティをTrueにするとＢのプロパティがFalseに、また逆もあります
> Ａのプロパティを変えるとＢが変わると言うのは出来たのですが
> 今度はＢが変わったらＡのプロパティを変える様に、同じ様に記述したらプロパティを変えると
> VB.NET2005が突然終了してしまう様になってしまいました
> Ｂの方のRaiseEventをコメントで潰すと、Ａの方は望む様に変わってくれました
> どうかよろしくお願いします
> 
> 以下コードです
> Private _Ａ As Boolean = False 
> Private _Ｂ As Boolean = True
> Public Event ＡChanged()
> Public Event ＢChanged()
> 
>     <System.ComponentModel.DefaultValue(False)> Public Property Ａ() As Boolean
>         Get
>             Return _Ａ
>         End Get
>         Set(ByVal value As Boolean)
>             _Ａ = value
>             RaiseEvent ＡChanged()
>         End Set
>     End Property
> 
>     <System.ComponentModel.DefaultValue(False)> Public Property Ｂ() As Boolean
>         Get
>             Return _Ｂ
>         End Get
>         Set(ByVal value As Boolean)
>             _Ｂ = value
>             RaiseEvent ＢChanged()
>         End Set
>     End Property
> 
>     Private Sub MyTextBox1_ＡChanged() Handles Me.ＡChanged
>         Me.Ｂ = Not _Ａ
>     End Sub
> 
>     Private Sub MyTextBox1_ＢChanged() Handles Me.ＢChanged
>         Me.Ａ = Not _Ｂ
>     End Sub
> 

Ａが変更されたときのイベント（ MyTextBox1_ＡChanged ）では、Me.Ｂ を書き換えていますよね。
同様に、Ｂが変更されたときのイベント（ MyTextBox1_ＢChanged ）では、Me.Ａ を書き換えていますよね。

1. Ａを書き換えたら、イベントが立ち上がって、イベントハンドラ内でＢを書き換える。
2. Ｂが書き換わったら、またイベントハンドラが立ち上がって、イベントハンドラ内でＡを書き換える。
3. 1に戻る。

ってな処理になっちゃいませんか？

VisualStudio が終了してしまうのはそのせいです。誰も止める人がいないんですもの。

# あと、コードを表示する場合は「図表モード」にチェックを入れて投稿すると良いです。

■No31470 (まいか さん) に返信
エラーが起こる原因はぽぴ王子さんが説明されている通りです。

で。
> ＡのプロパティをTrueにするとＢのプロパティがFalseに、また逆もあり
を実行するためには、
イベント内の処理を

        _Ａ = Not _Ａ

        If Ａ = True Then
            _Ｂ = False
        Else
            _Ｂ = True
        End If

のようにすると実現できます。
#書き方はいろいろあるでしょうがわかりやすさ重視で。

皆さん、ありがとうございます
一応以下のコードで出来ました
    Private _Ａ As Boolean = False
    Private _Ｂ As Boolean = True
    Private _A_Old As Boolean = False
    Private _B_Old As Boolean = True
    Private _KBN_INT As Integer = 0

    Public Event ＡChanged(ByVal sender As Object, ByVal e As EventArgs)
    Public Event ＢChanged(ByVal sender As Object, ByVal e As EventArgs)

    <System.ComponentModel.DefaultValue(False)> Public Property Ａ() As Boolean
        Get
            Return _Ａ
        End Get
        Set(ByVal value As Boolean)
            _Ａ = value
            If _Ａ <> _A_Old AndAlso _KBN_INT = 0 Then
                _A_Old = _Ａ
                _KBN_INT += 1
                RaiseEvent ＡChanged(Me, New EventArgs)
            Else
                _A_Old = _Ａ
                _KBN_INT = 0
                Exit Property
            End If
        End Set
    End Property

    <System.ComponentModel.DefaultValue(False)> Public Property Ｂ() As Boolean
        Get
            Return _Ｂ
        End Get
        Set(ByVal value As Boolean)
            _Ｂ = value
            If _Ｂ <> _B_Old AndAlso _KBN_INT = 0 Then
                _B_Old = _Ｂ
                _KBN_INT += 1
                RaiseEvent ＢChanged(Me, New EventArgs)
            Else
                _B_Old = _Ｂ
                _KBN_INT = 0
                Exit Property
            End If
        End Set
    End Property

    Private Sub Class2_ＡChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ＡChanged
        Me.Ｂ = Not _Ａ
    End Sub

    Private Sub Class2_ＢChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ＢChanged
        Me.Ａ = Not _Ｂ
    End Sub
他の解決法などがあればアドバイスお願いします