Class DataCreator
Public Shared Function CreateData() As List(Of DataItem)
Dim data = New List(Of DataItem)()
data.Add(New DataItem("イギリス", 5, 4))
data.Add(New DataItem("アメリカ", 7, 3))
data.Add(New DataItem("ドイツ", 8, 5))
data.Add(New DataItem("日本", 12, 8))
Return data
End Function
End Class
Public Class DataItem
Public Sub New(country__1 As String, sales__2 As Integer, expenses__3 As Integer)
Country = country__1
Sales = sales__2
Expenses = expenses__3
End Sub
Public Property Country() As String
Get
Return m_Country
End Get
Set
m_Country = Value
End Set
End Property
Private m_Country As String
Public Property Sales() As Integer
Get
Return m_Sales
End Get
Set
m_Sales = Value
End Set
End Property
Private m_Sales As Integer
Public Property Expenses() As Integer
Get
Return m_Expenses
End Get
Set
m_Expenses = Value
End Set
End Property
Private m_Expenses As Integer
End Class