プロパティを通さなければアクセスできない変数を設定したい(VB2005)

質問

下記はメンバ変数とプロパティのコードです。
--------------------------------------
'メンバ変数
Private _hoge As Integer = 1

'プロパティ
Private ReadOnly Property phoge()
　　Get
　　　　Return _hoge
　　End Get
End Property
--------------------------------------

上記の構造だと、同じクラス内であれば、下記のようにメンバ変数へプロパティを通さずアクセスが可能です。

Private Sub aaa()
　　MessageBox.Show(_hoge)　　　' 1 と表示される（ここでエラーを出したい）
End Sub

質問内容は、変数_hogeに対してアクセスするには、（同じクラス内からのアクセスであっても）プロパティを通さなければならない形にしたい、というものです。

つまり、下記のような形でないとエラーが発生するようにしたいと考えています。

Private Sub aaa()
　　Dim foo As Integer = phoge()
　　MessageBox.Show(foo)
End Sub

どうぞよろしくお願い致します。

回答No.1

redfox63 · ベストアンサー

無理だと思いますよ

Privateのスコープはクラス内で有効ですから同一クラス内からのアクセスを禁止できないです

ReadOnlyプロパティなら即値を返すようにしてやれば _hogeを宣言する必要は無いように思います

別の方法なら そのクラスにPrivateクラスを作成してそのクラスを通してアクセスするようにするかでしょう
たとえば
public Class foo
　　Private Class bar
　　　　Private Shaerd _hoge as integer = 1
　　　　Shared readonly property phoge() as integer
　　　　　　return _hoge
　　　　end Property
　　End Class
End Class
といった具合です
これなら fooクラスからは barクラスが使えますが他からは使えません
fooクラスからでも直接_hogeへアクセスも出来ません

お礼

redfox63さん
やはり無理ですか。。
同一クラス内のメンバ変数を利用する際、プロパティ経由か直接アクセスするかで迷っています。
質問内容の方法が実現できれば、全てプロパティ経由にしようと思ったのですが。。
クラス内にクラスを作成する件、検討させていただきます。
ご回答ありがとうございました。