微软电子书苑
页码,1/11
附录 B 了解介面和类别的运作
在本书中介面是大部分设计范本的组成要素,而且定义了角色的内容,并且决定组成设计范本的物件之间彼 此的关系.此外,在本书中所提到的设计范本,都是以Microsoft Visual Basic来执行,而这绝对是可能的, 因为物件导向语言在Visual Basic中是以COM和ActiveX为基础,也就是说,介面是COM的基本架构,所以它 会从执行中要求一个抽象介面.因此,了解及领会介面如何影响一个系统是非常重要的.本附录简单地说明 以下的主题: 在Visual Basic中定义COM介面和类别 使用Visual Basic所提供的整合式开发环境(IDE)及使用COM介面定义语言(IDL)来冻结介面契 约.
l
l l
在Visual Basic中所建立的ActiveX元件支援Automation,使其享有Script语言的好处,例如Microsoft Visual Basic,Scripting Edition (VBScript)以及Microsoft JScript,然后再给其他的技术使用,例如 动态伺服器网页(Active Server Pages, ASP)—是Microsoft在网际网路应用程式方面的产品,它提 供了动态的网际网路内容.
有关这些主题的更详细内容,请参考Ted Pattison所着的《Programming Distributed Applications with COM and Microsoft Visual Basic 6.0》一书,以及〈Visual Basic Design Time Techniques to Prevent Runtime Version Conflicts 〉一文.
在Visual Basic中定义COM介面和类别
COM类别是已命名的COM介面执行式,一个COM类别可以执行多个介面,并且至少必须执行一个介面.而 用户端则取得COM类别(物件)个体的参照,以便执行用户端所要求的介面. 一个公用可建立的Visual Basic类别就是一个COM类别,亦即至少有一个单一的介面的存在,以作为它预设 的介面.预设的介面是由Visual Basic内部所提供,并有二种目的:第一,它提供Automation支援,稍后会在 本附录的后面有更详细的说明;第二,藉由在预设的介面和执行(COM类别)之间所造成的差异来简化 COM的形式,这代表着可把类别的属性和方法定义为公用,例如,下列的程式码会自动地变成预设介面的一 部分. ' Class BankAccount ' Public Property Get Balance() As Double ' 传回银行帐户余额 End Property
Public Function Deposit(Amount As Double) As Double ' 存款到银行帐户中 End Function 使用预设的介面也代表着允许Visual Basic使用者宣告物件变数为类别名称型态,但不能宣告为介面名称型 态,如下列的程式码所示.
file://C:\Documents and Settings\GJ\桌面\VB_Design_Patterns\102.htm
2009-1-19
微软电子书苑
' Visual Basic使用者 ' Dim myBankAccount As BankAccount Dim dblBalance As Double
页码,2/11
Set myBankAccount=New BankAccount dblBalance=myBankAccount.Deposit(1000) 利用这种方式来宣告变数,似乎没有把COM介面和执行的规则区隔出来,并且容易使人感到混淆,但是因为 预设的介面存在,所以myBankAccount实际上是宣告为一个介面,而非一个类别. 如同本书第二篇所提到的,要在Visual Basic中定义和执行一个介面是件很简单的事,在定义一个介面时,只 要采取下列的步骤即可. 1. 在ActiveX专案中新增一个类别模组. 2. 把类别模组的Instancing属性值改为PublicNotCreatable 3. 宣告没有执行式的公用属性和方法,如以下的程式码所示. ' IBankAccount介面 ' Public Property Get Balance() As Double End Property
Public Function Deposit(Amount As Double) As Double End Function 4. 在Visual Basic中透过关键字Implements来执行新增的介面,如以下的程式码所示. ' BankAccountImpl类别 ' Implements IBankAccount Private Property Get IBankAccount_Balance() As Double ' 传回银行帐户余额 End Property

下一页