标题:简单工厂模式
只看楼主
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
结帖率:78.95%
 问题点数:0 回复次数:19 
简单工厂模式
程序代码:
'''''ICar.cls
Public Function CarRun() As String   '抽象汽车方法

End Function

Public Function CarStop() As String

End Function



程序代码:
'Bus.cls
'具体汽车方法
Implements ICar

Private Function ICar_CarRun() As String
    ICar_CarRun = "Bus开了..."
End Function

Private Function ICar_CarStop() As String
    ICar_CarStop = "Bus停了..."
End Function



程序代码:
'''MiniCar.cls
'具体汽车方法
Implements ICar

Private Function ICar_CarRun() As String
    ICar_CarRun = "小汽车开了..."
End Function

Private Function ICar_CarStop() As String
    ICar_CarStop = "小汽车停了..."
End Function


程序代码:
'''CarFactory.cls
Friend Function MakeCar(ByVal CarType As String) As Object  '抽象汽车工厂

    Select Case CarType
        Case "MiniCar"
         Set MakeCar = New MiniCar
        Case "Bus"
         Set MakeCar = New Bus
        Case Else
        MakeCar = Null
    End Select
    
End Function


程序代码:
Private Sub Form_Click()

Dim CarFactory As New CarFactory
Dim MyCar As New ICar
Set MyCar = CarFactory.MakeCar("Bus")
Print MyCar.CarRun
Print MyCar.CarStop

Set MyCar = CarFactory.MakeCar("MiniCar")
Print MyCar.CarRun
Print MyCar.CarStop

End Sub
搜索更多相关主题的帖子: 工厂 模式 
2008-02-17 21:58
随风逐流
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:passerby
等 级:版主
威 望:8
帖 子:4054
专家分:271
注 册:2007-6-13
得分:0 
见识了
还没看到过这样写的

[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]
2008-02-18 09:08
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
得分:0 
呵呵...除了老兄你没人问津了...

/images/2011/147787/2011051411021524.jpg" border="0" />
2008-02-20 10:40
wyfandy
Rank: 1
来 自:深圳
等 级:新手上路
帖 子:376
专家分:0
注 册:2006-12-11
得分:0 
呵呵,那确实,这写法是不多见,
老弟好久不见了,近可好!近都在忙些什么呢?

不论什么事,只要认准了一个目标,然后朝之不懈地努力,就一定实现。编程爱好者QQ群:21318556
2008-02-22 12:04
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
得分:0 
呵呵...这种写法是我在看<<C#设计模式纵横谈>>时推广到vb的.
关于vb或实现的有关设计模式的资料很难找,不知老兄可
有否.
呵呵...去年以来我学习学得不亦乐乎.
老兄可好?有时间过来广州看我.

/images/2011/147787/2011051411021524.jpg" border="0" />
2008-02-22 17:10
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
使用了interface
很好,很强大.

我的msn: myfend@
2008-02-22 18:02
尐妖
Rank: 2
来 自:广东省
等 级:新手上路
威 望:3
帖 子:120
专家分:0
注 册:2008-2-16
得分:0 
来参考.呵[bc05]

倣棄?.﹎徻sんì嬄種繲脫嗎╃┈
2008-02-27 15:10
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
得分:0 
把自己的好贴老贴顶上让大家学习

/images/2011/147787/2011051411021524.jpg" border="0" />
2008-08-26 17:24
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
得分:0 
我來看看啥

烈焰照耀世界,斌凍凍千萬裏
2008-08-27 20:20
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
得分:0 
设计模式,不错,很高级的内容。
2008-08-28 17:16



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-200195-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.724887 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved