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

タイトル ： 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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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