关于类创建的一个问题
我创建了一个虚类
Public MustInherit Class A
...
End Class
然后创建了两个类继承它
Public MustInherit Class B : Inherits A
Public AA As Single
End Class
Public MustInherit Class C : Inherits A
Public BB As Single
End Class
现在我想在主程序中使用Select Case语句在主程序中创建一个对象Obj
Sub Main()
Select i
Case 1
Dim Obj As New B
Case 2
Dim Obj As New B
End Select
Obj.AA=123
Obj.BB=234
End Sub
由于在主程序中我发确认创建的对象属于哪个类,因此上面的编码无法实现,不知有没有好办法仅创建一个对象Obj,在特定条件下实现为B类的功能或C类的功能。
我不想同时创建B类和C类的对象,因为在样可以节省内存空间,我知道我理解的对不对。
谢谢指教。
Public MustInherit Class A
...
End Class
然后创建了两个类继承它
Public MustInherit Class B : Inherits A
Public AA As Single
End Class
Public MustInherit Class C : Inherits A
Public BB As Single
End Class
现在我想在主程序中使用Select Case语句在主程序中创建一个对象Obj
Sub Main()
Select i
Case 1
Dim Obj As New B
Case 2
Dim Obj As New B
End Select
Obj.AA=123
Obj.BB=234
End Sub
由于在主程序中我发确认创建的对象属于哪个类,因此上面的编码无法实现,不知有没有好办法仅创建一个对象Obj,在特定条件下实现为B类的功能或C类的功能。
我不想同时创建B类和C类的对象,因为在样可以节省内存空间,我知道我理解的对不对。
谢谢指教。
...全文
相关推荐
String类创建对象问题
关于String类中常量池、字符串池的理解
详解java创建一个女朋友类(对象啥的new一个就是)==建造者模式,一键重写
主要介绍了java建造者模式一键重写,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧
Delphi的TFileStream类来创建一个文本文件
Delphi的TFileStream类来创建一个文本文件
python类的实例化问题解决
类的实例化问题解决 运行结果: line 21, in <module> s=speaker('ken',10,'aaa') TypeError: __init__() missing 1 required positional argument: 'h' 错误要点:定义类的时候是四个参数,在实例化的时候也必须是四个,不能因为用不到而不写。 这是因为:类定义了 __init__() 方法,类的实例化操作会自动调用 __init__() 方法。实例化和定义的不匹配,当然报错了。 您可能感兴趣的文章:Python面向对象程序设计中类的定义、实
person类派生一个teacher再从它派生一个student类
设计一个person类,它包括编号和姓名的输入输出,从它派生一个teacher类用于满足教师数据的操作,再从它派生一个student类,增加性别和班号的输入输出,然后从student类派生出大学生类unstudent和研究生类graduate。分别实现大学生和研究生数据的操作,最后由graduate类和teacher类派生出博士后类postdoctor,这些类的继承关系即类层次如图:


VB基础类
