class VedioPlayer
sub play(file)
messagebox.show("这个是基类play")
end sub
class
class SwfPlayer
Inherits VedioPlayer
sub play()
messagebox.show("SwfPlayer.play")
end sub
class
然后调用代码如下:
dim player as VedioPlayer
dim sPlayer as new SwfPlayer
player.play()
执行player.play()这句时,怎么才可以让他调到SwfPlayer.play?
当然.我知道.用sPlayer.play()可以执行它.