快救人了SOS

Question

在VB 模块中的Implements 是什么意思？

Answer 1

VB 5.0以后提供了一个Implements语句，它使一个类能够使用其它类的定义的过程和数据，
这有些接近C++中的继承

Answer 2

Private Property Let MapServer_ErrorCode(ByVal RHS As Long)End Property
同样在类中这一什么意思？

Answer 3

通过添加对该类型库的引用，并使用 Implements 语句实现类的合适的辅助接口，开发一个使用该接口的部件。
对已经加入类的每个接口，依次选择其属性和方法，并添加合适的代码来实现其功能。请参阅《Visual Basic 程序员指南》“用对象编程”的“多态性”。

Answer 4

Implements 语句示例
下面的示例说明如何使用 Implements 语句来编写多个类都可以使用的一系列声明。通过 Implements 语句共享这些声明，所有的类都不必再自己进行声明。假设有两个窗体。其中 Selector 窗体有两个按钮，Customer Data 和 Supplier Data。若要输入客户或供应商的名称及地址信息，用户就单击 Selector 窗体的 Customer Date 按钮或 Supplier Date 按钮，然后使用 Data Entry 窗体来输入名称和地址。Data Entry 窗体有两个文本字段，Name 和 Address。下面的共享声明的代码位于称为 PersonalData 的类中：Public Name As String
Public Address As String有关处理客户数据的代码位于 Customer 类模块：Implements PersonalData
Private Property Get PersonalData_Address() As String
PersonalData_Address = "CustomerAddress"
End PropertyPrivate Property Let PersonalData_Address(ByVal RHS As String)
'
End PropertyPrivate Property Let PersonalData_Name(ByVal RHS As String)
'
End PropertyPrivate Property Get PersonalData_Name() As String
PersonalData_Name = "CustomerName"
End Property有关处理供应商数据的代码位于 Supplier 类模块：Implements PersonalDataPrivate Property Get PersonalData_Address() As String
PersonalData_Address = "SupplierAddress"
End PropertyPrivate Property Let PersonalData_Address(ByVal RHS As String)
'
End PropertyPrivate Property Let PersonalData_Name(ByVal RHS As String)
'
End PropertyPrivate Property Get PersonalData_Name() As String
PersonalData_Name = "SupplierName"
End Property下面的代码负责处理 Selector 窗体：Private cust As New Customer
Private sup As New SupplierPrivate Sub Command1_Click()
Dim frm2 As New Form2
    Set frm2.PD = cust
    frm2.Show 1
End SubPrivate Sub Command2_Click()
Dim frm2 As New Form2
    Set frm2.PD = sup
    frm2.Show 1
End Sub下面的代码负责处理 Data Entry 窗体：Private m_pd As PersonalData
Private Sub Form_Load()
    With m_pd
        Text1 = .Name
        Text2 = .Address
    End With
End Sub
Public Property Set PD(Data As PersonalData)
    Set m_pd = Data
End Property

Answer 5

Implements 功能
Visual Basic 使用 Implements 关键字来提供一种与辅助接口公用的方式。例如，如果工程引用了描述 IFinance 接口的类型库，则可以在类模块中包含以下代码：Implements IFinance由于类型库只包括接口，不包括实现方案，因此可以按“标准接口的实现与使用”所描述的，给 IFinance 接口的每个属性和方法增加代码。