VB實現抽象類 (轉)

VB實現抽象類 (轉)[@more@]

VB實現抽象類

玩VB已經有1個星期左右了.覺得VB也是可以用OO的方式來開發應用的.因為VB支援Com

並且提供類模組實現了封裝.同時也提供了介面的支援.透過Implements就可以實現介面.

因此也就實現了繼承.如果透過組合就可以達到繼承的效果.當然者應該算做Adapter

了.當然可以透過VB實現大多數面向的設計模式.並且也可以透過UML進行建模.因為

VB支援引用傳遞訊息.同時大多數OO特性也可以模擬實現.這裡我介紹一種抽象類的實現

其實只是一個引例.方法很簡單.就是透過介面定製契約.透過Com不可建立物件實現抽象類

的不可建立性.透過Adapter模式模擬繼承實現.

例子如下:

'介面部分
Public Function AbstructFun() As String

End Function

'不可建立物件(用來實現抽象方法)把Instancing設定為 publicNoCreatable

Implements ImyInterFace

Public Function ImyInterFace_AbstructFun() As String
ImyInterFace_AbstructFun = "我起床"
End Function

'實現部分

Implements ImyInterFace

Public Function ImyInterFace_AbstructFun() As String
Dim ac As New AbstructClass
ImyInterFace_AbstructFun = ac.ImyInterFace_AbstructFun & "我吃早飯"
End Function