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