如何扩展vb6类? [英] how to extend a vb6 class?

问题描述

如何通过使用接口扩展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...

这篇关于如何扩展vb6类?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！