タイトル : Re^3: 多重継承について(1) 投稿日 : 2007/04/12(Thu) 15:14 投稿者 : ひでと
自己レスになります。 ソリューションエクスプローラでフォルダを使用表示することが出来るのに気がつきました。 また フォルダの中に作成したクラスにNamespaceを利用するとフォルダがどこにあっても Namespaceに記載された名前空間にコンパイルできることがわかり、 ソリューションエクスプローラで階層的に表示することができました。 実際のクラスですが、 分類、断面、種類を Object型で参照する「トレイ」クラスを作り、 「分類」フォルダーに「鋼板トレイ」、「ラダートレイ」 「断面」フォルダーに「外一度曲げ」... 「種類」フォルダーに「ストレート」、「水平曲がり」... の各クラスを作成しました。 それぞれは Namespace を用いて、例えば Namespace 分類 Public Class 鋼板トレイ Private new本体板厚 As Double Public Property 本体板厚() As Double Get Return new本体板厚 End Get Set(ByVal value As Double) new本体板厚 = value End Set End Property End Class End Namespace のようにしました。 「トレイ」クラスは Public Class トレイ Private new分類 As New Object Private new断面 As New Object Private new種類 As New Object Public Property 分類() As Object Get Return new分類 End Get Set(ByVal value As Object) new分類 = value End Set End Property Public Property 断面() As Object Get Return new断面 End Get Set(ByVal value As Object) new断面 = value End Set End Property Public Property 種類() As Object Get Return new種類 End Get Set(ByVal value As Object) new種類 = value End Set End Property End Class となっています。 |