derived.bas

此源码为vb圣经编码

Attribute VB_Name = "modDerived"
'***************************************************************
' (c) Copyright 2000 Matthew J. Curland
'
' This file is from the CD-ROM accompanying the book:
' Advanced Visual Basic 6: Power Techniques for Everyday Programs
'   Author: Matthew Curland
'   Published by: Addison-Wesley, July 2000
'   ISBN: 0-201-70712-8
'   http://www.PowerVB.com
'***************************************************************
Option Explicit

Public Type BaseData
    OverrideMeThunk As PushParamThunk
End Type

Type OwnedBaseData
    Owner As ArrayOwner
    Data() As BaseData
End Type

Public Function Base_OverrideMe(ByVal This As Derived) As String
    Base_OverrideMe = This.Base_OverrideMe
End Function