| {代码。。。。。。} tFrm.show End Sub 这样showFrm可以处理frmProduct的strA 了。但是call showFrm(frmUser)会报错，为什么就不用我多说了，即便frmUser也有Public strA as String 变量。 现在我希望showFrm即能处理 frmProduct 的 strA 又能处理 frmUser的strA。 是的 VB 6 能让我们实现这个showFrm。我首先想到的是接口，何为接口，接口，我个人认为接口是描述多个类的共同特征的类，是对多个类共性的描述。在VB工程中新建一个类 IfrmBase 如下： Public Property Get strA() As String End Property Public Sub show() '显示子窗体 End Sub IfrmBase 呵呵一看名字就知道为基础窗体接口，凡是子窗体都要符合IfrmBase的描述。 然后再告诉系统，frmProduct 和frmUser是符合IfrmBase描述的类。 在frmProduct，frmUser 中加入 Implements IfrmBase '-------------------------- '接口实现部分 '--------------------------- Private Property Get IfrmBase_staA () As String IfrmBase_staA = Me.staA End Property Public Sub IfrmBase_show() |
正在阅读：VB基础学习:VB 6 中的多态VB基础学习:VB 6 中的多态
2004-02-14 09:34
出处：CSDN
责任编辑：linjixiong
键盘也能翻页，试试“← →”键
