玩VB已經(jīng)有1個(gè)星期左右了.覺(jué)得VB也是可以用OO的方式來(lái)開發(fā)應(yīng)用程序的.因?yàn)閂B支持Com并且提供類模塊實(shí)現(xiàn)了封裝.同時(shí)也提供了接口的支持.通過(guò)Implements就可以實(shí)現(xiàn)接口.因此也就實(shí)現(xiàn)了繼承.如果

通過(guò)組合就可以達(dá)到繼承的效果.當(dāng)然者應(yīng)該算做Adapter模式了.當(dāng)然可以通過(guò)VB實(shí)現(xiàn)大多數(shù)面向?qū)ο蟮脑O(shè)計(jì)模式.并且也可以通過(guò)UML進(jìn)行建模.因?yàn)閂B支持引用傳遞消息.同時(shí)大多數(shù)OO特性也可以模擬實(shí)現(xiàn).

　　這里我介紹一種抽象類的實(shí)現(xiàn)其實(shí)只是一個(gè)引例.方法很簡(jiǎn)單.就是通過(guò)接口定制契約.通過(guò)Com不可創(chuàng)建對(duì)象實(shí)現(xiàn)抽象類的不可創(chuàng)建性.通過(guò)Adapter模式模擬繼承實(shí)現(xiàn).

　　例子如下:

　　’接口部分
　　Public Function AbstructFun() As String
　　End Function

　　’不可創(chuàng)建對(duì)象(用來(lái)實(shí)現(xiàn)抽象方法)把Instancing設(shè)置為 publicNoCreatable
　　Implements ImyInterFace
　　Public Function ImyInterFace_AbstructFun() As String
　　ImyInterFace_AbstructFun = "我起床"
　　End Function

　　’實(shí)現(xiàn)部分
　　Implements ImyInterFace
　　Public Function ImyInterFace_AbstructFun() As String
　　Dim ac As New AbstructClass
　　ImyInterFace_AbstructFun = ac.ImyInterFace_AbstructFun & "我吃早飯"
　　End Function