简单工厂模式
[code]'简单工厂模式
Module Module1
Sub Main()
Dim MyCar As ICar = CarFactory.GetCarInterface("Benz")
MyCar.CarRun()
MyCar.CarStop()
MyCar = CarFactory.GetCarInterface("Ford")
MyCar.CarRun()
MyCar.CarStop()
System.Console.ReadLine()
End Sub
End Module
Public Interface ICar
Sub CarRun()
Sub CarStop()
End Interface
Public Class Benz : Implements ICar '奔驰汽车
Public Sub CarRun() Implements ICar.CarRun
System.Console.WriteLine("奔驰汽车启动了.......")
End Sub
Public Sub CarStop() Implements ICar.CarStop
System.Console.WriteLine("奔驰汽车停车了.......")
End Sub
End Class
Public Class Ford : Implements ICar '福特汽车
Public Sub CarRun() Implements ICar.CarRun
System.Console.WriteLine("福特汽车启动了.......")
End Sub
Public Sub CarStop() Implements ICar.CarStop
System.Console.WriteLine("福特汽车停车了.......")
End Sub
End Class
Public Class CarFactory '汽车工厂
Public Shared Function GetCarInterface(ByVal CarType As String) As ICar
Select Case CarType
Case "Benz"
Return New Benz
Case "Ford"
Return New Ford
End Select
Return System.DBNull.Value
End Function
End Class
[/code]
页:
[1]