タイトル : Re^5: 配列とクラス 投稿日 : 2007/04/12(Thu) 18:44 投稿者 : 魔界の仮面弁士
メンバが[板厚]だけであれば、それをコンストラクタで受け取れる様にして、 Dim clothList As New List(Of クロス材) clothList.Add( New クロス材(2.3) ) clothList.Add( New クロス材(3.2) ) Dim ladderTray As New ラダートレイ() ladderTray.クロス材 = clothList のようにするのも手かも。 > Set(ByVal value As List(Of クロス材)) > newクロス材 = value > End Set この場合、外部から「Nothing」がセットされる可能性もありますので、 何らかの対処が必要になるかも知れません。 (案1) Nothing の時は、空のリストを返すようにする。 Get If newクロス材 Is Nothing Then Return New List(Of クロス材) Else Return newクロス材 End If End Get (案2) Nothing が渡された時は、自動的に空のリストをセットする。 Set(ByVal value As List(Of クロス材)) If value Is Nothing Then newクロス材 = New List(Of クロス材) Else newクロス材 = value End If End Set (案3) そもそも、Nothing 代入を拒否する。 Set(ByVal value As List(Of クロス材)) If value Is Nothing then Throw New ArgumentNullException("クロス材") End If End Set |