VB.Net中文教程(2) Composite样式

@#ex01.bas

Imports System.ComponentModel

Imports System.Drawing

Imports System.WinForms

Imports System.Collections

@#----------------------------------------------------

Class OrderLine

Private pname As String

Private amt As Double

Public Sub New(ByVal na As String, ByVal am As Double)

pname = na

amt = am

End Sub

Public Function Name() As String

Name = pname

End Function

Public Function Amount() As Double

Amount = amt

End Function

End Class

Class Order

Private OrderID As String

Private lines As ArrayList

Public Sub New(ByVal id As String)

OrderID = id

lines = New ArrayList()

End Sub

Public Sub AddLine(ByVal ln As OrderLine)

lines.Add(ln)

End Sub