tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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
となっています。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。