如何扩展vb6类?
问题描述：
如何通过使用接口扩展vb6类?
how to extend a vb6 class by using interface?
答
这很困难，因为vb6中可用的继承非常有限.我所见过的最接近的(并且我不推荐)是这样的: Parent.cls 显式期权 公共子CallMe() ''做一点事 结束子 Child.cls 显式期权 实施父母 私人m_parent作为父母 私人子Class_Initialize() 设置m_parent =新父母 结束子 私人子Parent_CallMe() 多余的东西 m_parent.CallMe 结束子 公共子CallMe() Parent_CallMe 结束子 太丑了，但是就是这样...
It''s rather difficult, as the inheritance available in vb6 is very limited. The closest I''ve seen [and I would not recomend] is like this: Parent.cls Option Explicit Public Sub CallMe() ''do something End Sub Child.cls Option Explicit Implements Parent Private m_parent As Parent Private Sub Class_Initialize() Set m_parent = New Parent End Sub Private Sub Parent_CallMe() '' do extra stuff m_parent.CallMe End Sub Public Sub CallMe() Parent_CallMe End Sub It is so ugly, but that is about it...