您的位置:阿里西西 > 编程技术 > ASP教程 > ASP 类组合

ASP 类组合

  本站整理   互联网   2012-07-14   点击:   我要评论

ASP 类的功能实在有限,所以有时我们要实现复杂的功能,只好用组合来实现。

class CFish
    sub Swim()
    end sub
end class

class CBird
    sub Fly()
    end sub
end class

class CAnimal
    dim fish
    dim bird

    private sub class_initialize()
        set fish = new CFish
        set bird = new CBird
    end sub
   
    private sub class_terminate()
        set fish = nothing
        set bird = nothing
    end sub
end class

dim animal
set animal = new CAnimal
call animal.fish.Swim() '鱼游
call animal.bird.Fly() '鸟飞
set animal = nothing



更多关于 的文章
相关阅读
会员评论所有会员评论

  

相关排行总榜

ASP教程

PHP教程

.NET教程