各位好! 1、 请问在vb中有没有继承功能,如有怎么使用?
2、 在vb中的,显示器的分辨率调整后,窗体及其控件怎么实现能随着改变? 谢谢!
2、 在vb中的,显示器的分辨率调整后,窗体及其控件怎么实现能随着改变? 谢谢!
解决方案 »
- 急急!急!关于数组保存到variable中的问题
- [无法为更新定位行.一些值可能已在最后一次读取后已更改]是什么错误
- VB和JAVA那个更好呢!!!!
- 在VB中可以加载JIF图片吗?
- 批处理搜索指定文件路径,并显示出搜索路径及统计搜索个数.
- DataReport 的报表注脚
- VB和DELPHI的比较
- 谁用过以色列的一个编程工具magic呀!!!
- 向新版主提个问题:怎样在Visual Studio Installer里面写脚本,比如读写注册表,调用外部程序?
- 请问各位大虾,不用VB的工具栏向导,通过程序做工具栏中按扭之间的分隔符???
- 请问VB编写的ActiveX DLL如何在Delphi和VC中调用?
- 如何合并多个wav文件?
Implements 语句 指定要在包含该语句的类模块中实现的接口或类。语法Implements [InterfaceName | Class]所需的 InterfaceName 或 Class 是类型库中的接口或类的名称,该类型库中的方法将用与 Visual Basic 类中相一致的方法来实现。说明所谓接口就是代表接口封装的成员(方法以及属性)的原型集合;也就是说,它只包含成员过程的声明部分。一个类提供一个或多个接口的所有方法以及属性的一种实现方案。类的控制者每次调用函数时,该函数所执行的代码由类来提供。每个类至少应实现一个缺省接口。在 Visual Basic 中,一个已实现的接口中任何没有显式声明的成员都是缺省接口的隐式成员。当 Visual Basic 类实现接口时,都会提供该接口的类型库中说明的所有 Public 过程的版本。除了提供接口原型与自编过程之间的映射关系之外,Implements 语句还使这个类接收对指定接口 ID 的 COM QueryInterface 调用。注意 Visual Basic 不能实现派生出来的类或接口。在实现接口或类时,必须包括所用到的 Public 过程。如果在实现接口或类时遗漏了成员,就会产生错误。如果正在实现的类中某个过程还没有代码,则可以产生一个适当的错误信息 (Const E_NOTIMPL = &H80004001),以便用户意识到该成员还没有实现。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