Imports System.Collections.Generic
Namespace Infragistics.Samples.Common
''' <summary>
''' 同じ値を持つ ContourDataPoint オブジェクトの輪郭データ モデルを表します。
''' </summary>
Public Class ContourDataSample
Inherits ContourData
Public Sub New()
Me.Add(New ContourDataPoint() With { _
.X = 30, _
.Y = 60, _
.Value = 40 _
})
Me.Add(New ContourDataPoint() With { _
.X = 40, _
.Y = 50, _
.Value = 40 _
})
Me.Add(New ContourDataPoint() With { _
.X = 60, _
.Y = 60, _
.Value = 40 _
})
Me.Add(New ContourDataPoint() With { _
.X = 40, _
.Y = 70, _
.Value = 40 _
})
Me.Add(New ContourDataPoint() With { _
.X = 30, _
.Y = 60, _
.Value = 40 _
})
Me.Add(New ContourDataPoint() With { _
.X = 20, _
.Y = 60, _
.Value = 30 _
})
Me.Add(New ContourDataPoint() With { _
.X = 40, _
.Y = 30, _
.Value = 30 _
})
Me.Add(New ContourDataPoint() With { _
.X = 80, _
.Y = 60, _
.Value = 30 _
})
Me.Add(New ContourDataPoint() With { _
.X = 40, _
.Y = 90, _
.Value = 30 _
})
Me.Add(New ContourDataPoint() With { _
.X = 20, _
.Y = 60, _
.Value = 30 _
})
Me.Add(New ContourDataPoint() With { _
.X = 10, _
.Y = 60, _
.Value = 20 _
})
Me.Add(New ContourDataPoint() With { _
.X = 40, _
.Y = 10, _
.Value = 20 _
})
Me.Add(New ContourDataPoint() With { _
.X = 80, _
.Y = 30, _
.Value = 20 _
})
Me.Add(New ContourDataPoint() With { _
.X = 120, _
.Y = 60, _
.Value = 20 _
})
Me.Add(New ContourDataPoint() With { _
.X = 80, _
.Y = 90, _
.Value = 20 _
})
Me.Add(New ContourDataPoint() With { _
.X = 40, _
.Y = 110, _
.Value = 20 _
})
Me.Add(New ContourDataPoint() With { _
.X = 10, _
.Y = 60, _
.Value = 20 _
})
End Sub
End Class
''' <summary>
''' ContourDataPoint オブジェクトの輪郭データ モデルを表します
''' </summary>
Public Class ContourData
Inherits List(Of ContourDataPoint)
End Class
''' <summary>
''' 輪郭の一点を表す散布データ ポイントを表します
''' </summary>
Public Class ContourDataPoint
Public Property X() As Double
Get
Return _X
End Get
Set
_X = Value
End Set
End Property
Private _X As Double
Public Property Y() As Double
Get
Return _Y
End Get
Set
_Y = Value
End Set
End Property
Private _Y As Double
Public Property Value() As Double
Get
Return _Value
End Get
Set
_Value = Value
End Set
End Property
Private _Value As Double
End Class
End Namespace